Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


11667 / 13645 ツリー ←次へ | 前へ→

【14576】コンボボックスの文字の反転 佐藤123 04/6/2(水) 11:20 質問[未読]
【14631】Re:コンボボックスの文字の反転 Jaka 04/6/3(木) 12:39 回答[未読]
【14804】Re:コンボボックスの文字の反転 佐藤123 04/6/8(火) 10:18 発言[未読]
【14814】Re:コンボボックスの文字の反転 Jaka 04/6/8(火) 15:25 発言[未読]
【14815】Re:コンボボックスの文字の反転 Asaki 04/6/8(火) 15:27 発言[未読]
【14883】Re:コンボボックスの文字の反転 Jaka 04/6/9(水) 9:07 回答[未読]
【14890】Re:コンボボックスの文字の反転 佐藤123 04/6/9(水) 13:39 お礼[未読]

【14576】コンボボックスの文字の反転
質問  佐藤123  - 04/6/2(水) 11:20 -

引用なし
パスワード
   いつもお世話になってます。

やっとコンボボックスの選択された文字を
編集不可にすることに成功しました。(^^;

 プロパティ Style:2-fmStyleDropDownList

これによって新たな疑問が発生してしまいました。
リストより選択されたものの文字が反転してしまいます。

これは仕様なのでしょうか?
選択されても、その文字が反転しない設定がどこかにあるのでしょうか?

よろしくお願いします。

【14631】Re:コンボボックスの文字の反転
回答  Jaka  - 04/6/3(木) 12:39 -

引用なし
パスワード
   こんにちは。

> プロパティ Style:2-fmStyleDropDownList
>これによって新たな疑問が発生してしまいました。
>リストより選択されたものの文字が反転してしまいます。
Style:1のままでも、97だと反転しますけど。

【14804】Re:コンボボックスの文字の反転
発言  佐藤123  - 04/6/8(火) 10:18 -

引用なし
パスワード
   ▼Jaka さん:
おはようございます。

>> プロパティ Style:2-fmStyleDropDownList
>>これによって新たな疑問が発生してしまいました。
>>リストより選択されたものの文字が反転してしまいます。
>Style:1のままでも、97だと反転しますけど。
 プロパティ Style:0-fmStyleDropDownCombo
     Style:2-fmStyleDropDownList
 Style:0だと中身を編集できるので、反転しているのはわかるのですが、
 (Excel2000、コントロールツールボックスのコンボボックスには
  Style:1の選択はありませんでした。)
 Style:2では編集できないのに反転しているので何故かなぁ・・と。
 そして、その反転をやめられるのかなぁ・・と。

どうしても反転させたくない訳ではないのですが・・。
「そういう仕様」なのでしょうね・・。

【14814】Re:コンボボックスの文字の反転
発言  Jaka  - 04/6/8(火) 15:25 -

引用なし
パスワード
   すみません。
>Style:1の選択はありませんでした。
0と間違えていました。

反転をとくのは出来ないみたいですね。

【14815】Re:コンボボックスの文字の反転
発言  Asaki  - 04/6/8(火) 15:27 -

引用なし
パスワード
   こんにちは。

反転しなかった場合、選択した後に、再度リストをドロップダウンしたときに、
どれが選択されていたか解らないから。。。でしょうか。

設定を探してみたんですが、なさそうです。
>「そういう仕様」なのでしょうね・・。
たぶん、そうなんでしょうね。

【14883】Re:コンボボックスの文字の反転
回答  Jaka  - 04/6/9(水) 9:07 -

引用なし
パスワード
   白黒反転だけって事で、一応2つの案を考えてみました。

1、
Private Sub ComboBox1_Change()
  Application.EnableEvents = False
  ComboBox1.Style = 2
  'SendKeys "{Home}" 'Rightかどっちか好きな方。
  SendKeys "{Right}"
  ComboBox1.Style = 0
  Application.EnableEvents = True
End Sub

Private Sub CommandButton1_Click()
  If ComboBox1.ListIndex >= 0 Then
    MsgBox ComboBox1.List(ComboBox1.ListIndex)
  End If
End Sub

2、
別のコントロールにフォーカスを移す。
Private Sub ComboBox2_Change()
  CommandButton2.SetFocus
End Sub

【14890】Re:コンボボックスの文字の反転
お礼  佐藤123  - 04/6/9(水) 13:39 -

引用なし
パスワード
   Jakaさん、Asakさん
ありがとうございました。

「そういうものだ」と言う事で解決とさせていただきます。
ドロップダウンした時の反転は納得できますが、
選択後、表示は一つになるのだから、
わざわざ反転させなくてもいいのになぁ・・。

ありがとうございました。

11667 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free