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

宝山壁画 宝山壁画是引人注目的昂贵文物。此壁画发现于阿鲁科尔沁旗东沙布乡境内。1994年列为“全国十大考古新发现”之一。宝山壁画中最引人注目的是《杨贵妃教鹦鹉图》。该画高0.7米、宽2.3米，用于笔重彩绘制，最突出的表现了 晚唐风格。唐代擅长绘贵妇仕女的大师周昉绘制了《杨贵妃教鹦鹉图》，不仅享誉中原，而且还影响全国各地。发现于阿旗宝山古墓里的这幅画，就是契丹人聘请中原画家按照周氏风格绘制的， 技法深得周氏画风的真传。在唐人真迹稀如星风的今天，能够从中完整了解唐代人物画的杰出成就，堪称美术史研究的辛事。这幅壁画现今保存在阿鲁科尔沁旗博物馆，历经千年，恍如新绘，是该馆的镇馆之宝。 欢迎大家观看！ 释放资源 popupMenu mnuFile * 窗体级有效性检验（续） 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