高考问答钟馗驱鬼的故事:帮帮我啊
来源：百度文库 编辑：高考问答 时间：2024/05/04 17:10:01
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
到底哪里错了啊?
'设置为十字形鼠标指针
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
到底哪里错了啊?