就是我在listbox中合并了信息寫入了，在怎么拿出來寫入分開??！因為我想把它在逐條展示！謝謝
20091231100216-1318105108.jpg)
代碼:
Private Sub Form_Load()
Dim i As Long
With List1
For i = 1 To 9
.AddItem i & "*" & i * i & .ListCount
Next i
End With
End Sub
Private Sub List1_Click()
Dim strData As String
Dim strSplit() As String
strData = List1.List(List1.ListIndex)
strSplit = Split(strData, "*")
Text1.Text = strSplit(0)
Text2.Text = strSplit(1)
End Sub
原理就是這樣的
- 追問：
- 能講一下 index 和split（）作用嗎？如果我想用按鈕控制listbox中信息的上下移動呢？謝咯！?。?/DD>
- 回答：
ListIndex是用來確定選擇的項,而split是用來分割一個字符串,其中" * "表示以*作為分割符.
用按鈕來控制上下移動也很簡單,比如向下:.Selected(List1.ListIndex + 1) = True
;向上就.Selected(List1.ListIndex - 1) = True;注意開始和結(jié)束大位置就行了,每次使用的時候判斷一下是不是到了最上和最下.前面大圖片里有注釋代碼大意思.
該文章在 2013/11/17 2:10:16 編輯過
400 186 1886
