标题:关于VB6的一些小问题
只看楼主
ffcb
Rank: 1
等 级:新手上路
帖 子:38
专家分:0
注 册:2010-1-23
结帖率:0
已结贴  问题点数:20 回复次数:3 
关于VB6的一些小问题
我刚自学VB6没几天,看了浙江蜗牛的菜鸟视频,感觉挺不错:)
不过自己在玩的时候发现这个问题不知道应该怎么解决!
就是Drivelistbox与Dirlistbox联系时,C:/或则D:/等等都没有问题,为什么当我运行程序时选择A:/或者光盘就会出现问题???
应该如何解决这一问题???
请前辈指教
下面是学习的代码:

Private Sub Form_Load()
Drive1.Drive = "d:"
Dir1.Path = Drive1.Drive
End Sub

搜索更多相关主题的帖子: 运行程序 浙江 光盘 如何 蜗牛 
2010-01-25 19:25
ffcb
Rank: 1
等 级:新手上路
帖 子:38
专家分:0
注 册:2010-1-23
得分:0 
还有,如果我在边上再多加一个filelistbox和一个richtextbox
其中filelistbox可以用来显示文件夹中的文件名字,而richtextbox则可以显示在filelistbox中选中文件名的文件内容
应该如何操作???

还有就是如果是动态的呢???
我意思是如果指定的文件包内文件数目在变换又该如何操作?

下面是我尝试写的代码:
也请各位帮忙指点一下
Dim a
Dim b As Integer

Private Sub File1_Click()
b = File1.ListCount
If File1.Selected() = True Then
a = Dir1.Path & "\" & File1.FileName
Else
End If
End Sub

Private Sub Form_Load()



Drive1.Drive = "d:"
Dir1.Path = "D:\ttt\个人文件夹\收件箱"
File1.FileName = Dir1.Path
RichTextBox1.LoadFile (a)
End Sub
2010-01-25 19:33
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4912
专家分:29900
注 册:2008-10-15
得分:20 

Private Sub Dir1_Change()
    File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
    Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()

    '打开文本文件
    Dim i As String
    i = File1.List(File1.ListIndex)
    '如果后缀是 .txt,则打开
    If UCase(Right(i, 4)) = ".TXT" Then
        RichTextBox1.LoadFile File1.Path & "\" & i
    End If
   
End Sub

授人于鱼,不如授人于渔
早已停用QQ了
2010-01-25 20:44
ffcb
Rank: 1
等 级:新手上路
帖 子:38
专家分:0
注 册:2010-1-23
得分:0 
问题解决了,牛!!!
2010-02-04 12:14



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-296481-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.077331 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved