专注于互联网--专注于架构

最新标签
网站地图
文章索引
Rss订阅
通过阅读、研究本文并按本文所述进行尝试,初学者将学到很多东西,如怎样使用RichText控件来打开和保存文件,怎样制作菜单、工具栏和状态栏以及如何对其编写代码等。      第一章 让我们的记事本马上运行      急于求成是初学者共有的心愿。那好,请按如下三个步骤做,我们的愿望立即就可以实现!      步骤一:绘制界面。   新建一个标准EXE工程,将其Caption属性改为“超级记事本”,点击Icon属性给它找个合适的Icon图标。单击菜单“工程”-“部件”,在弹出的“部件”对话框里找到Microsoft RichText Box 6.0和公共对话框... [阅读全文] [PDF]
通过阅读、研究本文并按本文所述进行尝试,初学者将学到很多东西,如怎样使用RichText控件来打开和保存文件,怎样制作菜单、工具栏和状态栏以及如何对其编写代码等。      第一章 让我们的记事本马上运行      急于求成是初学者共有的心愿。那好,请按如下三个步骤做,我们的愿望立即就可以实现!      步骤一:绘制界面。   新建一个标准EXE工程,将其Caption属性改为“超级记事本”,点击Icon属性给它找个合适的Icon图标。单击菜单“工程”-“部件”,在弹出的“部件”对话框里找到Microsoft RichText Box 6.0和公共对话框... [阅读全文] [PDF]
打开文件   Private Sub mnuOpen_Click()   CommonDialog1.Filter = \"文本文档(*.txt) *.txt RTF文档(*.rtf) *.rtf 所有文件(*.*) *.*\"   CommonDialog1.ShowOpen   RichTextBox1.Text = \"\" \'清空文本框   FileName = CommonDialog1.FileName   RichTextBox1.LoadFile FileName   Me.Caption = \"超级记事本:\" & FileN... [阅读全文] [PDF]
好了,其它的菜单项以后再根据需要添加。现在进入:      步骤三:编写代码。      \'声明查找变量   Dim sFind As String   \'声明文件类型   Dim FileType, FiType As String      \'初始化程序   Private Sub Form_Load()   \'设置程序启动时的大小   Me.Height = 6000   Me.Width = 9000   End Sub      \'设置编辑框的位置和大小   Private Sub Form_Resize()   On Error Re... [阅读全文] [PDF]
1 共4条 分1页