Question

将两个标签设置为浮雕效果,并移动，按上移按钮时上移50 ，按下移时下移50，按结束时结束程序

用VB

Answer 1

Private Sub Command1_Click()
Label1.Top = Label1.Top - 50
Label2.Top = Label1.Top - 50
End Sub

Private Sub Command2_Click()
Label1.Top = Label1.Top + 50
Label2.Top = Label1.Top + 50
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
Label1.BorderStyle = 1
Label2.BorderStyle = 1
Command1.Caption = "上移"
Command2.Caption = "下移"
Command3.Caption = "结束"
End Sub