VB语言编写文件资源管理器一、程序内部结构图
图1
图2
图3
图4
二、添加的对象名称
图5
图6
图7
图8
三、下方为本程序代码
Dim m As String, p As String, SourceFile As String, DestinationFile As String, w As Single, h As Single, a11 As Single, a12 As Single, a13 As Single, a14 As Single, b11 As Single, b12 As Single, b13 As Single, b14 As Single, c11 As Single, c12 As Single, c13 As Single, c14 As Single, fname21 As String
Private Sub chongmingming_Click()
Dim newname As String, retempdir As String, lenfile As Integer, oldname As String e = InputBox("重命名", "输入新名字")
If e = "" Then
MsgBox "名称不为空"
Exit Sub
End If
If File1.FileName = "" Then '文件夹重命名
If File1.Path <> "" Then '获得上级目录
retempdir = File1.Path
lenfile = Len(retempdir)
Do While Right$(retempdir, 1) <> "\"
If Right$(retempdir, 1) = ":" Then
retempdir = retempdir & "\"
End If
retempdir = Left$(retempdir, lenfile - 1)
lenfile = Len(retempdir)
Loop
End If '获得上级目录
On Error GoTo hand
oldname = File1.Path
newname = retempdir & e
Name oldname As newname
If CurDir <> "" Then '返回上级目录
abc = CurDir
lenfile = Len(abc)
Do While lenfile <> 1
If Right$(abc, 1) = "\" Then
abc = Left$(abc, lenfile - 1)
If Right$(abc, 1) = ":" Then
abc = abc & "\"
End If
Exit Do
End If
abc = Left$(abc, lenfile - 1)
lenfile = Len(abc)
Loop
Dir1.Path = abc
ChDir Dir1.Path
End If '返回上级目录
Exit Sub
hand:
MsgBox "文件不可重命名" '文件夹重命名
End If
If File1.FileName <> "" Then '文件重命名
If Right(File1.Path, 1) = "\" Then
fname21 = File1.Path & File1.FileName Else
fname21 = File1.Path & "\" & File1.FileName End If
If fname21 <> "" Then '获得上级目录retempdir = fname21
lenfile = Len(retempdir)
Do While Right$(retempdir, 1) <> "\"
If Right$(retempdir, 1) = ":" Then
retempdir = retempdir & "\"
End If
retempdir = Left$(retempdir, lenfile - 1)
lenfile = Len(retempdir)
Loop
End If '获得上级目录
oldname = fname21
newname = retempdir & e
On Error GoTo hand1
Name oldname As newname
If CurDir <> "" Then
retempdir = CurDir
lenfile = Len(retempdir)
Do While lenfile <> 1
If Right$(retempdir, 1) = "\" Then
retempdir = Left$(retempdir, lenfile - 1)
If Right$(retempdir, 1) = ":" Then
retempdir = retempdir & "\"
End If
Exit Do
End If
retempdir = Left$(retempdir, lenfile - 1)
lenfile = Len(retempdir)
Loop
Dir1.Path = retempdir
ChDir Dir1.Path
End If
Exit Sub
hand1:
MsgBox "文件重名不可重命名"
End If
End Sub '文件重命名
Private Sub Combo1_KeyPress(KeyAscii As Integer)
On Error GoTo hand4
If KeyAscii = 13 Then
File1.Pattern = Combo1.Text
Combo1.SelStart = 0
Combo1.SelLength = Len(Combo1.Text)
End If
Exit Sub
hand4:
MsgBox "输入不合法"
End Sub
Private Sub Command1_Click()
On Error GoTo hand
File1.Pattern = Text1.Text
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
hand:
MsgBox "输入不合法"
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
File1.Path = Dir1.Path
End Sub
Private Sub Dir1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then
PopupMenu wenjian
End If
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_DblClick()
Dim retval
Dim Fname As String
On Error GoTo hand
If Right(File1.Path, 1) = "\" Then
Fname = File1.Path & File1.FileName
Else
Fname = File1.Path & "\" & File1.FileName
End If
retval = Shell(Fname, 1) ' 执行程序
Exit Sub
hand:
MsgBox "该文件非可执行文件"
End Sub
Private Sub File1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then
PopupMenu bianji
End If
End Sub
Private Sub Form_Load()
Label2.Visible = False
Text1.Visible = False
Command1.Visible = False
Combo1.AddItem "*.bmp"
Combo1.AddItem "*.txt"
Combo1.AddItem "*.doc"
Combo1.AddItem "*.*"
w = Me.Width
h = Me.Height
a11 = File1.Height
a12 = File1.Left
a13 = File1.Width
a14 = File1.Top
b11 = Command1.Height
b12 = Command1.Left
b13 = Command1.Width
b14 = Command1.Top
c11 = Text1.Height
c12 = Text1.Left
c13 = Text1.Width
c14 = Text1.Top
End Sub
Private Sub guanbi_Click()
End
End Sub
Private Sub Form_Resize()
Dim j As Single
Dim k As Single
j = Me.Width / w
k = Me.Height / h
File1.Height = a11 * k
File1.Left = a12 * j
File1.Width = a13 * j
File1.Top = a14 * k
Dir1.Height = 1770 * k
Dir1.Left = 480 * j
Dir1.Width = 3015 * j
Dir1.Top = 1320 * k
Command1.Height = b11 * k
Command1.Left = b12 * j
Command1.Width = b13 * j
Command1.Top = b14 * k
Text1.Height = c11 * k
Text1.Left = c12 * j
Text1.Width = c13 * j
Text1.Top = c14 * k
Label2.Height = 255 * k
Label2.Left = 2880 * j
Label2.Width = 975 * j
Label2.Top = 4320 * k
Label3.Height = 255 * k
Label3.Left = 1320 * j
Label3.Width = 1335 * j
Label3.Top = 3600 * k
Label1.Height = 375 * k
Label1.Left = 240 * j
Label1.Width = 495 * j
Label1.Top = 840 * k
Drive1.Left = 840 * j
Drive1.Width = 5895 * j
Drive1.Top = 840 * k
Combo1.Left = 1200 * j
Combo1.Width = 1935 * j
Combo1.Top = 3960 * k
End Sub
Private Sub fuzhi_Click()
If File1.FileName = "" Then
MsgBox "文件夹不可复制"
End If
If File1.FileName <> "" Then
Dim Fname As String
If Right(File1.Path, 1) = "\" And File1.FileName <> "" Then Fname = File1.Path & File1.FileName
Else
Fname = File1.Path & "\" & File1.FileName
End If
m = Fname
p = File1.FileName
End If
End Sub
Private Sub shanchu_Click()
Dim Fname As String
If Right(File1.Path, 1) = "\" And File1.FileName <> "" Then Fname = File1.Path & File1.FileName
Else
Fname = File1.Path & "\" & File1.FileName
End If
If File1.FileName = "" Then
On Error GoTo hand
RmDir (File1.Path)
If CurDir <> "" Then
retempdir = CurDir
lenfile = Len(retempdir)
Do While lenfile <> 1
If Right$(retempdir, 1) = "\" Then
retempdir = Left$(retempdir, lenfile - 1)
If Right$(retempdir, 1) = ":" Then
retempdir = retempdir & "\"
End If
Exit Do
End If
retempdir = Left$(retempdir, lenfile - 1)
lenfile = Len(retempdir)
Loop
Dir1.Path = retempdir
ChDir Dir1.Path
End If
Exit Sub
hand:
MsgBox "文件夹下有子文件"
End If
If File1.FileName <> "" Then
Kill (Fname)
End If
File1.Refresh
End Sub
Private Sub sousuo_Click()
Label2.Visible = Not Label2.Visible
Text1.Visible = Not Text1.Visible
Command1.Visible = Not Command1.Visible
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
On Error GoTo hand4
If KeyAscii = 13 Then
File1.Pattern = Text1.Text
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End If
Exit Sub
hand4:
MsgBox "输入不合法"
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) If Button.Index = 1 Then
d = InputBox("新建文件夹", "输入新建文件夹的名称")
If d <> "" Then
On Error GoTo hand
MkDir (File1.Path & "\" & d)
End If
If d = "" Then
MsgBox "文件名不为空"
End If
Dir1.Refresh
Exit Sub
hand:
MsgBox "有相同文件名不可创建"
End If
If Button.Index = 2 Then
If File1.FileName = "" Then
MsgBox "本地文件夹不可复制"
End If
If File1.FileName <> "" Then
Dim Fname1 As String
If Right(File1.Path, 1) = "\" And File1.FileName <> "" Then
Fname1 = File1.Path & File1.FileName
Else
Fname1 = File1.Path & "\" & File1.FileName
End If
m = Fname1
p = File1.FileName
End If
End If
If Button.Index = 3 Then
On Error GoTo hand31
Source = m '指定源文件名。"
DestinationFile = File1.Path & "\" & p ' 指定目的文件名。"
FileCopy Source, DestinationFile ' 将源文件的内容复制到目的文件中。If CurDir <> "" Then '返回上级目录
abc = CurDir
lenfile = Len(abc)
Do While lenfile <> 1
If Right$(abc, 1) = "\" Then
abc = Left$(abc, lenfile - 1)
If Right$(abc, 1) = ":" Then
abc = abc & "\"
End If
Exit Do
End If
abc = Left$(abc, lenfile - 1)
lenfile = Len(abc)
Loop
Dir1.Path = abc
ChDir Dir1.Path
End If '返回上级目录
Exit Sub
hand31:
MsgBox "有相同文件名不可复制"
End If
If Button.Index = 4 Then
Dim Fname As String
If Right(File1.Path, 1) = "\" And File1.FileName <> "" Then
Fname = File1.Path & File1.FileName
Else
Fname = File1.Path & "\" & File1.FileName
End If
If File1.FileName = "" Then
On Error GoTo hand4
RmDir (File1.Path)
If CurDir <> "" Then
retempdir = CurDir
lenfile = Len(retempdir)
Do While lenfile <> 1
If Right$(retempdir, 1) = "\" Then
retempdir = Left$(retempdir, lenfile - 1)
If Right$(retempdir, 1) = ":" Then
retempdir = retempdir & "\"
End If
Exit Do
End If
retempdir = Left$(retempdir, lenfile - 1)
lenfile = Len(retempdir)
Loop
Dir1.Path = retempdir
ChDir Dir1.Path
End If
Exit Sub
hand4:
MsgBox "文件夹下有子文件"
End If
If File1.FileName <> "" Then
Kill (Fname)
End If
File1.Refresh
End If
If Button.Index = 5 Then
Label2.Visible = Not Label2.Visible
Text1.Visible = Not Text1.Visible
Command1.Visible = Not Command1.Visible
If KeyAscii = 13 Then
File1.Pattern = Text1.Text
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End If
End If
End Sub
Private Sub tuichu_Click()
End
End Sub
Private Sub xinjian_Click()
d = InputBox("新建文件夹", "输入新建文件夹的名称") If d <> "" Then
On Error GoTo hand
MkDir (File1.Path & "\" & d)
End If
If d = "" Then
MsgBox "文件名不为空"
End If
Dir1.Refresh
Exit Sub
hand:
MsgBox "有相同文件名不可创建"
End Sub
Private Sub zhantie_Click()
On Error GoTo hand
Source = m '指定源文件名。"
DestinationFile = File1.Path & "\" & p ' 指定目的文件名。"
FileCopy Source, DestinationFile ' 将源文件的内容复制到目的文件中。If CurDir <> "" Then '返回上级目录
abc = CurDir
lenfile = Len(abc)
Do While lenfile <> 1
If Right$(abc, 1) = "\" Then
abc = Left$(abc, lenfile - 1)
If Right$(abc, 1) = ":" Then
abc = abc & "\"
End If
Exit Do
End If
abc = Left$(abc, lenfile - 1)
lenfile = Len(abc)
Loop
Dir1.Path = abc
ChDir Dir1.Path
End If '返回上级目录
Exit Sub
hand:
MsgBox "本地有相同文件名不可复制"
End Sub
四、实现功能
文件的新建删除复制重命名搜索以及程序运行打开。
CommonDialog 控件提供一组标准的操作对话框，进行诸如打开和保存文件，设置打印选项，以及选择颜色和字体等操作。通过运行Windows 帮助引擎控件还能显示帮助。 CommonDialog 控件在Visual Basic 和Microsoft Windows 动态连接库Commdlg.dll 例程之间提供了接口。为了用该控件创建对话框，必须要求Commdlg.dll 在Microsoft Windows \System 目录下。 为了在应用程序中使用CommonDialog 控件，应将其添加到窗体上并设置属性。控件显示的对话由控件的方法决定。运行时，调用相应方法后将显示对话框或执行帮助引擎；设计时在窗体上将CommonDialog 控件显示成一个图标。此图标的大小不能改变。 CommonDialog 控件可以显示如下常用对话框： “打开” “另存为” “颜色” “字体” “打印” 注意无法指定对话框显示在什么地方。 要使用CommonDialog 控件 若未添加CommonDialog 控件，则应从“工程”菜单中选定“部件”，将控件添加到工具箱中。在标记对话的“控件”中找到并选定控件，然后单击“确定”按钮。 单击工具箱中的“CommonDialog”控件并在窗体上绘制该控件。 在窗体上绘制CommonDialog 控件时，控件将自动调整大小。象Timer 控件一样，CommonDialog 控件在运行时不可见。 运行时，请适当使用下表所列方法显示需要的对话。方法显示的对话 ShowOpen 打开 ShowSave 另存为 ShowColor 颜色 ShowFont 字体 ShowPrinter 打印 ShowHelp 调用Windo ws“帮助” 示例代码： 下例显示“打开”对话框然后在信息框中显示所选的文件名： Private Sub Command1_Click()
国家二级VB机试（菜单和对话框）模拟试卷4 (总分：52.00，做题时间：90分钟) 一、选择题(总题数：26，分数：52.00) 1.以下关于菜单设计的叙述中错误的是 （分数：2.00） A.各菜单项可以构成控件数组 B.每个菜单项可以看成是一个控件 C.设计菜单时，菜单项的“有效”未选，既，表示该菜单项不显示√ D.菜单项只响应单击事件 解析：解析：本题考查菜单的使用。菜单的“有效”属性名为Enabled，用于设定该菜单项是否有效。默认有效，若设置为无效，执行时呈灰色显示，鼠标点击无效。 2. （分数：2.00） A.属性设置有错，存在“标题”与“名称”重名现象√ B.运行程序，序号为“3”的菜单项不显示 C.运行程序，序号为“4”的菜单项不可用 D.运行程序，序号为“53”的菜单项前显示“√” 解析：解析：本题考查菜单的设计。选项A)错误，菜单设计中标题和名称可以重复，名称不能重复；选项 B)、C)和D)均正确。 3.窗体上有一个用菜单编辑器设计的菜单。运行程序，并在窗体上单击鼠标右键，则弹出一个快捷菜单， （分数：2.00） A.在设计“粘贴”菜单项时，在菜单编辑器窗口中设置了“有效”属性(有“√”)√ B.菜单中的横线是在该菜单项的标题输入框中输入了一个“一”(减号)字符 C.在设计“选中”菜单项时，在菜单编辑器窗口中设置了“复选”属性(有“√”) D.在设计该弹出菜单的主菜单项时，在菜单编辑器窗口中去掉了“可见”前面的“√” 解析：解析：本题考查的考点是菜单。菜单项的“有效”属性是控制菜单项的有效性的。只要把一个菜单项的“有效”属性设置为False，就可以使其失效，运行后该菜单项变为灰色；要在菜单项中插入分隔线应该在标题框中输入“一”菜单项标志，可以通过菜单设计窗口中的“复选”属性设置，当该属性为True 时，相应的菜单项前有“√”标记：弹出菜单由于初始运行时应该不可见，故应去掉“可见”前面的“√”标记。 4.以下打开Visual Basic菜单编辑器的操作中，错误的是 （分数：2.00） A.执行“编辑”菜单中的“菜单编辑器”命令√ B.执行“工具”菜单中的“菜单编辑器”命令 C.单击工具栏中的“菜单编辑器”按钮 D.右击窗体，在弹出的快捷菜单中选择“菜单编辑器”命令 解析：解析：Visual Basic中的菜单通过菜单编辑器建立，可以通过4种方式进入菜单编辑器：执行“工具”菜单中的“菜单编辑器”命令；使用Ctrl+E组合键；单击工具栏中的“菜单编辑器”按钮；在要建立菜单的窗体上单击右键，将弹出一个菜单，然后单击“菜单编辑器”命令。 5.如果一个菜单项的Enabled属性被设置为False，则程序运行时，该菜单项 （分数：2.00） A.不显示 B.显示但无效√
浅谈visual basic文件对话窗 微软提供了通用对话框接口Microsoft Common Dialog Control，为编程 带来了很大方便，利用它可以轻松调用字体、颜色、打印、帮助等对话框，其中最常用的莫过于打开文件对话框，很多朋友都会用，但是未必每个人都能真正掌控它。 在此假定程序里有CommonDialog的一个实例，命名为cd1,对于单个文件的选择，只需令cd1.Action = 1即可，通常不会遇到问题，返回值cd1.FileName 是选定文件的全路径，但是如果要实现多选，还是有一些问题需要解决的，下面来分析两种方法。 操作：从对话框选定多个文件，把文件路径添加到列表List1 方法一：cd1.Flags = 512 '常量cdlOFNAllowMultiselect 的值 '示例代码 Dim i As Integer, j As Integer Dim temp() As String '接收文件名 cd1.Flags = 512 cd1.MaxFileSize = 2048 cd1.FileName = "" cd1.Filter = "歌曲文件|*.MP3|" '查找类型过滤 cd1.Action = 1 If cd1.FileName = "" Then Exit Sub If InStr(cd1.FileName, " ") = 0 Then List1.AddItem cd1.FileName
Else temp = Split(cd1.FileName, " ") For i = 1 To UBound(temp) List1.AddItem temp(0) & temp(i) Next i End If 以上代码的每一行都有其特定作用，有些朋友从网上找了类似的代码，但是改动后总是出错，找不到解决的办法，下面逐行分析。 第一行：Dim i As Integer, j As Integer，变量声明 坚持“先声明后引用，尽可能避免隐式声明”的使用变量原则，养成好的习惯，出错的几率就小很多。 此外在VB6.0中如Dim a,b as Integer的声明语句仅仅把第一项a声明为整形变量，后边的均为变体Variant型，可用MsgBox TypeName(b)语句测试。 所以尽量对于每个变量在声明时都指明其类型，不过在https://www.doczj.com/doc/5110060360.html,中，声明方面已被合理修改。 第二行：Dim temp() As String，数组声明 temp()数组用于存放cd1返回的单个文件名。对于cd1.Flags = cdlOFNAllowMultiselect的情况返回值稍复杂些。如果选中的是单个文件，自不必说，直接用 返回值cd1.FileName即可，其值等于目录加文件名，即InitDir + FileTitle （注：此处InitDir代替文件的位置，并非指cd1的InitDir属性，因为在不设置ce1 的InitDir属性的情况下，打开的是当前目录，但 cd1.InitDir=""） 如果选择了多个文件，那么返回值cd1.FileName的格式类似为："D:\多媒体\许巍\ 爱.mp3 彩虹.mp3"，在此选定了两个文件，返回值里有两个个空格，
第7章第10章 一、内部文件控件 二、通用对话框 三、文件的读写操作 四、菜单编辑器
一、内部文件控件 文件系统控件用来查看和选择文件的功能，这类控件有两种： ①VB内部标准的文件控件： 驱动器列表框(DriveListBox) 目录列表框(DirListBox) 文件列表框(FileListBox) ②另一种是Windows的通用对话框控件（CommonDialog），该控件是ActiveX控件，需要加载后才能使用。
驱动器 列表框 文件列表框 目 录 列 表 框
1.驱动器列表框(DriveListBox) ①功能：用来显示当前机器上的所有盘符。 ②Drive属性：设置或显示运行时选择的驱动器。 如：Drive1.Drive = “C”或 Drive1.Drive = “C:”或 Drive1.Drive = "C:\“均正确。 ③Change事件：选择一个新的驱动器或通过程 序代码改变Drive属性的设置时，都将引发驱动器列表框的Change事件发生。
【例1】窗体中有2个标签和1个驱动器列表框。程序运行时，将用户在驱动器列表框中所选驱动器名称显示在窗体的标签中。 Private Sub Form_Load() Label2.Caption = "选中的驱动器是" & Drive1.Drive End Sub Private Sub Drive1_Change() Label2.Caption = "选中的驱动器是" & Drive1.Drive End Sub 例1
2.目录列表框(DirListBox) ①功能：以根目录开始, 显示目录的层次结构。 ②Path属性：设置当前路径，只能在程序代码中设置。格式为目录列表框名称.Path[=“路径”]如：Dir1.Path=“c:\Windows” ③Change事件:在目录框发生变化时，会触发该事件。 【例2】窗体中有1个驱动器列表框、1个目录列表框和4个标签。程序运行时，将用户在驱动器列表框中所选驱动器的所有目录显示在目录列表框中，并将用户双击时所选中的目录显示在窗体下部的标签中。
第七章菜单的设计与多文档界面 7.1 菜单简介 大多数Windows应用程序都有一个菜单栏，它总是处在窗体标题栏的下面，并包含一个或 多个菜单标题。单击每个菜单标题都会弹出一个下拉菜单，在下拉菜单中包含有菜单项、分隔条和子菜单标题。 有的菜单项可以直接执行，有的菜单项执行时则会弹出一个对话框。所有的Windows应用程序都遵循以下3个约定： 凡是菜单名称后有一个省略号的，均表示在单击该选项后会弹出一个相应的对话框，在 用户作出相应的回答后，该项功能就以用户所给予的信息去执行。例如，单击【打开】选项，则弹出【打开】对话框，用户可从中选择要打开的文件。 凡是菜单名称后有一个小三角的，则表示它是一个子菜单标题，子菜单标题并不能直接 执行，仅仅扮演一个“容器”的角色。当鼠标指针移动到子菜单标题上时，会自动弹出子菜单。例如，将指针移动到【发送】选项，就会弹出子菜单。 菜单名称后不包含L述两种符号者，表明该菜单项所代表的命令可直接执行。例如，单 击【关闭】选项，则将关闭当前打开的文档。 另外，有的菜单项名称后还显示相应的键盘访问键和快捷键。访问键允许同时按下Alt 键和一个指定字符来打开一个菜单。一旦菜单打开，通过按下访问键即可选取菜单项。在菜单项的标题中，访问键表现为一个带下划线的字母，如【打开】命令的访问键为0.当打开【文件】菜单后，按下0键即可执行【打开】命令。快捷键出现在相应菜单项的右边，例如，【打开】命令的快捷键是Ctrl+O，无论【文件】菜单是否打开，只要按下Ctrl+O组合键，即可 执行【打开】命令。 由于所有Windows应用程序都遵循上述约定，因此，在创建菜单时，也应该遵循这些约定。例如，如果某菜单项的执行结果是弹出一个对话框，则应该在该菜单项后加上省略符（…）.此外，要使应用程序简单好用，还应该将菜单项按其功能分组。例如，与文件有关的命令【新建】、【打开】和【另存为】都列入了【文件】菜单。 同一菜单中不同类型的选项之间还使用分隔条分隔开来。分隔条作为菜单项间的一个水 平行显示在菜单上。在包含较多菜单项的菜单上，经常使用分隔条将各项划分成一些逻辑组。【文件】菜单，使用分隔条将其菜单项分成6组。 7.2 菜单编辑器简介菜单编辑器是VB提供的一个用于设计菜单的工具，它使看似复杂的菜单创建变得非常简单。使用菜单编辑器可以创建出新的菜单或编辑已有的菜单。打开【工具】菜单，执行【菜单编辑器】命令，将出现如图7.3所示的【菜单编辑器】对话框。也可以通过单击工具栏上的【菜单编辑器】按钮来打开该对话框。其中各主要 选项的含义如下： 标题：该文本框用来输入菜单名，这些名字出现在菜单栏或菜单之中。如果想在菜单中 建立分隔条，则应在该文本框中输入一个连字符“一”.为了能够通过键盘访问菜单项，可在 一个字母前插入&符号。例如，“新建（&N）”.在运行时，该字母带有下划线（&符号是不 可见的）.如果要在菜单中显示&符号，则应在标题中连续输入两个&符号。 名称：该文本框用来输入菜单名称。在代码中就是以该名称来访问菜单项的，它不会出 现在菜单中，这与其他控件的名称是一样的。 索引：可指定一个数字值来确定控件在控件数组中的位置。该位置与控件的屏幕位置无关。 快捷键：可在该列表框中为命令选择快捷键。
弹出式菜单（快捷菜单）：9，[14] 1、在菜单编辑器中建立菜单结构，主菜单设置为不可见 2、在窗体中调用菜单：popupmenu 主菜单的名称 单击右键时调用：对象名称_MouseDown(……) if button=2 then popupmenu 主菜单的名称 end if 通用对话框：23，43，[12，14，22] 添加通用对话框控件：P313 在工具箱的空白处单击右键→部件→勾选“Microsoft Common Dialog control 6.0” CommonDialog1.DialogTitle=”Open”‘标题 CommonDialog1.Filter = "所有文件|*.*|文本文件|*.txt" ‘设置文件过滤器CommonDialog1.FilterIndex = 2 ‘设置默认文件类型 CommonDialog1.InitDir = App.Path ‘设置默认目录 CommonDialog1.ShowOpen ‘设置对话框的类型 Open CommonDialog1.FileName For Input As #1 ‘打开在对话框中选择的文件 Input #1, s Text1.Text = s Close #1 例题：将打开对话框中所选择的文件里的内容读到文本框中 CommonDialog1.DialogTitle = "Open" CommonDialog1.InitDir = "D:\" CommonDialog1.ShowOpen Open CommonDialog1.FileName For Input As #1 Text1.Text = "" Do While Not EOF(1) Line Input #1, a Text1.Text = Text1.Text + a + Chr(13) + Chr(10) Loop Close #1
利用VB控件操作目录和文件夹 新客网 https://www.doczj.com/doc/5110060360.html, 时间:2007-01-31 10:00:24 评论: 条 （一）察看和显示目录下的文件和文件夹 对于这个实现，其实很简单。首先想到的就是VB中给我们提供的现成的控件。主要有这么两类： 一类是驱动器列表框（DriveListBox）、目录列表框（DirListBox）和文件列表框（F ileListBox）三个控件组合而成的自定义对话框； 另一类是windows提供的标准对话框。 他们在工具箱中的位置和图标如下所示：
1、驱动器列表框是一个下拉式的列表框，他和一般下拉式的列表框的不同仅在于功能上的不同，它提供了一个驱动器的列表。当单击右边的箭头时，则弹出计算机中的所有驱动器的下拉列表。默认状态下,在驱动器列表中显示的是当前驱动器,我们可以输入或从下拉列表中选择有效的驱动器标示符。 下面是它的主要属性,事件和方法. 属性Drive本属性用于返回或设置运行时选择的驱动器.默认值为当前驱动器 改变Drive属性会触发Change事件. 示例: Drive1.Drive = “c:” 设置C盘为当前驱动器. 事件Change当选择一个新驱动器或通过代码改变了Drive属性时触发该事件 下面是示例代码: Private Sub Drive1_Change() Dir1.Path = Drive1.Drive ‘当选择一个新驱动器时,将驱动器列表中选中的当前驱动器,赋给目录列表的路径. End Sub 2、目录列表框 目录列表框用于显示当前驱动器的目录结构，目录列表框从最高层目录开始，显示当前驱动器的目录结构，并按层次关系缩进跟目录下的所有子目录。下面是它的主要属性，方法和事件：