VB 鼠标点击后在窗口点击位置画个圆点标示,怎么写呀????

[zpl13]

VB 鼠标点击后在窗口点击位置画个圆点标示,怎么写呀????

[zuoxingyu]

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Const rPI As Single = 3.14159265358979 '圆周率
Me.Cls '清屏
Me.Circle (X, Y), 100, vbRed
End Sub

[SYSSZ]

Msdn的例子

Sub Form_Click()
   Dim CX, CY, Msg, XPos, YPos   ' Declare variables.
   ScaleMode = 3   ' 设置 ScaleMode 为像素。
   DrawWidth = 5   ' 设置 DrawWidth.
   ForeColor = QBColor(4)   ' 设置前景为红色。
   FontSize = 24   ' 设置点的大小。
   CX = ScaleWidth / 2   ' 得到水平中点。
   CY = ScaleHeight / 2   ' 得到垂直中点。
   Cls   ' 清窗体。
   Msg = "Happy New Year!"
   CurrentX = CX - TextWidth(Msg) / 2   ' 水平位置。
   CurrentY = CY - TextHeight(Msg)   ' 垂直位置。
   Print Msg   ' 打印消息。
   Do
      XPos = Rnd * ScaleWidth   ' 得到水平位置。
      YPos = Rnd * ScaleHeight   ' 得到垂直位置。
      PSet (XPos, YPos), QBColor(Rnd * 15)   ' 画五彩碎纸。
      DoEvents   ' 进行
   Loop   ' 其它处理。
End Sub

[SYSSZ]

Private Sub Form_Load()
Form1.Show
Form1.DrawWidth = 3
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form1.Show

PSet (X, Y), vbRed

End Sub

[duyin2004]

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
PSet (X, Y), vbRed
End Sub
其中x,y为鼠标的轨迹坐标
在鼠标按下的位址显示红色点

[ZOUYONG0929]

[Quote=引用 4 楼 duyin2004 的回复:]
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
PSet (X, Y), vbRed
End Sub
其中x,y为鼠标的轨迹坐标
在鼠标按下的位址显示红色点
[/Quote]

支持

[jare123123]

[Quote=引用 4 楼 duyin2004 的回复:]
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
PSet (X, Y), vbRed
End Sub
其中x,y为鼠标的轨迹坐标
在鼠标按下的位址显示红色点
[/Quote]

都是高手啊.