求助 vb 移动窗体 急急急～

来源：百度知道 编辑：UC知道 时间：2024/06/06 13:14:51
窗体上有文本框Text1和Text2,文本框下分别有三个命令按钮Command1、Command2和Command3
Text1和Text2用于输入数据，可以是正，也可以是负，分别表示左、右；下、上移动的相对数据。
Command1（左右移动）用于：根据Text1中的数据，进行左右移动。
Command2（上下移动）用于：根据Text2中的数据，进行上下移动。
Command3（移动）用于：根据Text1和Text2中的数据，同时进行左右和上下移动。
如在Text1中输入100后，单击Command1，则向右移动100缇。

楼上的有点错误，纠正一下

Private Sub Command1_Click()
Me.Left = Me.Left + Val(Text1.Text)
End Sub

Private Sub Command2_Click()
Me.Top = Me.Top + Val(Text2.Text)
End Sub

Private Sub Command3_Click()
Me.Left = Me.Left + Val(Text1.Text)
Me.Top = Me.Top + Val(Text2.Text)
End Sub

Private Sub Command1_Click()
Me.Left = Me.Left + Val(Text1.Text)
End Sub

Private Sub Command2_Click()
Me.Top = Me.Top + Val(Text2.Text)
End Sub

Private Sub Form_Load()
Me.Left = Me.Left + Val(Text1.Text)
Me.Top = Me.Top + Val(Text2.Text)
End Sub

哈哈，写错了，应该是Command3_Click() .