PB发送和接收消息send SendMessage - PowerBuilder - 51CTO技术论坛

社区导航: 专家门诊网络技术操作系统数据库程序设计系统应用考试认证 CIO及信息化站长交流综合交流下载基地 51CTO产品服务

【设为首页 | 收藏本站】

51CTO技术论坛» PowerBuilder » PB发送和接收消息send SendMessage [ 打印] [ 订阅] [ 收藏] [ 推荐给朋友] [ 本帖文本页]

论坛跳转:

本主题由 ribut9225 于 2008-7-2 08:47 加入本版推荐

iamtest1
新新人类

帖子 2
精华 0
无忧币 14
积分 13
阅读权限 20

注册日期 2008-6-26

最后登录 2008-6-30

离线

[查看资料] [发短消息] [Blog]

发表于:2008-6-30 13:48　　标题：PB发送和接收消息send SendMessage
＜上一帖 | 下一帖＞

1.用PB自带的SEND函数发送消息　传字符：Send(Handle(w_main),1600,0,'dfdfd')　传LONG：Send(Handle(w_main),1600,0,123)
2.用API发送LONG类型消息，申明：
Function long SendMessage(long hwnd,long wMsg,long wParam,long lParam) Library "user32.dll" Alias for "SendMessageA"
发送：SendMessage(Handle(w_main),1600,0,123)
接收方法：
Other事件代码：
if message.number=1600 then
string ls_tmp
　　 ls_tmp=string(message.LongParm)
messagebox("",ls_tmp)
end if
3.用API发送string类型消息，申明：
Function long SendMessage(long hwnd,long wMsg,long wParam,string lParam) Library "user32.dll" Alias for "SendMessageA"
发送：SendMessage(Handle(w_main),1600,0,'123')
接收方法：
Other事件代码：
if message.number=1600 then
string ls_tmp
　　 ls_tmp=string(message.LongParm,'address') //注意这里接收字符的方法
messagebox("",ls_tmp)
end if