戒指变形自己怎么弄圆:如何让VB窗体设值好后,里面的控件会随之变大而不变?

来源:百度文库 编辑:查人人中国名人网 时间:2024/05/01 22:28:04
如何让VB窗体设值好后,里面的控件会随窗体变大而改变?比如说位置.

Dim myX As Double, myY As Double '用于保存文本框位置的比例
Dim myX1 As Double, myY1 As Double '用于保存文本框大小的比例
Private Sub Form_Load()
myX = Text1.Left / Me.ScaleWidth
myY = Text1.Top / Me.ScaleHeight
myX1 = Text1.Width / Me.ScaleWidth
myY1 = Text1.Height / Me.ScaleHeight
End Sub

Private Sub Form_Resize()
Text1.Left = Me.ScaleWidth * myX
Text1.Top = Me.ScaleHeight * myY
Text1.Width = Me.ScaleWidth * myX1
Text1.Height = Me.ScaleHeight * myY1
End Sub

把窗体的refresh属性等于true