vb的编程题
- 提问者网友:浩歌待明月
- 2021-05-09 21:37
- 五星知识达人网友:枭雄戏美人
- 2021-05-09 22:02
Private Sub Command1_Click()
Timer1.Enabled = True
Timer2.Enabled = False
Text1 = ""
Text1.Text = "你当前点击的是“移动”命令按钮"
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
Timer2.Enabled = False
Text1 = ""
Text1.Text = "你当前点击的是“停止”命令按钮"
End Sub
Private Sub Command3_Click()
Timer2.Enabled = True
Timer1.Enabled = False
Text1.Text = "你当前点击的是“加快”命令按钮"
End Sub
Private Sub Command4_Click()
Timer1.Enabled = False
Timer2.Enabled = False
Image1.Left = 7560
Text1.Text = "你当前点击的是“还原”命令按钮"
End Sub
Private Sub Command5_Click()
Image1.Picture = LoadPicture("C:\Documents and Settings\Administrator\桌面\1.JPEG")
Text1.Text = "你当前点击的是“更换图标”命令按钮"
End Sub
Private Sub Form_Load()
Image1.Left = 7560
End Sub
Private Sub Timer1_Timer()
Image1.Left = Image1.Left - 100
End Sub
Private Sub Timer2_Timer()
Image1.Left = Image1.Left - 200
End Sub
- 1楼网友:归鹤鸣
- 2021-05-09 22:28
- 2楼网友:大漠
- 2021-05-09 22:11
晕倒什么意思。
起码给点文字说明把?
给张图没能完全明白你啥意思