VB再次保存文件问题

就是之前保存过了的文件，这次再打开修改后要再保存，但不显示什么保存对话框

而是直接保存，不需要什么提示

哈哈，简单

CommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"
'CommonDialog1.ShowSave
FileType = CommonDialog1.FileTitle
FiType = LCase(Right(FileType, 3))
FileName = CommonDialog1.FileName
Select Case FiType
Case "txt"
ActiveForm.RichTextBox1.SaveFile FileName, rtfText
Case "rtf"
ActiveForm.RichTextBox1.SaveFile FileName, rtfRTF
Case "*.*"
ActiveForm.RichTextBox1.SaveFile FileName
End Select

就是不显示 CommonDialog1.ShowSave 就可以了

在窗体上画两个Text控件,Text1用来防止路径:Text2用来存储读出来的变量。

dim Str as string '打开

open Text1.text for input as #1

do while not (1)

line input #1,Str

Str=Str & Str & vbcrlf

loop

close #1

text2.text=str

'保存

open Text1.text for output as #2

print #2,text2.text

close #2

参考一下,看是否合你意.

是否直接保存内容呢？ 例如：text1的内容，如果是的话，通过注册表或者ini文件保存即可，相关内容自己搜索一下即可。很简单很容易找的，所以就留给你自己去找，好让自己有更深的印象