|
3#
楼主 |
发表于 2007-12-13 16:49:20
|
只看该作者
.NET 工程示例代码
Dim handle
Dim objIntPtr, objCursor
Dim xxx, yyy
handle = objTreeView.GetROProperty("hwnd")
Set objIntPtr = DotNetFactory.CreateInstance("System.IntPtr","",handle)
Set objCursor = DotNetFactory.CreateInstance_("System.Windows.Forms.Cursor","System.Windows.Forms",objIntPtr)
xxx = CInt(objCursor.Position.x)
yyy = Cint(objCursor.Position.y)
Set dr = CreateObject("Mercury.DeviceReplay")
dr.MouseDblClick xxx, yyy, 0 |
|