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

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

imypq1bo3cd.png

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

gulong2001 · 发表于 2011-8-10 16:46:00

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

tt978501 · 发表于 2011-8-11 07:45:00

回复
嗯待会试试看
Sub abc()
  sendkeys "TZ"
  sendkeys "{enter}"
  Print
End Sub
我发现直接加个PRINT能直接确认，呵呵，对语言不熟悉啊