我用一下的代码可以给同样的vb程序中的文本框传递数据。但是老是获得不了pb程序中数据窗口控件中文本的句柄。请大家帮忙Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Any, ByVal lpsz1 As Any, ByVal lpsz2 As String) As Long'发消息
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
'转载请注明出自外挂海论坛,本贴地址:http://bbs.wghai.com/thread-130968-1-1.html
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Any, ByVal lpsz1 As Any, ByVal lpsz2 As String) As Long'发消息
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
'转载请注明出自外挂海论坛,本贴地址:http://bbs.wghai.com/thread-130968-1-1.html
解决方案 »
- listview与table的区别
- 新建立一个数据库时,如何不用sql建立主键
- 为什么sql数据表中bit的字段赋值会出错
- 怎样才能在msgbox弹出的同时,后台执行其它代码?
- 实用代码:【源码下载】CVBHardwareController —— 获得硬件列表;对指定硬件进行启动和禁用
- 对话框???????
- 我在Word中定了一个书签,想用VBA在书签的地方插入一张图片,书签位置随文档内容而变的。怎么做?在线给分:100分
- msflexgrid这段代码为什么得不到预想的结果
- 十分急用!!愿意把我所有的分数都送上!
- 救急!谁有vb的中英文对照资料(一万个字符)
- VB获取TXT指定内容
- VB+ACCESS里对象数据类型为文本如何取
可是pb用的是datawindow控件。没有办法获得。datawindow中的文本控件。是这个意思
两个独立的vb程序之间通信。传递文本已经实现了。