窗口缩放
Dim tt As Double
Dim tl As Double
Dim tw As Double
Dim th As Double
Private Sub Form_Load()
tt = Text1(Index).Top
tl = Text1(Index).Left
tw = Text1(Index).Width
th = Text1(Index).Height
End Sub
Private Sub Form_Resize()
Form1.ScaleHeight = 4290
Form1.ScaleWidth = 7065
Text1(Index).Top = tt
Text1(Index).Left = tl
Text1(Index).Width = tw
Text1(Index).Height = th
End Sub
这是我的代码!就是让文本框的大小跟着窗口的大小而改变,我现在用地是一个文本数组!在这有这样一个问题!按我以上去试,只有text1(0)跟着窗口改变其它地就不会!如果把text1(0)这个文本删了就会出错! 你们帮我看看是怎么回事啊!
