当前位置: 开源爱好者 » 编程教程 » VB教程 » 正文

VB 让窗体上的控件随窗体大小自动调整

这个功能相必大家都见识过,当用户改变VB Form窗口大小时,窗口内的控件大小会随着窗口的改变自动变大变小,以适应窗口的变化,这个是很不错的功能吧:

Private Sub Form_Resize() '重新调整大小
    Dim X, Y As Long
    X = Form1.Width - 100 - Frame1.Width - Image1.Width
    Y = (Frame1.Height - Drive1.Height - Drive1.Top - 100)
    Frame1.Width = Frame1.Width + X / 2    '调整框架的大小
    Image1.Left = Frame1.Left + Frame1.Width + 100 '调整图像框的位置
    Image1.Top = 0
    Image1.Width = Image1.Width + X / 2 '调整图像框的大小
    Image1.Height = Me.Height - 500
    Frame1.Height = Image1.Height
    Drive1.Width = Dir1.Width   '调整驱动器控件的大小
    Dir1.Width = Frame1.Width - 300  '调整目录控件的大小
    Dir1.Height = Y / 3
    File1.Top = Dir1.Top + Dir1.Height + 50'调整文件列表框控件的位置
    File1.Width = Dir1.Width '调整文件列表框控件的大小
    File1.Height = 2 / 3 * Y
End Sub
Private Sub Dir1_Change()
    File1.Path = Dir1.Path '文件路径
End Sub
Private Sub Drive1_Change()
    Dir1.Path = Drive1.Drive '目录路径
End Sub
Private Sub File1_Click() '加载指定的图片
    Image1.Picture = LoadPicture(File1.Path & "\" & File1.FileName)
End Sub

CopyRight 2015© 开源爱好者 All Rights Reserved 豫ICP备16030607号 隐私声明 网站地图