|
|
サンプル投稿用掲示板 VB2005 〜 用トップページ VB6.0 用 トップページ
- 日時： 2007/08/21 15:36
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[コンボボックス][][] *
* キーワード：マウスカーソル,ドロップダウン,,,, *
***********************************************************************************
元質問：コンボボックスのドロップダウンリスト - KANA 2007/05/17-08:29 No.9158
早速ですがここに掲載されている、【コンボボックスのドロップダウンリストを表示】を活用したいと考えていますが開く動作を Private Sub Command1_Click() ではなく Private Sub Combo1_Change() で動作させるとリスト表示されたあとのマウスカーソルが消えてしまいます。
何か良い解決方法はないでしょうか？？
-----------------------------------------------------------------------------------
Re: コンボボックスのドロップダウンリスト - 魔界の仮面弁士 2007/05/17-11:02 No.9160
こんなのがありました。
直接的な関係は無いかも知れませんが、間接的には関係あるかも。
http://forums.microsoft.com/MSDN-JA/ShowPost.aspx?PostID=1299081&SiteID=7
http://support.microsoft.com/kb/418696/ja
-----------------------------------------------------------------------------------
Re^2: コンボボックスのドロップダウンリス.. - 花ちゃん 2007/05/17-11:42 No.9161
私は、非表示になっていたので、解らなかったのですが上記を試したら同様ですね。
下記なら消えないようです。
Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
Call SendMessage(Combo1.hWnd, CB_SHOWDROPDOWN, 1&, ByVal 0&)
End Sub
-----------------------------------------------------------------------------------
上記、マウスカーソルが消える要因は、Combo1_Change イベント内で処理し、且つ、コントロールパネルの[マウスのプロパティ]での、【文字の入力中にポインタを非表示にする】設定をオンにしているとマウスのカーソルが消えてしまうようです。
 |
|
