vb用对话框打开txt文件，并保存

答案：这个里面有打开和保存的代码...
  
至于里面怎样读到 txt 文件要看你怎样操作了.....
  
  
  
  '-------------------------------------------
 '
  
   通用对话框使用方法全解
 '-------------------------------------------
 '
  
  
洪恩在线 求知无限
 '-------------------------------------------
 '------名称-----------------作用-------------
 '
    CdlTest
  
  
通用对话框
 '
    CmdOpen
  
  
“打开”对话框按钮
 '
    CmdSave
  
  
“另存为”对话框按钮
 '
    CmdFont
  
  
“字体”对话框按钮
 '
    CmdColor
  
    “颜色”对话框按钮
 '
    CmdPrint
  
    “打印”对话框按钮
 '
    CmdHelp
  
  
“帮助”对话框按钮
 '-------------------------------------------
  
'当“颜色”对话框按钮被按下时
 Private Sub CmdColor_Click()
 On Error Resume Next
 CdlTest.CancelError = True
 CdlTest.Flags = cdlCCRGBInit
 CdlTest.ShowColor
 If Err = cdlCancel Then Exit Sub
 TextBoxColor.ForeColor = CdlTest.Color
 End Sub
  
'当“字体”对话框按钮被按下时
 Private Sub CmdFont_Click()
 On Error Resume Next
 '当用户按下“取消”按钮，返回一个错误信息，这样使我们可以对其进行控制
 CdlTest.CancelError = True
 '此句必须要
 CdlTest.Flags = cdlCFBoth + cdlCFEffects
 '显示“字体”对话框
 CdlTest.ShowFont
 '出现“取消”错误时，跳出
 If Err = cdlCancel Then
 Exit Sub
 Else
 '将TextBox的字体属性根据“字体”对话框的变化作相应设置
  
'如果用户选择了字体才将字体改变，避免字体为空的错误
  
If CdlTest.FontName <> "" Then
  
TextBoxFont.FontName = CdlTest.FontName
  
End If
  
TextBoxFont.FontSize = CdlTest.FontSize
  
TextBoxFont.FontBold = CdlTest.FontBold
  
TextBoxFont.FontItalic = CdlTest.FontItalic
  
TextBoxFont.FontStrikethru = CdlTest.FontStrikethru
  
TextBoxFont.FontUnderline = CdlTest.FontUnderline
 End If
 End Sub
  
'当“帮助”对话框按钮被按下时
 Private Sub CmdHelp_Click()
 On Error Resume Next
 '设置 HelpCommand 属性，显示 Visual Basic 帮助目录主题
 CdlTest.HelpCommand = cdlHelpForceFile
  
'指定帮助文件
 Dim fullpath As String
 If Right(App.Path, 1) = "\\" Then ' 若 App.Path 为根目录
    fullpath = App.Path + "test.hlp"
 Else
    fullpath = App.Path + "\\" + "test.hlp"
 End If
 '上面是得到应用程序所在路径的小技巧
  
CdlTest.HelpFile = fullpath
 '显示“帮助”对话框
 CdlTest.ShowHelp
 End Sub
  
'当“打开”对话框按钮被按下时
 Private Sub CmdOpen_Click()
 '出现错误时跳到下一语句
 On Error Resume Next
 CdlTest.CancelError = True
 '属性DialogTitle是要弹出的对话框的标题
 CdlTest.DialogTitle = "打开文件"
 '缺省的文件名为空
 CdlTest.FileName = ""
 '属性Filter是文件滤器，返回或设置在对话框的类型列表框中所显示的过滤器。
 '语法object.Filter [= 文件类型描述1 |filter1 |文件类型描述2 |filter2...]
 CdlTest.Filter = "文本文件(.txt)|*.txt"
 'Flags属性的用法依据不同的对话框而变，详细使用需要查找联机帮助手册
 CdlTest.Flags = cdlOFNCreatePrompt + cdlOFNHideReadOnly
 CdlTest.ShowOpen
 If Err = cdlCancel Then Exit Sub
 TextBoxOPen.Text = CdlTest.FileName
 End Sub
  
'当“打印”对话框按钮被按下时
 Private Sub CmdPrint_Click()
 On Error Resume Next
 CdlTest.CancelError = True
 '显示“打印”对话框
 CdlTest.ShowPrinter
 If Err = cdlCancel Then Exit Sub
 End Sub
  
'当“保存”对话框按钮被按下时
 Private Sub CmdSave_Click()
 On Error Resume Next
 CdlTest.CancelError = True
 CdlTest.DialogTitle = "保存文件"
 CdlTest.FileName = ""
 '解释见上面
 CdlTest.Filter = "文本文件(*.txt)|*.txt"
 CdlTest.Flags = cdlOFNCreatePrompt + cdlOFNHideReadOnly
 CdlTest.ShowSave
 If Err = cdlCancel Then Exit Sub
 TextBoxSave.Text = CdlTest.FileName
 End Sub
这个里面有打开和保存的代码...至于里面怎样读到txt文件要看你怎样操作了.....
'-------------------------------------------
'通用对话框使用方法全解
'-------------------------------------------
'洪恩在线求知无限
'-------------------------------------------
'------名称-----------------作用-------------
'CdlTest通用对话框
'CmdOpen“打开”对话框按钮
'CmdSave“另存为”对话框按钮
'CmdFont“字体”对话框按钮
'CmdColor“颜色”对话框按钮
'CmdPrint“打印”对话框按钮
'CmdHelp“帮助”对话框按钮
'-------------------------------------------'当“颜色”对话框按钮被按下时
PrivateSubCmdColor_Click()
OnErrorResumeNext
CdlTest.CancelError=True
CdlTest.Flags=cdlCCRGBInit
CdlTest.ShowColor
IfErr=cdlCancelThenExitSub
TextBoxColor.ForeColor=CdlTest.Color
EndSub'当“字体”对话框按钮被按下时
PrivateSubCmdFont_Click()
OnErrorResumeNext
'当用户按下“取消”按钮，返回一个错误信息，这样使我们可以对其进行控制
CdlTest.CancelError=True
'此句必须要
CdlTest.Flags=cdlCFBoth+cdlCFEffects
'显示“字体”对话框
CdlTest.ShowFont
'出现“取消”错误时，跳出
IfErr=cdlCancelThen
ExitSub
Else
'将TextBox的字体属性根据“字体”对话框的变化作相应设置
'如果用户选择了字体才将字体改变，避免字体为空的错误
IfCdlTest.FontName<>""Then
TextBoxFont.FontName=CdlTest.FontName
EndIf
TextBoxFont.FontSize=CdlTest.FontSize
TextBoxFont.FontBold=CdlTest.FontBold
TextBoxFont.FontItalic=CdlTest.FontItalic
TextBoxFont.FontStrikethru=CdlTest.FontStrikethru
TextBoxFont.FontUnderline=CdlTest.FontUnderline
EndIf
EndSub'当“帮助”对话框按钮被按下时
PrivateSubCmdHelp_Click()
OnErrorResumeNext
'设置HelpCommand属性，显示VisualBasic帮助目录主题
CdlTest.HelpCommand=cdlHelpForceFile'指定帮助文件
DimfullpathAsString
IfRight(App.Path,1)="\"Then'若App.Path为根目录
fullpath=App.Path+"test.hlp"
Else
fullpath=App.Path+"\"+"test.hlp"
EndIf
'上面是得到应用程序所在路径的小技巧CdlTest.HelpFile=fullpath
'显示“帮助”对话框
CdlTest.ShowHelp
EndSub'当“打开”对话框按钮被按下时
PrivateSubCmdOpen_Click()
'出现错误时跳到下一语句
OnErrorResumeNext
CdlTest.CancelError=True
'属性DialogTitle是要弹出的对话框的标题
CdlTest.DialogTitle="打开文件"
'缺省的文件名为空
CdlTest.FileName=""
'属性Filter是文件滤器，返回或设置在对话框的类型列表框中所显示的过滤器。
'语法object.Filter[=文件类型描述1|filter1|文件类型描述2|filter2...]
CdlTest.Filter="文本文件(.txt)|*.txt"
'Flags属性的用法依据不同的对话框而变，详细使用需要查找联机帮助手册
CdlTest.Flags=cdlOFNCreatePrompt+cdlOFNHideReadOnly
CdlTest.ShowOpen
IfErr=cdlCancelThenExitSub
TextBoxOPen.Text=CdlTest.FileName
EndSub'当“打印”对话框按钮被按下时
PrivateSubCmdPrint_Click()
OnErrorResumeNext
CdlTest.CancelError=True
'显示“打印”对话框
CdlTest.ShowPrinter
IfErr=cdlCancelThenExitSub
EndSub'当“保存”对话框按钮被按下时
PrivateSubCmdSave_Click()
OnErrorResumeNext
CdlTest.CancelError=True
CdlTest.DialogTitle="保存文件"
CdlTest.FileName=""
'解释见上面
CdlTest.Filter="文本文件(*.txt)|*.txt"
CdlTest.Flags=cdlOFNCreatePrompt+cdlOFNHideReadOnly
CdlTest.ShowSave
IfErr=cdlCancelThenExitSub
TextBoxSave.Text=CdlTest.FileName
EndSub

上一个：机软件技术基础（VB） 编程
下一个：什么FoxPro,Delphi,VB,VC