每次保存都存成RTF格式的文件,提示加参数,怎么加也不对。代码怎么写,大家给个例子??File1.SaveFile (File1.Filename,????)
解决方案 »
- 帮小弟看看,这程序错在哪里?
- setup factory7.0打包制作安装文件,安装后可以运行,但在安装目录我的资源都是透明的,如何解决?
- 用VB自带的 DateReport 打印时,怎样控制纸的规格?
- 求助,不同语言开发的软件之间通信的问题
- 如何将WebBrowser内的网页打印出来?
- VB乱码的问题,100分求救,解决不了就要下岗了!!!
- 如何改变打开文件对话框的样式?
- 问个小问题,大家在开发时用的是什么操作系统?理由?答者有分!
- 请求帮助(急!!!)
- 菜鸟的SQL语句问题。会的请进。
- vb6.0+access2000 如何建一个数据视图这个东东,在线等ing~~~
- 有关Win98字体的麻烦事?
就这样!
rtfText常数的值为1
Syntax error
Private Sub cmdSave_Click()
Dim MsgStr If File1.Filename <> "" And File2.Filename <> "" Then
Dim IntBye As Integer
IntBye = MsgBox("Do you really want to save the file?", vbYesNo + vbQuestion)
If IntBye = vbYes Then
File1.SaveFile (File1.Filename,rtfText)
File2.SaveFile (File1.Filename,rtfText)
MsgStr = MsgBox("Saved!", vbInformation + vbOKOnly, "Compare Utility")
Else
Exit Sub
End If
End If
End Sub这个是我的代码,提示出错阿~
还有阿,好像这样保存下来的是RTF格式的文件,不是文本文件。
File1.SaveFile (File1.Filename,rtfText)
File2.SaveFile (File1.Filename,rtfText)如果改成
File1.SaveFile (File1.Filename)
File2.SaveFile (File1.Filename)则可以保存成RTF格式,但是现在我想要文本格式的。
File1.SaveFile File1.Filename,rtfText
有时一个括号也会引起错误的