VB题每隔500毫秒随机产生一
答案:1 悬赏:80 手机版
解决时间 2021-03-29 05:55
- 提问者网友：龅牙恐龙妹
- 2021-03-28 08:42
VB题每隔500毫秒随机产生一
最佳答案
- 五星知识达人网友：鸽屿
- 2021-03-28 09:46
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 500
Label1 = ""
Label1.AutoSize = True
Label1.FontSize = 80
End Sub
Private Sub Timer1_Timer()
Dim x%, y%
Label1.Left = (Form1.Width - Label1.Width) * Rnd
Label1.Top = (Form1.Height - Label1.Height) * Rnd
Label1.Caption = Chr(65 + (90 - 65) * Rnd)
Label1.ForeColor = QBColor(1 + Rnd * 15)
End Sub
Timer1.Enabled = True
Timer1.Interval = 500
Label1 = ""
Label1.AutoSize = True
Label1.FontSize = 80
End Sub
Private Sub Timer1_Timer()
Dim x%, y%
Label1.Left = (Form1.Width - Label1.Width) * Rnd
Label1.Top = (Form1.Height - Label1.Height) * Rnd
Label1.Caption = Chr(65 + (90 - 65) * Rnd)
Label1.ForeColor = QBColor(1 + Rnd * 15)
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯