VB窗体拉动问题

来源：百度知道 编辑：UC知道 时间：2024/05/13 15:13:31
窗体中有两个控件一个是Picture1,另外一个是command1,
拉动窗体时,两个控件怎么跟随着窗体的变化而变化.
问题很急,希望高手帮帮忙,谢谢!
对不起,我希望command1的大小不变的话,

Dim form_w '定义变量，用于记录调整前长与宽
Dim form_h

Private Sub Form_Load()
form_w = Form1.Width '记录初始长宽
form_h = Form1.Height

End Sub

Private Sub Form_Resize() '在窗体调整尺寸时
'On Error Resume Next
bl_W = Form1.Width / form_w '计算调整比例
bl_h = Form1.Height / form_h
Command1.Width = Command1.Width * bl_W '根据比例设置控件位置与尺寸
Command1.Left = Command1.Left * bl_W
Command1.Height = Command1.Height * bl_h
Command1.Top = Command1.Top * bl_W

Picture1.Width = Picture1.Width * bl_W '与上同理
Picture1.Left = Picture1.Left * bl_W
Picture1.Height = Picture1.Height * bl_h
Picture1.Top = Picture1.Top * bl_W

form_w = Form1.Width '记录当前窗体尺寸,用于下一次调整时计算比例用.
form_h = Form1.Height

End Sub

大致就是这个样子 , 本地测试是通过的
按钮大小不变,就把这几句删去:
'Command1.Width = Command1.Width * bl_W '这句是设置按钮的宽度
Command1.Left = Command1.Left * bl_W