向各位请教。

Question

For i = 0 To ListView1.ListItems.Count - 1
        If ListView1.ListItems(i).Selected = True Then
            SerInfo = InputBox("请输入消息内容", "serinfo")
            '发送消息到客户端
            
            SckServer(NameInfo(ListView1.ListItems(i))).SendData "~si~|" & LenInfo(SerInfo) & SerInfo
这是什么意思。我vb找不到它的相关资料。有人可以告诉我吗

Answer 1

''按选中的listview中的某个记录发送消息
For i = 0 To ListView1.ListItems.Count - 1
        If ListView1.ListItems(i).Selected = True Then
            SerInfo = InputBox("请输入消息内容", "serinfo")
            '发送消息到客户端
            
            SckServer(NameInfo(ListView1.ListItems(i))).SendData "~si~|" & LenInfo(SerInfo) & SerInfo
''''nameinfo(),selinfo()可能是自定义的函数吧。

Answer 2

''''nameinfo(),leninfo()可能是自定义的函数吧。