vb中怎样从listbox中调出信息分别写入两个textbox中啊!
|
allen
2013年11月17日 2:10
本文热度 5712
|
就是我在listbox中合并了信息写入了,在怎么拿出来写入分开啊!因为我想把它在逐条展示!谢谢
代码:
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中信息的上下移动呢?谢咯!!!
- 回答:
ListIndex是用来确定选择的项,而split是用来分割一个字符串,其中" * "表示以*作为分割符.
用按钮来控制上下移动也很简单,比如向下:.Selected(List1.ListIndex + 1) = True
;向上就.Selected(List1.ListIndex - 1) = True;注意开始和结束大位置就行了,每次使用的时候判断一下是不是到了最上和最下.前面大图片里有注释代码大意思.
该文章在 2013/11/17 2:10:16 编辑过