请问这个程序为什么当点击过保存之后如果再要打开新的文件时候只能打开.CSV文件啊。急在线等答案。谢谢
请问这个程序为什么当点击过保存之后如果再要打开新的文件时候只能打开.CSV文件啊。而不能只打开DAT或者$$$文件啊？急在线等答案。谢谢
Private Sub Form_Load()
RichTextBox1.Text = "" '窗体加载编辑框内容为空
CommonDialog1.InitDir = "C:\nanospec\result"
CommonDialog1.Filter = "DAT File (*.dat;*.$$$)| *.dat;*.$$$" 'Filter files, *.dat;*.$$$
StatusBar1.Panels(5).Text = "TYPE：" & CommonDialog1.Filter
Timer1.Interval = 1
munnew.Enabled = False
munfound.Enabled = False
munfindnext.Enabled = False
munlingc.Enabled = False
munjianq.Enabled = False
muncopy.Enabled = False
mundelete.Enabled = False
munxall.Enabled = False
If Clipboard.GetText() = "" Then
numzhant.Enabled = False
Else
numzhant.Enabled = True
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim i As String
If edit Then
i = MsgBox("File Changed save or not?", vbYesNo + vbInformation, "Notice")
If i = vbYes Then
CommonDialog1.Filter = "Excel File *.csv| *.csv" 'Filter files,*csv only
CommonDialog1.InitDir = "C:\NanoData"
CommonDialog1.FileName = "" '清空
fn = CommonDialog1.FileName
RichTextBox1.SaveFile CommonDialog1.FileName, 1 '//这里是保存文件其中1表示保存为csv
End If
End If
End Sub
Private Sub mun_Click() '保存
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
CommonDialog1.Filter = "Excel File *.csv| *.csv" 'Filter files,*csv only
CommonDialog1.InitDir = "C:\NanoData"
CommonDialog1.FileName = "" '清空
fn = CommonDialog1.FileName
CommonDialog1.ShowSave
If Dir(fn) <> "" Then '判断文件是否存在
MsgBox "File already exist."
Exit Sub
End If
Open CommonDialog1.FileName For Output As #1
Print #1, RichTextBox1.Text
Close #1
ErrHandler:
End Sub
Private Sub munlingc_Click() '另存为对话框
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
CommonDialog1.Filter = "Excel File *.csv| *.csv" 'Filter files,*csv only
CommonDialog1.InitDir = "C:\NanoData"
CommonDialog1.FileName = "" '清空
CommonDialog1.ShowSave
fn = CommonDialog1.FileName
If Dir(fn) <> "" Then '判断文件是否存在
MsgBox "File already exist."
Exit Sub
End If
Open CommonDialog1.FileName For Output As #1
Print #1, RichTextBox1.Text
Close #1
ErrHandler:
End Sub
Private Sub munabout_Click()
MsgBox "NanoSpec 3000 Data Reader CopyRight: Ambrosia Chan @ Littel Fuse 2011", , "NanoSpec Data Reader" '对话框
End Sub
Private Sub muncolor_Click() '颜色
CommonDialog1.CancelError = True '报错处理
On Error GoTo ErrHandler '报错处理
CommonDialog1.ShowColor ' 调出颜色对话框
RichTextBox1.BackColor = CommonDialog1.Color '背景颜色设置
ErrHandler:
End Sub
Private Sub muncopy_Click()
Clipboard.Clear '清空剪切板
Clipboard.SetText RichTextBox1.SelText '复制选中的内容
End Sub
Private Sub mundelete_Click()
RichTextBox1.SelText = "" '清空RichTextBox1选中的内容！
End Sub
Private Sub munexit_Click() '退出
Dim i As String
If edit Then
i = MsgBox("File Changed save or not?", vbYesNoCancel + vbInformation, "Notice")
If i = vbYes Then
CommonDialog1.Filter = "Excel File *.csv| *.csv" 'Filter files,*csv only
CommonDialog1.InitDir = "C:\NanoData"
CommonDialog1.FileName = "" '清空
fn = CommonDialog1.FileName
CommonDialog1.Filter = "Excel File *.csv| *.csv" 'Filter files,*csv only
CommonDialog1.InitDir = "C:\NanoData"
CommonDialog1.FileName = "" '清空
fn = CommonDialog1.FileName
CommonDialog1.ShowSave
RichTextBox1.SaveFile CommonDialog1.FileName, 1 '这里是保存文件其中1表示保存为csv
End
ElseIf i = vbCancel Then
Exit Sub
ElseIf i = vbNo Then
End
Else
End
End If
End If
If edit = False Then
End
End If
End Sub
Private Sub munfindnext_Click() '查找下一个
RichTextBox1.SelStart = RichTextBox1.SelStart + RichTextBox1.SelLength + 1 '继续查找下一个内容
RichTextBox1.Find sfind, , Len(RichTextBox1)
End Sub
Private Sub munfont_Click() '设置字体
CommonDialog1.CancelError = True '报错处理
On Error GoTo ErrHandler '报错处理
CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects '设置字体对话框的样式
CommonDialog1.ShowFont
If CommonDialog1.FontName > "" Then
Form1.RichTextBox1.Font = CommonDialog1.FontName
End If
RichTextBox1.SelFontSize = CommonDialog1.FontSize
RichTextBox1.SelBold = CommonDialog1.FontBold
RichTextBox1.SelItalic = CommonDialog1.FontItalic
RichTextBox1.SelStrikeThru = CommonDialog1.FontStrikethru
RichTextBox1.SelUnderline = CommonDialog1.FontUnderline
RichTextBox1.SelColor = CommonDialog1.Color
ErrHandler:
End Sub
Private Sub munfontcolor_Click()
CommonDialog1.CancelError = True '报错处理
On Error GoTo ErrHandler
CommonDialog1.ShowColor '调出颜色对话框
RichTextBox1.SelColor = CommonDialog1.Color '设置字体颜色
ErrHandler: '结束报错
End Sub
Private Sub munfound_Click()
sfind = InputBox("Please input the keywords", "Find", sfind) '查找输入框
RichTextBox1.Find sfind '查找
End Sub
Private Sub munhelpzhut_Click()
frmtest.Show '调出窗体form2
End Sub
Private Sub munjianq_Click()
Clipboard.Clear '清空剪切板内容
Clipboard.SetText RichTextBox1.SelText ' 剪切选择内容
RichTextBox1.SelText = ""
End Sub
Private Sub munnew_Click()
Dim i As String
If edit Then
i = MsgBox("File Changed save or not?", vbYesNo + vbInformation, "Notice")
If i = vbYes Then
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
CommonDialog1.Filter = "Excel File *.csv| *.csv" 'Filter files,*csv only
CommonDialog1.InitDir = "C:\NanoData"
CommonDialog1.FileName = "" '清空
fn = CommonDialog1.FileName
CommonDialog1.ShowSave
RichTextBox1.SaveFile CommonDialog1.FileName, 1 '//这里是保存文件其中1表示保存为csv
ErrHandler:
End If
End If
RichTextBox1.Text = ""
End Sub
Private Sub munopen_Click() '打开对话框
Dim i As String
If RichTextBox1.Text <> "" Then
i = MsgBox("File Changed save or not?", vbYesNo + vbInformation, "Notice")
If i = vbYes Then
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
CommonDialog1.Filter = "Excel File *.csv| *.csv" 'Filter files,*csv only
CommonDialog1.InitDir = "C:\NanoData"
CommonDialog1.FileName = "" '清空
fn = CommonDialog1.FileName
CommonDialog1.ShowSave
RichTextBox1.SaveFile CommonDialog1.FileName, rtfText '//这里是保存文件其中1表示保存为csv
CommonDialog1.CancelError = True '报错处理
On Error GoTo ErrHandler
CommonDialog1.ShowOpen '打开对话框
CommonDialog1.Filter = "DAT File (*.dat;*.$$$)| *.dat;*.$$$" 'Filter files, *.dat;*.$$$
RichTextBox1.Text = "" '清空文本框
FileName = CommonDialog1.FileName '文件路径
RichTextBox1.LoadFile FileName
SaveFileName = CommonDialog1.FileName
ErrHandler:
Else
CommonDialog1.CancelError = True '报错处理
On Error GoTo ErrHandler
CommonDialog1.ShowOpen
CommonDialog1.Filter = "DAT File (*.dat;*.$$$)| *.dat;*.$$$" 'Filter files, *.dat;*.$$$
RichTextBox1.Text = "" '清空文本框
FileName = CommonDialog1.FileName '文件路径
RichTextBox1.LoadFile FileName
SaveFileName = CommonDialog1.FileName
End If
Else
CommonDialog1.CancelError = True '报错处理
On Error GoTo ErrHandler
CommonDialog1.ShowOpen
CommonDialog1.Filter = "DAT File (*.dat;*.$$$)| *.dat;*.$$$" 'Filter files, *.dat;*.$$$
RichTextBox1.Text = "" '清空文本框
FileName = CommonDialog1.FileName '文件路径
RichTextBox1.LoadFile FileName
SaveFileName = CommonDialog1.FileName
End If
End Sub
Private Sub munprint_Click()
CommonDialog1.ShowPrinter '打印
End Sub
Private Sub munxall_Click() '全选
RichTextBox1.SelStart = 0
RichTextBox1.SelLength = Len(RichTextBox1.Text)
End Sub
[解决办法]
在打开事件里改一下
CommonDialog1.CancelError = True '报错处理
On Error GoTo ErrHandler
CommonDialog1.ShowOpen '打开对话框
CommonDialog1.Filter = "DAT File (*.dat;*.$$$)| *.dat;*.$$$" 'Filter files, *.dat;*.$$$
RichTextBox1.Text = "" '清空文本框
改成
CommonDialog1.CancelError = True '报错处理
On Error GoTo ErrHandler
CommonDialog1.InitDir = "C:\nanospec\result"
CommonDialog1.Filter = "DAT File (*.dat;*.$$$)| *.dat;*.$$$" 'Filter files, *.dat;*.$$$
CommonDialog1.ShowOpen '打开对话框
RichTextBox1.Text = "" '清空文本框
