查看: 570  |  回复: 0
  VB6 控件大小随窗体的改变而改变
楼主
发表于 2023年5月28日 00:18

新建From1(窗体),新建Command1(按钮CommandButton),代码:

Private Sub Form_Load()
    '窗体高度等于屏幕高度的六分之一
    Form1.Height = Screen.Height / 6
    '窗体宽度等于屏幕宽度的六分之一
    Form1.Width = Screen.Width / 6
End Sub

Private Sub Form_Resize()
    Command1.Move 0, 0, ScaleWidth, ScaleHeight
End Sub

Private Sub Command1_Click()
    End
End Sub


您需要登录后才可以回帖 登录 | 立即注册
【本版规则】请勿发表违反国家法律的内容,否则会被冻结账号和删贴。
用户名: 立即注册
密码:
2020-2024 MaNongKu.com