展开全部
Private Sub Command1_Click()
Dim I As Long, Se As Long, X As Single, Y As Single
Me.Cls: Me.AutoRedraw = True
For I = 1 To 200
Randomize
Se = Rnd * &HFFFFFF
X = Rnd * Me.ScaleWidth
Y = Rnd * Me.ScaleHeight
Me.DrawWidth = 3 + Int(Rnd * 7)
Me.PSet (X, Y), Se
Next
End Sub
Dim I As Long, Se As Long, X As Single, Y As Single
Me.Cls: Me.AutoRedraw = True
For I = 1 To 200
Randomize
Se = Rnd * &HFFFFFF
X = Rnd * Me.ScaleWidth
Y = Rnd * Me.ScaleHeight
Me.DrawWidth = 3 + Int(Rnd * 7)
Me.PSet (X, Y), Se
Next
End Sub
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
晨控智能
2025-02-10 广告
可视化标签是广州晨控智能技术有限公司在物联网及自动识别领域的一项重要技术创新。通过先进的图形化界面设计，我们将复杂的数据信息转化为直观、易读的标签形式。这些标签不仅美观大方，更能够实时展示物品状态、库存数量、位置信息等关键数据。用户只需一眼...
点击进入详情页
本回答由晨控智能提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
