怎么在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
相关问答：
在下是vb的新手，想写段程序，在vb中，使用wscript调用一些外部的命令，但是程序执行一直有错误，请各位高手帮忙解答下，谢谢。
代码如下：
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
在vb中如何读取Word内容(包含表格，图片，等）
竟然不是zero。
不知道怎么实现的不要说话
这个只能读文本,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
现在我想根据treeview上每个节点的权限，没有权限的节点不能被选中，而且成灰色，怎么实现，在线等。。。
这个？。。。
貌似没法。
试试能不能改某些node的颜色，记录下上次的nodeclick里的node。
下次点击的如� ......
现在有个xml文件是<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
form1中有text1-8， 和command1
text8中为程序代码（生成窗体为form2（已做好））
单击command1后将text2中的代码生成EXE到d:\ 并且text1-7分别对应
产品名 公司名 合法版权 合法商标 文件描述 注释 标题
......
