一个VB小程序
发布网友
共3个回答
热心网友
'要先单击“工程－部件”，显示“部件”对话框，将“Microsoft Common Dialog control 6.0(SP6)”选中，在工具栏就多出了一个CommonDialog控件图标，将其添加到窗体上
Private Sub Command1_Click()
CommonDialog1.Flags = cdlOFNReadOnly
'建立对话框时，只读复选框初始化为选定。该标志也指示对话框关闭时只读复选框的状态
CommonDialog1.Filter = "All Files(*.*)|*.*|Text Files(*.Txt)|*.txt"
'过滤器，只让需要的文件显示出来
CommonDialog1.FilterIndex = 1
'优先显示过滤器中第一选项（本例中就是All Files(*.*)|*.*|）
CommonDialog1.ShowOpen
'显示打开对话框
MsgBox CommonDialog1.FileName
'显示选定文件的路径及文件名
End Sub
热心网友
弹出“打开文件”对话框
文件类型有两个选项：*.*所有文件，*.txt文本文件
hidereadonly 隐藏只读复选框
msgbox显示选中的文件名
热心网友
就是用VB打开文本文件了，楼上详解。
