vb 如何把一个文本文件里的内容粘贴到list1里?
答案:4 悬赏:30 手机版
解决时间 2021-03-11 00:13
- 提问者网友：骑士
- 2021-03-10 13:15
有一个文本文件,里面有很多行内容,我先把这些内容复制出来.窗体上有一个'粘贴'按钮,还有一个list1列表框.我点击这个'粘贴'按钮之后,刚才复制的内容就粘贴到这个list1列表框里. 请问这个'粘贴'按钮的过程如何写?谢谢.
最佳答案
- 五星知识达人网友：老鼠爱大米
- 2021-03-10 14:17
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
符合要求吗。。
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
符合要求吗。。
全部回答
- 1楼网友：野慌
- 2021-03-10 16:25
我是手机，写代码不方便，思路是，将文本文件，一行读出来，添加到列表框，再读下行，如此反复，即可
- 2楼网友：西风乍起
- 2021-03-10 15:45
form1里有一个list1、一个command1：
dim mydata as dataobject
private sub command1_click()
mydata.getfromclipboard
list1.additem mydata.gettext
end sub
private sub form1_initialize()
set mydata = new dataobject
end sub
- 3楼网友：冷風如刀
- 2021-03-10 14:54
如果复制的内容被放到剪贴板中，那么就可以把剪贴板中的内容添加到list列表框中：private sub command1_click() List1.AddItem Clipboard.GetTextend sub你要复制的内容有很多行的话，你可以用文本框放置多行的内容：private sub command1_click() text1.text=clipboard.gettextend sub
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯