怎么样用vb画随机射线，求代码
答案:3 悬赏:70 手机版
解决时间 2021-11-17 00:42
- 提问者网友：低吟詩仙的傷
- 2021-11-16 00:54
怎么样用vb画随机射线，求代码
最佳答案
- 五星知识达人网友：患得患失的劫
- 2021-11-16 01:58
射线：
有一个端点，那么所谓随机：就需要随机一对实数和一个角度，就可以了。
有一个端点，那么所谓随机：就需要随机一对实数和一个角度，就可以了。
全部回答
- 1楼网友：像个废品
- 2021-11-16 04:17
Private Sub Form_Click()
Timer1.Enabled = Not Timer1.Enabled
End Sub
Private Sub Form_Load()
Randomize
Timer1.Enabled = False
Timer1.Interval = 50
End Sub
Private Sub Form_Resize()
Me.Scale (-1000, 1000)-(1000, -1000)
End Sub
Private Sub Timer1_Timer()
Line (0, 0)-(Int(Rnd * 2000) - 1000, Int(Rnd * 2000) - 1000), RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256))
End Sub
Timer1.Enabled = Not Timer1.Enabled
End Sub
Private Sub Form_Load()
Randomize
Timer1.Enabled = False
Timer1.Interval = 50
End Sub
Private Sub Form_Resize()
Me.Scale (-1000, 1000)-(1000, -1000)
End Sub
Private Sub Timer1_Timer()
Line (0, 0)-(Int(Rnd * 2000) - 1000, Int(Rnd * 2000) - 1000), RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256))
End Sub
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯