设计我的记事本.ppt

设计我的记事本;【项目要求】;;学习目标;【基础知识】;从图7-2中可以看到，“菜单编辑器”对话框分为三个区域： 1．属性区，用来对菜单项进行属性设置。其中常用属性如表7-2所示。; ;虽然菜单系统是一个整体，但每一个菜单项分别相当于一个控件，也就是说在“菜单编辑器”中包含多个控件，每一个控件都有自己的名字，对每一控件需要分别进行属性的设置。当然，在程序中，也要分别对每个菜单项编写相应的代码。在设计阶段，对属性的设置只能通过“菜单编辑器”进行，在程序运行过程中，可以通过语句改变属性的值。;【基础知识】;【基础知识】;任务一 创建用户界面;3．创建主菜单 （1）在调出的“菜单编辑器”中，设置主菜单“文件”的相关属性。 在【标题（P）】框中输入“文件（F）”后会看到，在“菜单编辑器”的显示区同步显示刚才输入的内容。其中F键??该菜单的访问键，运行时，按Alt+F就可以打开“文件”菜单。 【知识链接】 使某一字符成为该菜单项的访问键。可以用“（+访问字符）”的格式。运行时访问字符的下面会自动加上一条下划线，“”字符则不可见。 （2）单击按钮，出现新的（空白）属性区。按照（1）的方法，根据表7-3依次创建“编辑”和“设置”主菜单。此时，主菜单就设计好了，设置界面如图7-2所示。 ;4．创建子菜单 （1）单击显示区第二行的主菜单“编辑（E）”。 （2）然后单击编辑区中的“插入“按钮，这时在“编辑（E）”前插入了一个空行。 （3）在属性区单击“标题（P）”框并在其中输入第一个子菜单项的标题“新建”。 （4）单击“名称（M）”框并在其中输入第一个子菜单项的名字“FileNew”。 （5）单击编辑区中按钮，菜单项“新建”两个字前加入内缩符号，“新建”被缩进，表示它是从属于“文件（F）”的子菜单项。 【知识链接】 4个点表示一个内缩符号，为第一级子菜单，如果单击向右的箭头按钮两次，就会出现两个内缩符号（8个点），为第二级子菜单，依此类推。单击向左的箭头按钮，内缩符号便会消失。;（6）为“新建”菜单指定快捷键的方法是，单击的下拉列表框，其中列出了可供选择的快捷键组合。选择Ctrl+N作为“新建”的快捷键。在显示区，Ctrl+N就出现在菜单中。 【知识链接】 在运行时，使用快捷键可以大大提高选取命令的速度。按下快捷键时，会马上执行相应的菜单命令。 设置快捷键要注意：一是尽可能按照Windows的习惯设置，以符合平时的操作习惯。二是不要设置太多的快捷键，快捷键过多，不便于记忆，达不到设置快捷键的目的。;（7）按照（1）-（6）的方法，根据表7-4，表7-5和表7-6依次创建“文件”、“编辑”和“设置”主菜单下的各项子菜单。;5．添加分隔符 现在需要在“保存”和“退出”两个子菜单命令中间加一个分隔条。操作过程与建立一个菜单项一样。 （1）“菜单编辑器”中，选中“退出”子菜单项 。 （2）单击“插入”项，可以看到在“退出”命令的上面添加了一行，并自动加入了一个内缩符号。 （3）在“标题（P）”框中输入一个减号（-）。 （4）在“名称（M）”框中为这个减号起一个名字“FileBar”。 【知识链接】 分隔线必须设置“名称（M）”属性，否则运行时会出错。分隔线本身不是菜单项，它仅仅起到分隔菜单项的作用。它不能带有子菜单，不能设置“复选”、“有效”等属性，也不能设置快捷键。 ;（二）添加其它控件 1．在窗体中添加一个文本框。 2．在窗体中添加一个通用对话框控件。;任务二 设置界面属性;任务三 编写事件代码;（一）声明变量并编写初始化代码 1．进入代码窗口，在左下拉框中选择“通用”，右下拉框中选择“声明”，声明窗体级变量flag。 Dim flag As Integer;2．编写Form_Load事件代码 Private Sub Form_Load() flag= 1 End Sub 初始化flag变量。 3．编写Text1_Change事件代码 Private Sub Text1_Change() flag = 0 End Sub 文本框的文本发生了改变，将flag置为0。;（二）为“文件”的下拉菜单编写代码 1．为“新建”菜单项编写事件代码 Private Sub FileNew_Click() Dim filename As String CommonDialog1.Filter = 文本文件|*.txt CommonDialog1.InitDir = c:\ CommonDialog1.DefaultExt = .txt If MsgBox(是否保存该文件, 4, 选择框) = vbYes Then CommonDialog1.ShowSave filename