怎么在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