求教：有什么办法可以将每行的数据分开显示在不同的combobox中？

Question

本帖最后由 leekiwoo 于 2011-07-08 13:52:11 编辑

Answer 1

分开后分别加入combo1 和 combo2选择时联动
Private Sub Combo1_Click()
    Combo2.ListIndex = Combo1.ListIndex

Answer 2

Dim i As IntegerPrivate Sub Form_Load()
For i = 1 To 3
    Combo1.AddItem "命令" & i
    Combo2.AddItem "00 00 0" & i
Next iCombo1.ListIndex = 0End SubPrivate Sub Combo1_Click()
    Combo2.ListIndex = Combo1.ListIndex
End Sub

Answer 3

多谢二楼~~~现在是不会把分开的数据分开显示在不同combo中~~~就是不知道怎么让combo1中显示“命令1”，让combo2中显示“00 00 01”，这些数据是存在文本文档里的。

Answer 4

主要目的是为了在一个文本文件中输入需要的命令（类似00 00 01）和提示（类似“命令1”），然后在不同combo中显示，真正命令并不是举例的那样，只是格式相同“某某命令;00 ff 11 44”等等所以二楼的方法不可行
我现在只能用简单的split把每行单独拿出来到一个combo中，提示和命令还不会分开~~~
Private Sub Form_Load()
    Dim filenum As Integer
    Dim a As String
    Dim data() As String
    filenum = FreeFile
      Open "d:\000.dat" For Input As #filenum
      a = Input(LOF(filenum), #filenum)
      data = Split(a, vbCrLf)
        For i = o To UBound(data)
          Combo1.AddItem data(i)
        Next
End Sub

Answer 5

哈哈，可以了谢谢一楼和二楼的两位~~~~~顺便贴上我的~~~虽然写的不好~~~Private Sub Combo1_Click()
  Combo2.ListIndex = Combo1.ListIndex
End SubPrivate Sub Form_Load()
  Dim filenum As Integer
  Dim a As String
  Dim data() As String
  filenum = FreeFile
  Open App.Path & "\000.dat" For Input As #filenum
  a = Input(LOF(filenum), #filenum)
  data = Split(Replace(a, ";", vbCrLf), vbCrLf)
    For i = o To UBound(data)
       Combo1.AddItem data(i)
        i = i + 1
    Next
    For i = 1 To UBound(data)
        Combo2.AddItem data(i)
        i = i + 1
    Next
End Sub