vb记事本问题

显示全部楼层 · 2011-1-2 01:11:42

-------------------------------------------
Private Sub mnuOpen_Click()
CommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"
CommonDialog1.ShowOpen
RichTextBox1.Text = ""
FileName = CommonDialog1.FileName
RichTextBox1.LoadFile FileName
Me.Caption = "超级记事本：" & FileName
End Sub
--------------------------------------------------
RichTextBox1.LoadFile FileName
这一句，为什么vb提示错误，未找到方法或数据成员
怎么改？
“.LoadFile ”不对，什么原因？是不是少安装了什么啊，
RichTextBox1.SaveFile (CmdOpen.FileName)这句的
“.SaveFile ”也不行
RichTextBox1.SaveFile FileName, rtfText 这句的
“.SaveFile ”也不行
好像少装什么？
---------------------------------------------------------------
能不能换别的代替一下，给个代码看看。

千问 · 2011-1-2 01:11:42

加入一个RichTextBox,一个commondialog,其他菜单见程序.Option ExplicitPublic sFind As StringPrivate Sub Form_Resize()
'如果窗体不处于最小化RichTextBox1状态，改变RichTextBox1大小以适应窗体大小变化
If Form1.WindowState1 Then
RichTextBox1.Width = Form1.Width - 135
If Form1.Height < 1200 Then
Form1.Height = 120

千问 · 2011-1-2 01:11:42

你的程序我运行了完全没问题，可以把电脑上某个记事本的内容放到"RichTextBox1“里你可能是放了加载CommonDialog或RichTextbox控件了