基于的桌面系统开发方案.ppt

* 窗体级有效性检验（续） Private Sub Form_KeyUp (KeyCode As Integer, Shift As Integer) If Text1.Text = Then cmdSave.Enabled = False Else cmdSave.Enabled = True End If End Sub * 字段级有效性检验 文本框控件的属性 可以对用户的输入进行限制 的设计属性 MaxLength Password Char Locked 字段级有效性检验事件 用来进行有效性检验和输入字符的格式检验。 KeyPress, KeyDown和KeyUp事件 * 字段级有效性检验（续） 掩码编辑控件 限制用户输入的数据的类型 帮助检验用户的输入 的属性： Mask属性 常用于在设计时检验如日期的输入或一些可能有标准输入格式的值 * 域级有效性检验（续） 一个日期的输入格式： MaskEdBox1.Mask = ##/##/####” 按下面所示的格式接受日期： Mask属性如果设置为“”时，控件就和标准文本框控件一样。 一旦定义了输入格式，就会在每个指代字符的下面加上下划线 在真正输入时只需使用一个相同类型的字符来取代这个指代字符就可以了 * 字段级有效性检验（续） Format属性 用来指定控件中输入的数字、日期、时间和文本的显示或打印格式 Text和ClipText属性 Text属性用来返回按照掩码格式输入的数据 ClipText属性返回的只是输入的数据 例如： 掩码控件的Mask属性为″##/##/####″ 当该掩码控件显示的内容为12/12/1999 时 Text属性返回的是12/12/1999 ClipText返回的* 域级有效性检验（续） Validate事件 最简单的数据有效性检验方法 阻止焦点向下一个控件移动，除非所有的有效性规则都满足 需进行有效性验证的控件的CausesValidation属性必须设置为真 * 设计菜单 设计菜单项时注意下面几点： 菜单项应该按照功能分组 每组中的菜单项应该少于或等于五项 每个功能之间使用分隔条隔开 Visual Basic可以创建最多六级子菜单 * 创建设计时的菜单 * 使用菜单编辑器创建的菜单 分隔条 主菜单项 灰化菜单项 打开的选项 访问关键字 快捷键 * 菜单项属性 Checked 指示菜单项是处于打开或是关闭状态 Enabled 决定一个菜单项是否可访问 Visible 决定用户是否可以看见该菜单项 * 菜单项属性（续） WindowList 用来保存一个打开窗口的列表并且标记当前的活动窗口 Index 决定控件数组中菜单项的索引 HelpContextID 指定在菜单项被选中时，按下F1 显示的帮助主题 * 菜单访问键和快捷键 允许使用键盘来访问菜单项 访问键 允许我们使用ALT键和菜单中指定的字母来访问菜单项 快捷键 提供了对菜单项的快捷访问 显示在菜单项的右边 * 弹出菜单 在光标所在处单击鼠标的右键时弹出的菜单 使用菜单编辑器创建菜单 使用PopupMenu方法激活菜单 * 弹出菜单（续） Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = vbRightButton Then PopupMenu mnuEdit End If End Sub * 在运行时修改菜单 菜单可能因为下面的原因需要修改： 改变菜单项的标题 改变菜单项的Checked 属性以指示该菜单项是打开的还是关闭的 根据程序的状态显示或隐藏菜单项 * 在运行时修改菜单（续） 需要改变 的属性： Caption mnufile.Caption = Data File Checked mnuFile1.Checked = True Enabled mnufile1.Enabled = False Visible mnuFile.Visible = True mnuFile.Visible = False * 在运行时添加或删除菜单项 可以通过使用菜单数组来实现运行时向菜单中添加菜单项 创建数组中第一个元素对应菜单项的Name属性就是菜单控件数组的名称 Load语句用来向数组中添加菜单项 Unload语句用来从菜单控件数组中删除菜单项 * 在运行时添加或删除菜单项（添加示例） Private Sub Form_Load() mnuclear.Enabl