Question

为什么我使用了sendmessage函数以后，我的程序就未响应了呢？

我做的一个窗体里的按钮的功能是打开记事本的另存为按钮，
这个功能我已经实现了，可是我的窗体却处于了未响应状态，
必须要把记事本的另存为窗口关掉才能解除未响应状态？
请高人帮忙解决这个问题，不让我的窗体未响应，因为我在打开另存为以后还有一系列的操作，但是一打开另存为窗口以后程序就不响应了，也就无法执行后续操作了。

代码是（声明已省略）：

Private Sub Command1_Click()

Dim winHnd, sh As Long
winHnd = FindWindow("Notepad", "无标题 - 记事本") ‘查找记事本的句柄
sh = GetMenu(winHnd) ‘获得菜单栏句柄
sh = GetSubMenu(sh, 0) ’获得“文件”的句柄
sh = GetMenuItemID(sh, 3) ’获得“另存为”的ID
SendMessage winHnd, WM_COMMAND, sh, ByVal 0& ‘执行打开“另存为”的命令

End Sub

Answer 1

SendMessage 函数是同步的，要等待函数返回；PostMessage 函数是异步的，建议使用PostMessage 来代替SendMessage 以解决你的问题。