Question

Vb中有关窗口的大小变换问题.

我的代码如下,我是想将窗体框修改两次,然后按复原键之后,返回到上一次的状态,就是无论修改几次,都复原到上一次的状态..command1是修改 command2是复原

Dim a1 As Integer
Dim a2 As Integer
Dim a3 As Integer
Dim a4 As Integer
Dim a5 As Integer
Dim a6 As Integer
Dim a7 As Integer
Dim a8 As Integer
Private Sub Command1_Click()
Form1.Left = a1
Form1.Width = a2
Form1.Top = a3
Form1.Height = a4
End Sub
Private Sub Command2_Click()
Form1.Left = a5
Form1.Width = a6
Form1.Top = a7
Form1.Height = a8
End Sub
Private Sub Form_Load()
a1 = Text1.Text
a2 = Text2.Text
a3 = Text3.Text
a4 = Text4.Text
a5 = a1
a6 = a2
a7 = a3
a8 = a4
End Sub

希望可以指出我这里哪里有问题，然后以这个思路设计下去．拜谢！

Answer 1

这个不知道你Text1.Text是否已经是设置好的，如果设置好的，没必要
Private Sub Form_Load()
a1 = Text1.Text
直接
a1=100这样好了。其次TEXT1是文本，你要的是数值，需要转换，还有出错怎么办，要容错。
最后一个，在TEXT1控件里修改，修改后也要判断是否数值，是的话还要传给a1

追问

能不能直接把代码写出来啊..你这么说,我跟本看不懂啊..
text.text 里面的数值是要运行之后再填写的啊．

追答

你自己看代码 Form_Load()时，你已经a1 = Text1.Text，这个时候TEXT1应该没有值的吧，如果是默认的，TEXT1里的值应该是text1，对吧？
那么好，你全局定义：
Dim a1 As Integer
这里已经定义 a1 是 整数 对吧，
Form_Load()时
a1 = Text1.Text 《＝＝Text1默认是"text1"!
你让数值设置为字符！
如果你这个也看不明白，我也无话可说了。