コンボBOXについて

環境/言語:[WindowsXP、VB.NET]
分類:[.NET]

こんにちは。
実は今、コンボBOXで選択した項目に対応する値をテキストBOXに反映させる方法を調べております。
例えば、コンボBOXで「Ａ」を選択すると、TextBOX1.Textに「１」、TextBox2.Textに「２」といった感じに表示させたいのですが、これをするにはどうしたらいいかわからずに困っています。
ご教授お願いいたします。

■No14627に返信(研究生さんの記事)
> こんにちは。
> 実は今、コンボBOXで選択した項目に対応する値をテキストBOXに反映させる方法を調べております。
> 例えば、コンボBOXで「Ａ」を選択すると、TextBOX1.Textに「１」、TextBox2.Textに「２」といった感じに表示させたいのですが、
> これをするにはどうしたらいいかわからずに困っています。
> ご教授お願いいたします。

似たような文章での質問が最近あったのでおいておきます。
ttp://vbnet-iku2.hp.infoseek.co.jp/cgi-bin/treecrsdx01/index.cgi?m=look&bnum=2488

# "リストBOX" でも "コンボBOX" でも "テキストBOX" への反映のさせ方は同じです。


_________________________________________________________________________
じゃんぬ　Microsoft MVP for Visual Developer - C#
　 http://jeanne.wankuma.com/
　 http://blogs.wankuma.com/jeanne/

2006/01/25(Wed) 14:29:01 編集(投稿者)

＞じゃんぬねっとさん

ありがとうございます。
リンク先で書かれていたことを参考に２日かかって何とかできました！(^^;)

一応似たようなことで困っている人がいた時の過去検索用にコードを貼っときますね！

−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−

Friend Class PersonalInfo
Public Kazu As String
Public Name As String
Public Sub New(ByVal Kazu As String, ByVal Name As String)
Me.Kazu = Kazu
Me.Name = Name
End Sub
Public Overrides Function ToString() As String
Return Name
End Function
End Class

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

With Me.ComboBox1.Items
.Add(New PersonalInfo("1", "りんご"))
.Add(New PersonalInfo("2", "みかん"))
.Add(New PersonalInfo("3", "すいか"))
End With

End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

With DirectCast(Me.ComboBox1.SelectedItem, PersonalInfo)
TextBox.Text = .Kazu
End With

End Sub