用vb:设计一个窗体,在窗体上添加命令按钮。运行程序时,每次用鼠标单击命令按钮,使命令按钮向右移动100 5
设计一个窗体,在窗体上添加命令按钮。运行程序时,每次用鼠标单击命令按钮,使命令按钮向右移动100缇,单击窗体,使窗体向左移动300缇。...
设计一个窗体,在窗体上添加命令按钮。运行程序时,每次用鼠标单击命令按钮,使命令按钮向右移动100缇,单击窗体,使窗体向左移动300缇。
展开
4个回答
展开全部
Private Sub Command1_Click()
Command1.Left = Command1.Left + 100
End Sub
Private Sub Form_Click()
Me.Left = Me.Left - 300
End Sub
Command1.Left = Command1.Left + 100
End Sub
Private Sub Form_Click()
Me.Left = Me.Left - 300
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Private Sub Command1_Click()
Command1.move Command1.Left + 100,Command1.top
End Sub
Private Sub Form_Click()
move Left - 300,top
End Sub
Command1.move Command1.Left + 100,Command1.top
End Sub
Private Sub Form_Click()
move Left - 300,top
End Sub
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Private Sub Command1_Click()
Label1.Left = Form1.Width
If Label1.Left <= Form1.Width Then
Label1.Left = Label1.Left - 300
Else
Label1.Left = Form1.Width
End If
End Sub
Private Sub form1_Click()
Label1.right = Form1.Width
If Label1.right<= Form1.Width Then
Label1.right = Label1.right- 300
Else
Label1.right= Form1.Width
End If
End Sub
Label1.Left = Form1.Width
If Label1.Left <= Form1.Width Then
Label1.Left = Label1.Left - 300
Else
Label1.Left = Form1.Width
End If
End Sub
Private Sub form1_Click()
Label1.right = Form1.Width
If Label1.right<= Form1.Width Then
Label1.right = Label1.right- 300
Else
Label1.right= Form1.Width
End If
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询