基于vb的桌面系统开发方案

《基于vb的桌面系统开发方案》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、1基于VB的桌面系统开发方案用户输入的有效性检验12课题目标理解应用程序中窗体的作用分析数据有效性验证的目的以及两种实现数据有效性验证的技术学习使用掩码编辑控件理解应用程序中菜单的重要性回顾如何使用数据控件从数据库中访问数据回顾如何创建MDI应用程序3设计一个良好的界面用户界面用户和应用程序之间的连接4属性设置控件的特征和状态共有的属性：LeftTopHeightWidthName5属性（续）三类属性：只在设计时才可访问的属性只在运行时才可访问的属性可以在任何时候访问的属性象状态条这样的控件在属性窗口中有一个自定义的按钮，它将帮助你为控件设定一些额外的属性6属性窗口在设计时设置

2、控件属性7在运行时设置控件属性在运行时，属性也可以被改变在程序中可以使用一个赋值语句来设置新的属性值cmdButton1.Enabled=True控件的名称属性只能在设计时设置8事件在应用程序中发出的任何用户行为一条消息可以是：按下了键盘的一个键点击了鼠标按钮。KeyDown事件会从窗口接收参数：PrivateSubCommand1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)EndSub9方法在部件接口中产生好了的代码可以根据用户要求来调用窗体的方法：Load初始化和加载一个窗体到内存，但是不在屏幕上显示这个窗体LoadForm110方法（

3、续）Unload把窗体从内存中卸载UnloadForm1或者UnloadMeHide从屏幕上隐藏一个窗体，同时还在内存中保持它的值Form1.Hide或者Me.Hide11方法（续）Show加载窗体并把它显示到屏幕上。Form1.ShowvbModal12窗体事件窗体事件的触发顺序如下：InitializeLoadActivateDeactivateQueryUnloadUnloadTerminate13窗体事件（续）Initialize在窗体加载和显示之前触发。在整个应用程序的运行过程中这个事件只触发一次。Form1.Show或者LoadForm114窗体事件（续）Load完

4、成窗体显示之前需要完成的动作。在整个应用程序的运行过程中可以触发多次。PrivateSubForm_Load()Text1.text=“Helloeverybody”Endsub15窗体事件（续）Activate/Deactivate用户在同一个应用程序的两个或多个窗体之间移动时触发Activate事件发生在GotFocus事件之前Deactivate事件在LostFocus事件之后发生窗体必须可见QueryUnload在Unload事件之前发生16窗体事件（续）PrivateSubForm_QueryUnload(CancelAsInteger,UnloadModeAsInt

5、eger)IfUnloadMode=vbFormCodeThenMsgBox"YouinvokedtheUnloadstatement"Cancel=FalseEndIfEndSub17窗体事件（续）Terminate在窗体的所有实例从内存中清除时发生在Unload事件后发生SetForm1=Nothing在程序非正常结束时，即便窗体的实例已从内存中清除，也不会触发18控件的事件KeyDown当用户按下键盘上一个键时发生。PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=vbKeyHomeThen

6、MsgBox"YoupressedtheHomekey"EndIfEndSub19控件的事件（续）KeyUp在用户松开键盘上按下的键时发生。PrivateSubText1_KeyUp(KeyCodeAsInteger,ShiftAsInteger)StatickpAsIntegerkp=kp+1Label1.Caption=kpEndSub20控件的事件（续）KeyPress在KeyDown和KeyUp事件之间发生。PrivateSubText1_KeyPress(KeyAsciiAsInteger)txt=Chr(KeyAscii)KeyAscii=Asc(UCase(txt

7、))EndSub21控件的事件（续）MouseDown在鼠标键被按下时触发。PrivateSubText1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=1ThenMsgBox"YoupressedtheLeftmousebutton”ElseIfButton=2ThenMsgBox"YoupressedtheRightmousebutton”EndIfEndSub22控件的事件（续）MouseUp