tt978501 发表于 2011-8-10 16:00:21

[求助]怎么向弹出的对话框里发送确定命令

本帖最后由 tt978501 于 2011-8-10 16:02 编辑

如图，我用的是天河CAD,命令TZ是图纸设置。
Sub abc()
sendkeys "TZ"
sendkeys "{enter}"      '前两步是向命令行输入TZ命令，之后会弹出如图的对话框，接下来该输什么命令（这命令等于对话框的确定）。
End Sub

gulong2001 发表于 2011-8-10 16:46:30

使用FindWindow找到对话框窗体句柄
再用EnumChildWindows找到这对话框中确定按钮的句柄
最后SendMessage 发送BM_CLICK消息

tt978501 发表于 2011-8-11 07:45:20

本帖最后由 tt978501 于 2011-8-11 07:47 编辑

回复 gulong2001 的帖子

嗯 待会试试看

Sub abc()
sendkeys "TZ"
sendkeys "{enter}"
Print
End Sub
我发现直接加个PRINT能直接确认，呵呵，对语言不熟悉啊
页: [1]
查看完整版本: [求助]怎么向弹出的对话框里发送确定命令