VB 窗体移动
窗体上有文本框Text1和Text2,文本框下分别有三个命令按钮Command1、Command2和Command3Text1和Text2用于输入数据,可以是正,也可以是...
窗体上有文本框Text1和Text2,文本框下分别有三个命令按钮Command1、Command2和Command3
Text1和Text2用于输入数据,可以是正,也可以是负,分别表示左、右;下、上移动的相对数据。
Command1(左右移动)用于:根据Text1中的数据,进行左右移动。
Command2(上下移动)用于:根据Text2中的数据,进行上下移动。
Command3(移动)用于:根据Text1和Text2中的数据,同时进行左右和上下移动。
如在Text1中输入100后,单击Command1,则向右移动100缇。
移动的是窗体本身
就是form在屏幕上的位置移动
界面如下 展开
Text1和Text2用于输入数据,可以是正,也可以是负,分别表示左、右;下、上移动的相对数据。
Command1(左右移动)用于:根据Text1中的数据,进行左右移动。
Command2(上下移动)用于:根据Text2中的数据,进行上下移动。
Command3(移动)用于:根据Text1和Text2中的数据,同时进行左右和上下移动。
如在Text1中输入100后,单击Command1,则向右移动100缇。
移动的是窗体本身
就是form在屏幕上的位置移动
界面如下 展开
2个回答
展开全部
移动什么呢,怎么移动。问题不清楚
如果是一张图片的话,左右就是picture1.left=picture1.left - int(text1.txt)
若果要渐渐移动就在加个时钟,用时钟一点的移动,直到达到text1的值
如果是一张图片的话,左右就是picture1.left=picture1.left - int(text1.txt)
若果要渐渐移动就在加个时钟,用时钟一点的移动,直到达到text1的值
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Private Sub Command1_Click()
Form1.Left = Form1.Left + Val(Text1.Text)
End Sub
Private Sub Command2_Click()
Form1.Top = Form1.Top + Val(Text2.Text)
End Sub
Private Sub Command3_Click()
Form1.Left = Form1.Left + Val(Text1.Text)
Form1.Top = Form1.Top + Val(Text2.Text)
End Sub
Form1.Left = Form1.Left + Val(Text1.Text)
End Sub
Private Sub Command2_Click()
Form1.Top = Form1.Top + Val(Text2.Text)
End Sub
Private Sub Command3_Click()
Form1.Left = Form1.Left + Val(Text1.Text)
Form1.Top = Form1.Top + Val(Text2.Text)
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询