怎么在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 ......
为什么我用form.show和form.hide多次连接了两个窗口只能互换链接两次啊?
代码看看
照道理form.show 没次数限定的吧
我也快疯了。
楼主知道怎么发贴么?
引用
我也快疯了。
楼主知道怎么发贴么?
楼主也 ......
在vb中如何读取Word内容(包含表格,图片,等)
竟然不是zero。
不知道怎么实现的不要说话
这个只能读文本,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
现在有个xml文件是<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
vb WebBrowser 小问题,请教:
WebBrowser里的网址跳转后,怎么取得跳转后的页面的URL地址
顶下顶下
引用
BeforeNavigate2
好像没有这个吧 vb6.0
BeforeNavigate2
这个可以有,呵呵。
......