看看这段代码对你有没有帮助(下面的代码只是对窗体内的一个控件起作用。),“窗体与控件”是偶在“奥运邮集是怎样完成?”的教材内要讲的内容,即窗体内的多个控件随窗体变化,并可以用鼠标控制的。
Private Sub Form_Load()
'窗体高度等于屏幕高度的六分之一
Form1.Height = Screen.Height / 6
'窗体宽度等于屏幕宽度的六分之一
Form1.Width = Screen.Width / 6
End Sub
Private Sub Form_Resize()
Text1.Move 0, 0, ScaleWidth, ScaleHeight
End Sub
Private Sub Text1_Change()
End
End Sub