求助:一道简单的VB题,请大家帮忙谢谢

来源:百度知道 编辑:UC知道 时间:2024/05/17 02:48:02
设计程序,实现简单的文本编辑器具有“打开”“保存”“颜色”包含一个对话框(CommonDialog1)一个文本框(text1)
三个命令按钮本人是菜鸟

这里有所有公用对话框的源代码:http://sysdzw.51file.net下载其中的公用对话框集中范例.rar效果演示:



Dim sfind As String
Dim filetype, fitype As String

Private Sub baocun_Click()
CommonDialog1.Filter = "文本文档(*.txt)|*.txt|word文档(*.doc)|(*.doc)|所有文件(*.*)|*.*"
CommonDialog1.ShowSave
filetype = CommonDialog1.FileTitle
fitype = LCase(Right(filetype, 3))
FileName = CommonDialog1.FileName
Select Case fitype
Case "txt&q