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...
如何用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
mengvlog 阅读 9 次 更新于 2025-06-19 18:47:20 我来答关注问题0
檬味博客在线解答立即免费咨询

编程相关话题

Copyright © 2023 WWW.MENGVLOG.COM - 檬味博客
返回顶部