是控制和赋值一个外部程序的控件 一般的EDIT类控件没问题   就是下拉框控件 应该如何赋值呢?

解决方案 »

  1.   

                   nIndex = SendMessage(tempHwnd, LB_FINDSTRING, -1, ByVal "Chinese")
                    'MsgBox nIndex
                    If nIndex < 0 Then Exit Sub
                    SendMessage tempHwnd, LB_SETCURSEL, nIndex, 0
                    SendMessage tempHwnd, LB_SETTOPINDEX, nIndex, 0tempHwnd 句柄
    Chinese 为ListBox中的字符
    LB_FINDSTRING 搜索LB中包含的字符串,并返回位置