VB程序员博客

VB程序开发

SendMessage   QuHwnd,   CB_SELECTSTRING,   -1,   ByVal   Idx
SendMessage   QuHwnd,   CB_SETCURSEL,   3,   0
句柄我获取对的
用这两种方法   对那个程序都有问题   我截图给大家看   说不太清楚
选中了   但是没有显示出来   在下拉菜单中是选中状态   但是外面现实的还是原来的

我的MSN:bobo.dandan@gmail.com   希望懂这方面的人加我共同讨论   共同学习

发送SHOWDROPDOWN消息
SendMessage   Me.cbData.hwnd,   CB_SHOWDROPDOWN,   1,   0&

国人写的   Unicode   ucComboBoxEx   ,很好的解决了Unicode问题。
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=66273&lngWId=1

里面有你所要的关于sendmessage几乎所有的信息。

chenhui530   你发的是展开下拉菜单   我是要选中啊   这样不行吧   就发送着一个消息么?

VBAdvisor   这个问题不是Unicode的问题   你看看图片

这个   好像是原来那个程序设计的问题   有什么办法啊~?

国人写的   Unicode   ucComboBoxEx   ,里面有你所要的关于sendmessage几乎所有的信息.
你看看人家是怎样运用sendmessage。

你那个是标准的ComboBox吗,
我用VB做了个exe,然后在VB开发环境中控制这个exe上的ComboBox的选择是可以做到的啊

SendMessage   QuHwnd,   CB_SELECTSTRING,   -1,   ByVal   Idx
SendMessage   QuHwnd,   CB_SETCURSEL,   3,   0

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
Private   Const   CB_SETCURSEL   =   &H14E

Private   Sub   Command1_Click()
SendMessage   QuHwnd,   CB_SETCURSEL,   NewIndex,   3&     'NewIndex从0开始,3就是说想选中第2项,
End   Sub

'常数   CB_SETCURSEL   就是   combo的   listindex属性

……………………………

你那个是标准的ComboBox吗,
我用VB做了个exe,然后在VB开发环境中控制这个exe上的ComboBox的选择是可以做到的啊

———————
那个我用SPY++看了   CLASS是   COMBOBOX但是就是有问题   我也用VB的COMBOBOX测试过了   是可以的   但是那个程序   我没有源代码   就是有问题   但是页有反应的   你看看我163相册里面的图片   我选中一个   然后   下拉以后   应该是选中那个被选中   但是我用那个程序发送消息给他以后   变成我发送消息那个在下拉菜单中被选中   但是选项默认显示项目还是原来选中的那个   我都解释不太清楚   谁有解决方案   加我MSN哦   还有就是   工具条   里面有个“按钮”   但是没有句柄   怎么向他发送点击事件呢?

reply   off   line

VBAdvisor  
什么意思啊?   问题还是没有解决   不是标准的COMBOBOX是不是就没有办法咯啊   有没有软件来获取WINDOWS的消息啊     找到那个消息然后发送行不行啊?


标签: , , ,