怎么在vs08中用vb编写一个记事本呢？ - VB / 基础类
用vb写一个和windows的记事本差不多功能的就ok了
Private Sub 保存ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 保存ToolStripMenuItem.Click
'OpenFileDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"
' OpenFileDialog1.
AxCommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"
AxCommonDialog1.ShowSave()
FileType = AxCommonDialog1.FileTitle '格式
' FiType = LCase(Right(FileType, 3)) '这里怎么写?
filename = AxCommonDialog1.FileName
Select Case FiType
Case "txt"
RichTextBox1.SaveFile(filename, RichTextBoxStreamType.TextTextOleObjs)
'用空格代替 OLE 对象的丰富文本格式（RTF 格式）流。该值只在用于 RichTextBox 控件的 SaveFile 方法时有效。
Case "rft"
RichTextBox1.SaveFile(filename, RichTextBoxStreamType.RichNoOleObjs)
'具有 OLE 对象的文本表示形式的纯文本流。该值只在用于 RichTextBox 控件的 SaveFile 方法时有效。
Case "*.*"
RichTextBox1.SaveFile(filename)
End Select
Me.Text = "记事本" + filename
相关问答：
我在类中有一个函数
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfig是我自定义类型的数据，为什么会提示“只有在公共对象模块中� ......
在vb中如何读取Word内容(包含表格，图片，等）
竟然不是zero。
不知道怎么实现的不要说话
这个只能读文本,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
vb中 现在我要把数据库里存储的一个附件的内容替换了，怎么做，只是替换我指定的位置，不是全部替换
请将问题说明白，存储字段格式，如果是Binary格式的比较麻烦，如果是字串，直接替换。最好不要进行指定位置替换� ......
怎么把已知的数据保存成xml文件，现在已知的数据是
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......
