Question

VB列表框选中内容的信息获取问题，谢谢

'得到字符串的长度
Dim klen As String
Dim dlen As String
dlen = List1.List(List1.ListIndex)
'字符串无法获取，不知道怎么问题
Dim str1 As String
Dim weizhi1 As String
weizhi1 = List1.ListIndex
MsgBox ("The length is " & List1.ListIndex) '
'这段代码哪里有问题，谢谢,返回的数值weizhi1总是不正确。
klen = klen + 1
str1 = Mid(caiji_zuobiao1.Text, weizhi1, klen)
caiji_zuobiao1 = Replace(caiji_zuobiao1, str1, "")

Answer 1

改成如下，可以运行，但我不知道你要做什么。
运行时，要先选中列表中的一项，而且不能是第一项。

Private Sub Command1_Click()
'得到字符串的长度
Dim klen As Integer
Dim dlen As String
dlen = List1.List(List1.ListIndex)
'字符串无法获取，不知道怎么问题
Dim str1 As String
Dim weizhi1 As Integer
weizhi1 = List1.ListIndex
MsgBox ("The length is " & List1.ListIndex) '
'这段代码哪里有问题，谢谢,返回的数值weizhi1总是不正确。
klen = klen + 1
str1 = Mid(caiji_zuobiao1.Text, weizhi1, klen)
caiji_zuobiao1 = Replace(caiji_zuobiao1, str1, "")
End Sub

追问

Dim b_weizhi As String
Dim b_yuansu As String
b_weizhi = List1.ListIndex
b_yuansu = Text1 + "," + Text2
List1.List(b_weizhi) = b_yuansu
Dim a() As String

追答

你想说什么？

Answer 2

.ListIndex是从0开始的 +1就好了