コンボボックスの三角を一時的に消す方法。

こんにちは。
コンボボックスの三角を一時的に消す方法を探しています。

Accessのデータシート形式でのコンボボックスの様にしたいと思っています。
セルをクリックすると三角とリストが表示されて、放すと無くなる様にしたいです。

ご存知の方いらっしゃいましたら宜しくお願い致します。

No.2 ベストアンサー 回答者： M-SOFT#2 回答日時： 2006/05/09 17:34

こんにちは。

VBのバージョンは？

VB6は分からないので、VB.NET(2002～2005)だとして答えます。

コンボボックスの　DropDownStyleプロパティをSimple にすれば▼は表示されません。

ただし、デザイン画面でプロパティから変更すると通常はリストが常に表示されます。そこでフォームのLoadイベントで設定します。

コンボボックスのフォーカス取得時にDropDownStyleをSimple以外にし、フォーカスを失った時にSimpleに戻します。

取得時はスタイルを変更するだけでいいですが、失った時にスタイルを変更するとまたフォーカスを取得するようなので次のコントロールにフォーカスを移します。

Private Sub ComboBox1_Enter(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles ComboBox1.Enter
'スタイル変更
ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
End Sub

Private Sub ComboBox1_Leave(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles ComboBox1.Leave
'スタイル変更
ComboBox1.DropDownStyle = ComboBoxStyle.Simple
Me.SelectNextControl(ComboBox1, True, True, True, True)
End Sub

どうでしょうか。

この回答へのお礼

有難う御座います。
参考にさせて頂きます。

お礼日時：2006/05/10 15:57

No.3 回答者： imogasi 回答日時： 2006/05/10 00:12

エクセルなどでは,コントロールツールボックスのコンボボックスにShowDropButtonWhenプロパティがありfmShowDropButtonWhenAlways

fmShowDropButtonWhenFocus
（質問者の希望は後者）
があります。VB6にもないかまず調べてください。

この回答へのお礼

有難う御座います。
AccessのVBAを探していました。
カテゴリが違ってました。

お礼日時：2006/05/10 16:01

No.1 回答者： tarodaro 回答日時： 2006/05/09 14:16

３つの方法

１．ラベル等で三角部分を隠す
隠しててもフォーカスがあたれば表示されます

２．コンボと同サイズのテキストボックスで覆い隠す
コントロールソース___コンボと同じ
タブストップ_________いいえ
フォーカス取得時_____のイベントプロシージャに
me.コンボボックス名.setfocus

３．気にしない

この回答へのお礼

有難う御座います。

お礼日時：2006/05/10 15:56