[リストへもどる]
一括表示

投稿時間:2002/09/30(Mon) 15:46
投稿者名:ひろ
Eメール:
URL :
タイトル:
コンボボックスの選択前
いつも参考にさせてもらっています。
どうしてもわからないのです。
コンボボックスをクリックすると、リストの一覧が出ますよね
そのリストが出ている時の、反転して表示しているindexなどわかるんでしょうか?
やりたい事は、リストボックスに画像の名前など入れておいて、反転しているところの画像を
プレビューの様な感じで表示して、目的の画像を選択したいのです。
よろしくお願いします。

投稿時間:2002/09/30(Mon) 16:02
投稿者名:花ちゃん
Eメール:
URL :
タイトル:
Re: コンボボックスの選択前
すみません。勘違いしていたようです。<m(__)m> 

下に、再回答しました。(^_^;)

投稿時間:2002/09/30(Mon) 16:13
投稿者名:名無し
Eメール:
URL :
タイトル:
Re: コンボボックスの選択前
> コンボボックスをクリックすると、リストの一覧が出ますよね
> そのリストが出ている時の、反転して表示しているindexなどわかるんでしょうか?

こういう場合、ドロップダウンリストのMouseMoveメッセージを処理するのでしょうが、
Timerコントロールを使って、ドロップダウンリストのマウス座標をIndexに変換した
方がいいかも?

投稿時間:2002/09/30(Mon) 16:27
投稿者名:ひろ
Eメール:
URL :
タイトル:
Re^2: コンボボックスの選択前
やっぱり座標で対処するしかないんでしょうか・・・
リストの所マウスで動かすと反転表示されるので、もっと簡単な方法があると思ったのですが・・・
悩みながらがんばってみます。

投稿時間:2002/09/30(Mon) 17:00
投稿者名:花ちゃん
Eメール:
URL :
タイトル:
Re^3: コンボボックスの選択前
すみません。私の勘違いでした。MouseMove イベントがないので
Timer イベントで SendMessage を呼べば取得できます。

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_GETCURSEL = &H147

Private Sub Timer1_Timer()
    Label1.Caption = SendMessage(Combo1.hwnd, CB_GETCURSEL, 0&, ByVal 0&)
End Sub

  
API を使わなくてもこれで取得できるようです。

Private Sub Timer1_Timer()
    Label1.Caption = Combo1.ListIndex
End Sub

投稿時間:2002/10/01(Tue) 10:30
投稿者名:ひろ
Eメール:
URL :
タイトル:
ありがとうございます
ありがとうございます〜
できました
また、何かありましたらよろしくお願いします