玄関へお回り下さい。
ComboBoxでよく使用する設定集 (8)              (SNo.175)

1.ComboBoxに項目を書き込む
2.テキストボックスに最初に表示して置く項目を設定
3.選択されている項目を取得する
4.選択されている項目のインデックスを取得する
5.ドロップダウンリストの表示項目数を変更する
6.ドロップダウンリストの表示・非表示をプログラムから実行
7.ドロップダウンリスト部の表示幅を変更する
8.登録されていない項目だけを調べて(検索して)追加書き込みする
使用コントロール Form1　Button1 〜  Button6  ComboBox1
その他条件 WindowsXP  Visual Basic .NET2003　VB2005
　
★　ComboBoxに項目を書き込む
　
Private Sub Form1_Load(ByVal sender As System.Object, _
                       ByVal e As System.EventArgs) Handles MyBase.Load
   With ComboBox1
      .Items.Add("アワビ")
      .Items.Add("イカ")
      .Items.Add("イクラ")
      .Items.Add("ウニ")
      .Items.Add("エビ")
      .Items.Add("たこ")
      .Items.Add("たまご")
      .Items.Add("鉄火巻き")
      .Items.Add("トロ")
      .Items.Add("ハマチ")
      .Items.Add("マグロ")
      .BackColor = Color.PowderBlue
      .Font = New Font("ＭＳ Ｐゴシック", 12)
      .Text = "トロ"　'テキストボックスに最初に表示して置く項目を設定
   End With
End Sub
　
★　選択されている項目を取得する
　
Private Sub Button1_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button1.Click
'選択されている項目を取得する
   Dim si As String = ComboBox1.SelectedItem
   Debug.WriteLine(si)
End Sub　
　
★　選択されている項目のインデックスを取得する
　
Private Sub Button2_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button2.Click
'選択されている項目のインデックスを取得する
   Dim si As Integer = ComboBox1.SelectedIndex
   Debug.WriteLine(si)
End Su　
★　ドロップダウンリストの表示項目数を変更する
　
Private Sub Button3_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button3.Click
'ドロップダウンリスト項目数を変更する
   If ComboBox1.MaxDropDownItems = 10 Then
      ComboBox1.MaxDropDownItems = 5
   Else
      ComboBox1.MaxDropDownItems = 10
   End If
End Sub
★　ドロップダウンリストの表示・非表示をプログラムから実行
　
Private Sub Button4_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button4.Click
'コンボボックスのドロップダウンリストを表示・非表示
   ComboBox1.DroppedDown = Not ComboBox1.DroppedDown
   'ComboBox1.DroppedDown = True
End Sub
　
★　ドロップダウンリスト部の表示幅を変更する
　
Private Sub Button5_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button5.Click
'ドロップダウン部分の表示幅を変更する
   ComboBox1.DropDownWidth = 250
End Sub
　
★　登録されていない項目だけを調べて追加書き込みする
　
Private Sub Button6_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button6.Click
'登録されていない項目だけを調べて追加書き込み
   Dim x As Integer = -1
   x = ComboBox1.FindStringExact(ComboBox1.Text, x)
   If x <> -1 Then
      MessageBox.Show("すでに登録されています")
      ComboBox1.Text = ""
   Else
      If MessageBox.Show("追加登録しますか?", "追加登録", _
                      MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
         ComboBox1.Items.Add(ComboBox1.Text)
         ComboBox1.Text = ""
      End If
   End If
End Sub
　
ListBox と同様の操作で実行できる物がありますので、リストボックスでよく使用する設定集 も参考にして下さい。


2006/02/23


VBレスキュー(花ちゃん)
VB.NET2003　　VB2005