当前位置:编程学习 > VB >>

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 )读写问题

CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,