Question

VB程序设计'要求单上移按钮 标签上移100 单击下移 标签下移100

'要求单上移按钮 标签上移100 单击下移 标签下移100
Private Sub Command1_Click()
① 'label1.top=label1.top-100
End Sub
Private Sub Command2_Click()
② ''label1.top=label1.top+100
End Sub

Answer 1

是这样吗

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyUp Then
Label1.Top = Label1.Top - 100
End If

If KeyCode = vbKeyDown Then
Label1.Top = Label1.Top + 100
End If

End Sub

Answer 2

什么问题？这个程序怎么了？第一个是上移，第二个是下移，正确啊