求大神教教VB 点击窗体时，窗体内随机出现一个点颜色随机位置随机的点
1个回答
展开全部
Private Sub Form_Click()
Randomize
Me.PSet (Int(Rnd * 3000 - 1000), Int(Rnd * 3000 - 1000)), RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255))
End Sub
Private Sub Form_Load()
Me.Scale (-1000, 1000)-(1000, -1000)
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
