VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 2805|回复: 5

[分享] “点”的画法

[复制链接]
发表于 2012-12-3 21:09:48 | 显示全部楼层 |阅读模式
新建文件夹 (2).zip (1.38 KB, 下载次数: 371)

本帖被以下淘专辑推荐:

 楼主| 发表于 2012-12-4 01:07:55 | 显示全部楼层
未命名.JPG

新建文件夹 (2).zip (1.58 KB, 下载次数: 353)
回复 支持 反对

使用道具 举报

 楼主| 发表于 2012-12-4 01:32:11 | 显示全部楼层
新建文件夹 (3).zip (1.46 KB, 下载次数: 335)
回复 支持 反对

使用道具 举报

发表于 2012-12-5 08:19:57 | 显示全部楼层
我顶你个贴的,你这太应景了,我正想用呢,于是你出现了,爱死你了。me.drawwidth是吧,设置线条粗的说?嗯就是这个
回复 支持 反对

使用道具 举报

发表于 2012-12-5 18:33:27 | 显示全部楼层
顶。。。。。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2013-1-5 11:43:11 | 显示全部楼层
未命名.JPG

Option Explicit

Private Sub Form_Click()
Dim i As Integer
Me.DrawWidth = 5 '点的大小
For i = 1 To 10000 Step 200 '点的数量(个数)
Me.PSet (1000 + i, 1500), vbRed '点的位置和颜色
Next
End Sub

Private Sub Form_Load()
Me.Caption = Date & " " & Time & " " & WeekdayName(Weekday(Now))
End Sub
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2021-2-27 22:54

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表