“点”的画法

renyucai1963

新建文件夹 (2).zip (1.38 KB, 下载次数: 371)

2012-12-3 21:09 上传

点击文件名下载附件



Private Sub Command1_Click()
Dim x As Integer, y As Integer
Dim i As Integer
x = 1000: y = 1000
Me.DrawWidth = 5
For i = 0 To 10000 Step 5000
PSet (x + i, y), vbRed
Next
For i = 0 To 10000 Step 2500
PSet (x + i, y + 500), vbRed
Next
For i = 0 To 10000 Step 1250
PSet (x + i, y + 1000), vbRed
Next
For i = 0 To 10000 Step 625
PSet (x + i, y + 1500), vbRed
Next
For i = 0 To 10000 Step 312.5
PSet (x + i, y + 2000), vbRed
Next
For i = 0 To 10000 Step 156.25
PSet (x + i, y + 2500), vbRed
Next
End Sub

renyucai1963

新建文件夹 (2).zip (1.58 KB, 下载次数: 353)

2012-12-4 01:07 上传

点击文件名下载附件

Option Explicit

Private Sub Command1_Click()
Dim x As Integer, y As Integer, i As Integer
x = 1000: y = 1000
Me.DrawWidth = 5
For i = 1 To 7000 Step 200
PSet (x + i, y), vbRed
Next
For i = 1 To 7000 Step 200
PSet (8000, y + i), vbRed
Next
For i = 7000 To 1 Step -200
PSet (x + i, 8000), vbRed
Next
For i = 7000 To 1 Step -200
PSet (1000, y + i), vbRed
Next
End Sub

Private Sub Form_Load()
Me.Top = 500
Me.Caption = Date & " " & Time & " " & WeekdayName(Weekday(Now))
End Sub

renyucai1963

新建文件夹 (3).zip (1.46 KB, 下载次数: 335)

2012-12-4 01:31 上传

点击文件名下载附件



Private Sub Command1_Click()
Picture1.Cls
End Sub

Private Sub Form_Load()
Me.Caption = Date & " " & Time & " " & WeekdayName(Weekday(Now))
End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Picture1.DrawWidth = 3
    If st = 0 Then
        XOld = X
        YOld = Y
        Picture1.PSet (X, Y)
        st = 1
    Else
        If Button = 1 Then
            Picture1.Line -(X, Y)
        Else
            Picture1.Line -(XOld, YOld)
        End If
    End If
End Sub

http://www.vbgood.com/forum.php? ... ;pre_pos=1&ext=

maninblack

我顶你个贴的，你这太应景了，我正想用呢，于是你出现了，爱死你了。me.drawwidth是吧，设置线条粗的说？嗯就是这个

418892474

顶。。。。。

renyucai1963

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