Comboboxのインデックス

Question

Private Sub btnAdressConversion_Click(sender As Object, e As EventArgs) Handles btnAdressConversion.Click
adressConversion()
cmbAdress.Items.Clear()
cmbAdress.Text = ""
Dim aryadress As ArrayList = postmessagetable.Item(mtxtPost.Text)
For i = 0 To aryadress.Count - 1
cmbAdress.Items.Add(aryadress(i))
Next

End Sub
Private Sub adressConversion()
	Dim reader As StreamReader = Nothing
	Dim ary As New ArrayList
			Try
		reader = New StreamReader(Application.StartupPath() & "\KEN_ALL.CSV", Encoding.Default)
		While (-1 < reader.Peek)
			Dim buffer As String = reader.ReadLine
			Dim arystr As String() = buffer.Split(",")
			arystr(0) = String.Format("{0:0000000}", CType(arystr(0), Integer))
			If mtxtPost.Text = arystr(0) Then
				If Not postmessagetable.ContainsKey(arystr(0)) Then
					ary.Add(arystr(1))
					postmessagetable.Add(arystr(0), ary)
				Else
					ary.Add(arystr(1))
					postmessagetable(ary) = ary

				End If
			End If
		End While
	Catch ex As Exception
		Throw ex
	Finally
		If reader IsNot Nothing Then
			reader.Close()

		End If

	End Try

End Sub

上記のコードを書いていますが
Comboboxに追加したときにコンボボックスの一番上に(テキスト部分に)表示させたいのですが
どのようにしたらよいでしょうか？
コンボボックスはcmbAdressです

Answer 1

Dim aryadress As ArrayList = postmessagetable.Item(mtxtPost.Text)
For i = 0 To aryadress.Count - 1
cmbAdress.Items.Add(aryadress(i))
↓
Dim aryadress As ArrayList = postMessageTable.Item(mtxtPost.Text)
cmbAdress.DataSource = aryadress
cmbAdress.DisplayMember = postMessageTable.Item(mtxtPost.Text).ToString

上記のコードに変更することで解決しました
ありがとうございます

Answer 2

追加と同時に選択させて、テキストボックス部分に表示させたいということでしょうか？

コンボボックスのデータソースとして表示内容のみセットしている場合

cmbAdress.Text = "text" 'テキスト領域に"text"を表示

コンボボックスのデータソースとしてコードと表示内容をセットしていて、コードで選択したい場合

cmbAdress.SelectedValue = "cd" '項目リストから"cd"の項目を選択

Answer 3

新しく追加するごとにその項目を一番上に置きたい、というのであれば、AddメソッドではなくInsertメソッドを使って

For i = 0 To aryadress.Count - 1 
    cmbAdress.Items.Insert(0, aryadress(i)) 
Next

としてみたらどうでしょうか。

Comments

[sobue]

一度やってみます。やってみてからのベストアンサー回答だしますでよろしくお願いします。

[sobue]

できませんでしたのでほかの方法はありませんか？