別プログラムのコンボボックスを選択するには

解決

ハッピーハッピー 2006-05-06 15:21:59 No: 95277

VB2005です
別プログラムのコンボボックスを選択したいのですが、どうやったらいいでしょうか？

SendMessageでドロップダウンまでは以下のようにすればいいと分かったのですが、選択する方法が分かりません
'cbFunc% = -1 displays the list
'cbFunc% = 0 hide the list
Dim cbFunc% = -1
SendMessage(hWnd, CB_SHOWDROPDOWN, cbFunc%, 0)

よろしく、お願い致します

ハッピーハッピー 2006-05-06 15:59:04 No: 95278

SetWindowTextを使ってみました

SetWindowText(hWnd, "Printer A")

しかし、入力可能なコンボボックス(DropDown形式)でしたらこれでＯＫなのですが、入力できないコンボボックス(DropDownList形式)だとＮＧです

ハッピーハッピー 2006-05-06 16:49:47 No: 95279

解決しました

Declare Function SendMessage Lib "user32" _
  Alias "SendMessageA" (ByVal hwnd As Integer,_
                        ByVal wMsg As Integer, _
                        ByVal wParam As Integer, _
                        ByVal lParam As String) As Integer
Const CB_SELECTSTRING = &H14D

SendMessage(hWnd, CB_SELECTSTRING, -1, "Printer A")

これでＯＫでした