“Post(ll_dw_handle, 1305, 0, 0) ,可以使数据窗口弹出saveas的对话框” 这一条我测试了,没有问题;
但是这一段
Function integer SndMsg(long hWnd, long uMsg, long wp, &
ref string filename) library “user32.dll” Alias For “SendMessageA”
long ll_handle
ll_handle = handle(dw_1)
string s
s=”c:\111.txt”
SndMsg(ll_dw_handle, 1305, 2, s)
没有任何作用?!
请高手指导,有偿。
-----------------
下面引用来自网上:
通过测试发现使用Post(ll_dw_handle, 1305, 0, 0) ,可以使数据窗口弹出saveas的对话框,经过进一步的试验,发现wparam和lparam参数的含义分别是 :saveas type和 savefilename字符串的地址,所以我们就可以使用发送消息的方式使数据窗口内容保存为文本文件,然后读取文件就可以获取数据了。
我在pb程序中的测试代码:
Function integer SndMsg(long hWnd, long uMsg, long wp, &
ref string filename) library “user32.dll” Alias For “SendMessageA”
long ll_handle
ll_handle = handle(dw_1)
string s
s=”c:\111.txt”
SndMsg(ll_dw_handle, 1305, 2, s)
如果要编写一个数据窗口外挂程序,只要得到数据窗口的句柄就可以了。
以下为消息对应的Datawindow命令(网上搜索的资料)
Function Power script
Retrieve Post(ll_handle, 1306, 0, 0)
- Post(ll_handle, 1320, 0, 0)
Retrieve (yield) Post(ll_handle, 1306, 1, 0)
- Post(ll_handle, 1320, 0, 0)
ScrollNextPage Post(ll_handle, 1318, 0, 0)
ScrollPriorPage Post(ll_handle, 1319, 0, 0)
ScrollToFirstPage Post(ll_handle, 1315, 0, 1)
ScrollToLastPage Post(ll_handle, 1315, 0, 999999)
Sort Dialog Post(ll_handle, 1309, 0, 0)
Filter Dialog Post(ll_handle, 1311, 0, 0)
Append Row Post(ll_handle, 1357, 0, 0)
- Post(ll_handle, 1312, 0, 0)
- Post(ll_handle, 1315, 0, 999999)
- Post(ll_handle, 1325, 0, 0)
InsertRow Post(ll_handle, 1357, 0, 0)
- Post(ll_handle, 1313, 0, 0)
- Post(ll_handle, 1312, 0, 1)
- Post(ll_handle, 1315, 0, 1)
- Post(ll_handle, 1325, 0, 0)
DeleteRow Post(ll_handle, 1357, 0, 0)
- Post(ll_handle, 1307, 0, 0)
Update Post(ll_handle, 1357, 0, 0)
- Post(ll_handle, 1338, 0, 0)
- Post(ll_handle, 1304, 0, 0)
SaveAs Dialog Post(ll_handle, 1338, 0, 0)
- Post(ll_handle, 1305, 0, 0)
Print Post(ll_handle, 1303, 0, 0)
Cancel Post(ll_handle, 1320, 0, 0)
————————————————
版权声明:本文为CSDN博主「WorldMobile」的原创文章,遵循 CC 4.0 BY-SA 版权协议,转载请附上原文出处链接及本声明。
原文链接:https://blog.csdn.net/lzp_lrp/article/details/77877063