关于VB制作文件列表框
发布网友
发布时间：2022-04-25 17:36
我来回答
共3个回答
热心网友
时间：2023-10-22 15:57
文件列表框
文件列表框在运行时显示由 Path 属性指定的包含在目录中的文件。可用下列语句在当前驱动器上显示当前目录中的所有文件：
File1.Path = Dir1.Path
然后，可设置 Pattern 属性来显示这些文件的子集─ 例如，设置为 *.frm 后将只显示这种扩展名的文件。Pattern
属性也接受由分号分隔的列表。例如，下列代码行将显示所有扩展名为 .frm 和 .bas 的文件：
File1.Pattern = "*.frm; *.bas"
以下代码是实现上述要求的实例代码：
Private Sub Dir1_Change()
File1.Path = Dir1.Path
File1.Pattern = "*.frm; *.bas"
End Sub
Private Sub Form_Load()
File1.Path = Dir1.Path
File1.Pattern = "*.frm; *.bas"
End Sub
热心网友
时间：2023-10-22 15:58
File1.Pattern = "*.jpg;*.gif;*.jpeg;*.bmp"
这句*了文件列表中只能显示这几种扩展名的文件
File1.Pattern="*.txt;*.jpg……
Private Sub File1_Click()
Dim filename1 As String
If Right(File1.Path, 1) = "\" Then
filename1 = File1.Path & File1.FileName
Else
filename1 = File1.Path & "\" & File1.FileName
End If
if LCase(Right(finename1,4))=".txt" then
Image1.visible=false
'然后就是打开文件，读取文本并设置Label1.Caption
else
Label1.visible=false
Image1.Picture = LoadPicture(filename1)
end if
热心网友
时间：2023-10-22 15:58
On Error Resume Next
Err.Clear
filename1 = "jsldfjkla"
Image1.Picture = LoadPicture(filename1) '加载图片
If Err Then
'显示文本
h = FreeFile
Open filename1 For Binary Access Read As h
label1.Caption = Input(LOF(h), h)
Close h
label1.Visible = True
iamge1.Visible = False
Else
'显示图片
label1.Visible = False
iamge1.Visible = True
End If
'QQ在线:58507961
关于VB制作文件列表框
文件列表框在运行时显示由 Path 属性指定的包含在目录中的文件。可用下列语句在当前驱动器上显示当前目录中的所有文件：File1.Path = Dir1.Path 然后，可设置 Pattern 属性来显示这些文件的子集─ 例如，设置为 *.frm 后将只显示这种扩展名的文件。Pattern 属性也接受由分号分隔的列表。例如，下列代码...
关于VB列表框(ListBox)
If Text1.Text = List1.List(N) Then '--- 显示对话框 --- MsgBox "Item found! Index = " + CStr(N)Exit For End If Next N End Sub ' --- 完整程序如上, VB6 ---
急!如何VB文件列表框双击文件名在文本框中显示文件内容?
修改file_dblclick如下 Private Sub file_dblclick()Dim s If Right(File1.Path, 1) = "\" Then fName = File1.Path + File1.FileName Else fName = File1.Path + "\" + File1.FileName End If Text1.Text = fName Text1.MultiLine = True Open fName For input As #1 Do until...
关于VB中实现列表框功能
直接用TextBox 文本框堆出一个表格岂不是效果更好 如下图所示，若满意请记得采纳下，谢谢！
vb中如何将文件添加到列表框,再重这个列表框添加到另一个列表框
For i = 0 To List1.ListCount - 1 '列表框索引是从0开始的 If List1.Selected(i) Then List2.AddItem List1.List(i) '如果被选择，则添加到LIST2里 End If Next End Sub Private Sub Command3_Click()Dim i As Integer List2.Clear For i = 0 To List1.ListCount - 1 Lis...
VB程序设计中列表框(ListBox)的问题
一个的参数是删除的内容，一个是删除的下标。
...上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框...
File1.Path = Dir1.Path End Sub Private Sub Drive1_Change()Dir1.Path = Drive1.Drive End Sub Private Sub File1_Click()Picture1.Picture = LoadPicture(Dir1.Path & "\" & File1.FileName)Text1.Text = Dir1.Path & "\" & File1.FileName End Sub Private Sub Form_Load()Driv...
·vb怎么加驱动器目录框 目录列表 文件列表框等控件啊 十万火急...
>> 其他编程语言 解析:添加工具箱中的drivelistbox，dirlistbox和filelistbox控件，并写以下代码 Private Sub Drive1_Change()Dir1.Path = Drive1.Drive ' 当驱动器改变时，设置目录路径.End Sub Private Sub Dir1_Change()File1.Path = Dir1.Path ' 当目录改变时，设置文件路径.End Sub ...
VB的文件文件系统控件是哪几个,名称和功能是什么?
驱动器列表框：DriveListBox 目录列表框：DirListBox 文件列表框：FileListBox 功能三言两语也说不清，你可以自己去查，网上介绍这些的很多。常用部分代码：app.path '显示当前路径 dir1.path=drive1.drive '绑定驱动器列表框和文件列表框 file1.path=dir1.path ''绑定文件列表框和目录列表框 ...
vb.net 磁盘文件列表,界面如图,在.net下如何实现?
1、窗体上添加控件如下：组合框控件 ComboBox1，树型控件 TreeView1，列表框控件 ListBox1，图像列表控件 ImageList1。选中TreeView1，设置其ImageList属性为ImageList1。2、设置属性 选中图像列表控件 ImageList1，在属性窗口里，选中属性Images，单击三个小点按钮，出现图像集合编辑器窗口，单击[添加按钮]，...
