event对象 Sub document_onClick() Dim LF,x,y LF=chr(13)+chr(10) x=window.event.x y=window.event.y MsgBox "鼠标当前位置是:" & LF & "X=" & x & " Y=" & y,64+0,"鼠标位置" End Sub 点击鼠标即可显示它现在所在的位置
虫虫下载站 半导体技术网 电子研发网 源码地带 电源技术网 单片机技术网 医疗电子技术 嵌入式系统与单片机