VB做3个功能高手帮帮忙!感激不尽
1. vb使用 commondialog打开TXT文件到 listbox中逐行显示 2.commondialog选择的路径显示在Textbox中
2.vb使用commandbutton刷新由commondialog导入到 listbox中的信息
求高手帮忙 最好贴上代码和注释供大家学习!感激不尽!答完加分
追问:还有一个问题 大哥 非常感谢你 答完给你加100分 由于临时需要 开始没有写上去
功能说明:点击Command按钮 将C:\tzh.txt 移动到 D:\ 目录下 麻烦帮帮忙! 还是感激不尽
答案:' 添加一个CommandButton,命名为CommandOpen
' 添加一个CommandButton,命名为CommandRefresh
' 添加一个TextBox,命名为Text1
' 添加一个ListBox,命名为List1
' 添加一个CommonDialog,命名为CommonDialog1
Option Explicit
Dim strFilename As String
' 打开按钮
Private Sub CommandOpen_Click()
CommonDialog1.filename = ""
CommonDialog1.ShowOpen
strFilename = CommonDialog1.filename
If strFilename = "" Then
Exit Sub
End If
Text1.Text = strFilename
ListRefresh List1, strFilename
End Sub
' 刷新按钮
Private Sub CommandRefresh_Click()
If strFilename = "" Then
Exit Sub
End If
ListRefresh List1, strFilename
End Sub
' 把文件加载到列表框中
Private Function ListRefresh(ByRef list As ListBox, ByVal filename As String)
' 检查文件名filename
' ...
' 假设文件filename 存在
' 清空列表框
list.Clear
' 打开文件并把每一行文本添加到列表框中
Open filename For Input As #1
Do While Not EOF(1)
Dim strLine As String
Line Input #1, strLine
list.AddItem strLine
Loop
Close #1
End Function
提问人的追问 2011-10-09 13:08 还有一个问题 大哥 非常感谢你 答完给你加100分 由于临时需要 开始没有写上去
功能说明:点击Command按钮 将C:\tzh.txt 移动到 D:\ 目录下 麻烦帮帮忙! 还是感激不尽
???????这样叫什么程序,上面要求的还勉强,下面的就不符程序的规格。用其他方法解决试试。
你说得这种方法真的很偏激。又不是经常这样,你可以用手动的不是吗?
上一个:如何用VB做一个数据提取的软件
下一个:vb 6.0 里数据库(ACCESS 2000 )读写问题