单击窗体后运行 Private Sub Form_Click()Label1.Caption = InputBox("输入一段文字")Timer1.Interval = 50 End Sub Private Sub Form_Load()Label1.Caption = ""End Sub Private Sub Timer1_Timer()Label1.Left = Label1.Left + 20 If Label1.Left > Form1.Width Then Label1.Left = 0...
如何用goc编程,画出一个小旗帜的所有命令?
单击窗体后运行
Private Sub Form_Click()
Label1.Caption = InputBox("输入一段文字")
Timer1.Interval = 50
End Sub
Private Sub Form_Load()
Label1.Caption = ""
End Sub
Private Sub Timer1_Timer()
Label1.Left = Label1.Left + 20
If Label1.Left > Form1.Width Then Label1.Left = 0
End Sub
2020-05-01