你说的是 读到 list 控件吗？
Private Sub Command1_Click()
Dim stringx As String, stri As String
CommonDialog1.Filter = "txt|*.txt"
CommonDialog1.ShowOpen
wenben = CommonDialog1.FileName
Open CommonDialog1.FileName For Input As #1
Input #1, wenben
Close #1
List1.AddItem wenben
end sub
你先看看 是不是你要的效果 是的话 我再完善一下！
建一个 command 一个 list 一个 CommonDialog1 控件 代码复制进去就可以用了
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024