帮帮忙阿：我做的简单编辑器所修饰的文本格式怎么才能保存下来呢 一下是我的代码 Private Sub Check1_Click(Index As Integer) Select Case Index Case 1 Text1.FontBold = Check1(1).Value Case 2 Text1.FontItalic = Check1(2).Value End Select

End Sub

Private Sub Command1_Click(Index As Integer) file_Click (Index) End Sub

Private Sub edi_Click(Index As Integer) i = Index Select Case i Case 0 Clipboard.SetText Text1.SelText Text1.SelText = "" Case 1 Clipboard.SetText Text1.SelText Case 2 Text1.SelText = Clipboard.GetText() Case 3 Text1.SelText = "" End Select End Sub

Private Sub file_Click(Index As Integer) i = Index Select Case i Case 0 Text1.Text = "" Form1.Caption = "未命名" Case 1 cd1.ShowOpen fname = cd1.FileName If fname <> "" Then Text1.Text = "" Open fname For Input As #1 b = "" Do Until EOF(1) Line Input #1, nextline b = b & nextline & Chr(13) & Chr(10) Loop Close #1 Text1.Text = b End If Form1.Caption = fname Case 2 If Form1.Caption = "未命名" Or Form1.Caption = "" Then cd1.ShowSave fname = cd1.FileName Else fname = Form1.Caption End If If fname <> "" Then Open fname For Output As #1 Print #1, Text1.Text Close #1 End If Case 3 cd1.ShowSave fname = cd1.FileName If fname <> "" Then Open fname For Output As #1 Print #1, Text1.Text Close #1 End If Case 4 End End Select End Sub

Private Sub Form_Resize() With Text1 .Top = Picture1.Height .Left = 0 .Height = Form1.ScaleHeight - Picture1.Height .Width = Form1.ScaleWidth End With End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) edi(0).Visible = IIf(Text1.SelLength = 0, False, True) edi(1).Visible = IIf(Text1.SelLength = 0, False, True) edi(3).Visible = IIf(Text1.SelLength = 0, False, True)

End Sub

Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) edi(0).Visible = IIf(Text1.SelLength = 0, False, True) edi(1).Visible = IIf(Text1.SelLength = 0, False, True) edi(3).Visible = IIf(Text1.SelLength = 0, False, True) End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

n = Button.Index Select Case n Case 2, 3, 4 file_Click (n - 1) Case 5 Text1.FontBold = Button.Value Case 6 Text1.FontItalic = Button.Value End Select End Sub

    先在"工程--引用"中调入FSO对象模型;
    接着使用如下代码:
Dim fsoM as FileSystemObject
Set fileM = fsoM.CreateTextFile(Path &amp; ".txt" ,forWrite)
fileM = fsoM. write(Text)
fileM.Close
注:Path是你要储存的路径和文件名;Text是你要储存的文本.
OK,到此为止.

FSO对象模型是做什么用的？我怎么找不到？帮助中也没有啊，调不进来怎么办呢？

谢谢啦

    FSO对象模型是用来进行对文件系统的操作和管理的.把"Microsoft Scripting Runtime"一项打上钩,就行了.

     还是不行啊！fileM = fsoM. write(Text)中fsom没有write属性阿

还有成功后就能显示文本格式了?比如字体,颜色等 （窗体中我用的是text）

谢谢

真的很对不起,有点细节被我忽略了...... Dim fsoM as New FileSystemObject , fileM Set fileM = fsoM.CreateTextFile(Path & ".txt" ) fileM. write(Text) fileM.Close

   我调试了好久,才找出症结所在----这次应该没问题了!

看见了没???

[此贴子已经被作者于2005-7-28 23:45:29编辑过]

   调试成功！！——但是，打开的时候无论用*.doc、*.txt还是写字板都看不到我所做的修饰阿？比如粗体斜体！是不是新建的文件仍然是text？这样的话就是看不到文本格式的——跟记事本一样是无格式的文本？如果是这样的话不用引用Fso也能保存阿

 我以为新建一个文件把文本倒以下就可以了？

麻烦你了

Set fileM = fsoM.CreateTextFile(Path & ".txt" ) ----".txt"都出来了, 这样做只能生成顺序文本文件(TextStream),肯定...... 不过不知道把".txt"换掉行不行.......