为什么ComboBox使用api函数sendmessage()查找匹配的项为什么不行？

Question

vIndex = SendMessage(Cb_city.hWnd, CB_FINDSTRING, -1,ByVal "字符%")

Answer 1

'查找前缀相同的
Dim buff As String
buff = Trim$(Text1.Text)
Combo1.ListIndex = SendMessage(Combo1.hwnd, CB_FINDSTRING, -1, ByVal buff)

Answer 2

为什么我还是调试不过呢？vb+access2000
combo1.additem "男"
combo1.additem "女"
Index = SendMessage(Combo1.hwnd, CB_FINDSTRING, -1, "男%")

Answer 3

Dim buff As String
buff = "男"
Index = SendMessage(Combo1.hwnd, CB_FINDSTRING, -1, ByVal buff)
　　　　　　　　　　　　　　　　　　　　　　　　　　　 ↑↑↑

Answer 4

vIndex = SendMessage(Cb_city.hWnd, CB_FINDSTRING, -1,CStr("字符%"))
                                                           ~~~~~~~~~

Answer 5

to zyl910(910：分儿，我来了！) :
加上Byval 出现内存错误!!

Answer 6

to zyl910(910：分儿，我来了！) :
to  tg123(T.G.):
你们调试都通过了吗！能发一个样例程序给我吗?你调试过的!
[email protected]

Answer 7

Private Declare Function SendMessageAsString Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Private Const CB_FINDSTRING = &H14CPrivate Sub Form_Load()
Cb_city.AddItem "aaa"
Cb_city.AddItem "bbb"
Cb_city.AddItem "ccc"
End SubPrivate Sub cmdFindBBB_Click()
Dim vIndex As Long
vIndex = SendMessageAsString(Cb_city.hwnd, CB_FINDSTRING, -1, "bbb")
Cb_city.ListIndex = vIndex
End Sub'-----------------以上代码测试通过---------------------------

Answer 8

jyu1221(天同) 兄，代码通过了，如果可以讲一下另一个参数
CB_FINDSTRINGEXACT 的用法！！一会给分