Private Sub Command6_Click()
Dim x As Double
Dim y As Double
 Frm_main_plant.SuperMap1.Layers.SetEditableLayer (1)
 Frm_main_plant.SuperMap1.Action = scaEditCreatePoint
 MouseDown_click
 x = Val(txtX.Text)
 y = Val(txtY.Text)
End Sub
请问怎么定义MouseDown，谢谢

Private Sub Command6_MouseDown_click
()
end sub

[[it] 本帖最后由 我是菜鸟哦 于 2008-10-8 17:47 编辑 [/it]]

非也 观察  MouseDown_click
MouseDown是个控件名   执行的click事件
Private Sub MouseDown_click()
End Sub

或者MouseDown_click就是个sub
Private Sub MouseDown_click()
End Sub

[[it] 本帖最后由 simpson 于 2008-10-8 17:48 编辑 [/it]]

哦，谢谢指教，我不记这些，我比较习惯用事件框选择

呵呵  客气

同样学习，，
楼主犯错了。直接用MOUSE触发事件就可以了。。。
嘿嘿。。学习。

二楼，同样犯错。他是mousedown事件，不应该command1事件同时存在，会报变量未定义

谢谢，各位指教，我是想在SUPERMAP图层上定点，现在不出现错误了，但是还定不上去，请指教