Question

vb list1删除数字

12345678love把前面的数字8位删除只保留love
数字没有固定的所以只需删除前面8位

Answer 1

如果是单行选择：

Private Sub Command1_Click()
   Dim i&
   i = List1.ListIndex
   List1.List(i) = Mid$(List1.List(i), 9)
End Sub

如果是多行选择：

Private Sub Command1_Click()
   Dim i&
   For i = 0 To List1.ListCount - 1
      If (List1.Selected(i)) Then
         List1.List(i) = Mid$(List1.List(i), 9)
      End If
   Next
End Sub

Answer 2

list1.list=left(list1.list,8,len(list1.list)-8)

追问

我想删除已选择行的

追答

这样做只会删除已选择的行。