Question

vb中如何实现combobox和文本框的关联

比如，在combobox中选中苏州，旁边的文本框中就显示有关苏州的一些文字信息；在选中其他城市，又会有其他城市的信息。
这样子能不能实现，文本框中的信息是直接在代码中输还是另外建txt文档？这段程序的代码是什么样子的，急求大神指教~~！谢谢~~！

Answer 1

你好，你的思路是正确的，可以实现的。

Private Sub Combo1_click()'去读城市txt介绍 比如苏州.txt
    Dim Lines As String, NextLine As String, i As Integer
    Open App.Path & Combo1.Text & ".txt" For Input As #1
    Do While Not EOF(1)
        On Error Resume Next
        Line Input #1, NextLine
        Lines = Lines & NextLine & Chr(13) & Chr(10)
    Loop
    Close #1
    Text1.Text = Lines
End Sub
Private Sub Form_Load()
    Dim a() As String, i&
    a = Split("苏州,南京,上海,无锡,济南", ",")'城市可以添加，以,隔开
    For i = 0 To UBound(a)
        Combo1.AddItem a(i)
    Next
End Sub

追问

你好，谢谢你这么晚还帮忙回答问题还肯定了我的想法，但由于我自身对文件的读取，引用这块不大熟悉，所以引用外部文件对我会有些吃力，我还需要一段时间消化一下这段代码，所以非常抱歉没有选你的答案，再次感谢你的解答~~谢谢！~~~

Answer 2

Private Sub Combo1_Click()
   Select Case Combo1.Text
      Case "广州"
         Text1.Text = "广州是广东的省会。"
      Case "北京"
         Text1.Text = "北京是中国的首都。"
      Case "海口"
         Text1.Text = "海口是海南的省会。"
   End Select
End Sub
Private Sub Form_Load()
   Combo1.AddItem "广州"
   Combo1.AddItem "北京"
   Combo1.AddItem "海口"
End Sub

追问

谢谢大神这么晚还帮忙回答问题，简直雪中送炭~~thank you~~

Answer 3

123456789101112131415Private Sub Combo1_Click() Select Case Combo1.Text Case "广州" Text1.Text = "广州是广东的省会。" Case "北京" Text1.Text = "北京是中国的首都。" Case "海口" Text1.Text = "海口是海南的省会。" End SelectEnd SubPrivate Sub Form_Load() Combo1.AddItem "广州" Combo1.AddItem "北京" Combo1.AddItem "海口"End Sub