Private Sub Command1_Click()
Open "c:\1.txt" For Input As #1
Do
Input #1, a
With List1
.AddItem a
End With
Loop Until EOF(1)
Close #1
End Sub
符合要求吗。。
如果复制的内容被放到剪贴板中,那么就可以把剪贴板中的内容添加到list列表框中:private sub command1_click() List1.AddItem Clipboard.GetTextend sub你要复制的内容有很多行的话,你可以用文本框放置多行的内容:private sub command1_click() text1.text=clipboard.gettextend sub
直接读取 文本里的信息 存在到一个变量里 然后添加到list里就好了
我是手机,写代码不方便,思路是,将文本文件,一行读出来,添加到列表框,再读下行,如此反复,即可