天津专业纹身:帮帮我啊

来源:百度文库 编辑:中科新闻网 时间:2024/05/09 08:58:29
Private Sub Form_Load()
'设置为十字形鼠标指针
From1.MousePointer = 2
'设置点的大小
From1.DrawWidth = 10
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If buttom = 1 Then '按下鼠标左键
If Shift = 2 Then '同时按下ctrl键
PSet (X, Y), vbWhite '白色点
Else
PSet (X, Y), vbBlack '黑色点
End If
End If
End Sub

到底哪里错了啊?