VB程序设计第4章窗体的设计.ppt

第4章 窗体的设计,第4章 窗体的设计,4.1 知识要点 4.2 习题与解答 4.3 实训指导 4.4 测验题,4.1知识要点,1、窗体的常用属性 Name属性（窗体名称）：名称属性是系统识别对象的标识符。 Caption属性（窗体标题）：设置窗体标题栏的显示文本。 BorderStyle属性（边框样式）：设置或返回窗体的边框样式。,Visible属性（是否可视）：返回或设置窗体为可见或隐藏的值。 Icon属性（窗体图标）：返回窗体在运行时窗体处于最小化时显示的图标。 WindowState属性（窗体的可视状态）：设置一个值指定窗体在运行时的可视状态。,4.1知识要点,2、窗体的事件 Load事件：此事件在一个窗体被装载时发生。 Unload事件：当使用在窗体控制菜单中的Close命令或Unload语句关闭窗体时此事件被触发。 Paint事件：在一个窗体被移动或放大之后，该窗体部分或全部暴露时，Paint事件发生。,4.1知识要点,Resize事件：当一个窗体第一次显示或窗口状态改变时Resize事件发生。 KeyDown/KeyUp/KeyPress：键盘相关事件。 MouseDown/MouseUp/MouseMove：鼠标相关事件。,3、窗体的方法 Show方法：显示窗体。 Move方法：移动窗体的位置并可同时改变窗体的尺寸大小。 Cls方法：清除窗体上通过程序运行由方法产生的文字或图形内容。,4、多重窗体 （1）、添加窗体 具体方法为：选择“工程”菜单的“添加窗体”命令或单击工具栏上的“添加窗体”按钮，即可创建一个新的窗体或把一个属于其他工程的窗体添加到当前工程中。,（2）、设置启动对象 Visual Basic程序运行时，首先执行的对象称为启动对象。缺省情况下，第一个创建的窗体被指定为启动对象，即启动窗体。设置启动窗体的具体方法为： 选择“工程”菜单的“属性”命令，单击“通用”按钮，选中“通用”选项卡，单击“启动对象”列表框的向下按钮，选择作为启动窗体的窗体名称，单击“确定”按钮，启动窗口设置完毕。,5、多文档界面 应用程序的用户界面样式主要有两种：单文档界面（SDI）和多文档界面（MDI）。一个MDI应用程序可以含有三类窗体，即标准窗体、MDI父窗体（简称MDI窗体）和MDI子窗体（简称子窗体）。,（1） 建立多文档界面 创建MDI窗体的步骤 选择“工程”菜单下的“添加MDI窗体”选项，即可创建MDI窗体。 创建子窗体的步骤 新建一个窗体或打开一个已存在的窗体，将其MDIChild属性设置为True，则该窗体就成为MDI子窗体。 MDI窗体及子窗体的加载 当设置MDI窗体为启动窗体时，程序运行后只有MDI窗体被加载，加载子窗体应使用Show方法。,（2）MDI窗体的属性、事件和方法 MDI窗体的属性、事件和方法和单一窗体没什么两样，除此而外，还有专门用于MDI的MDIChild属性、Arrange方法以及QueryUnload事件等。 MDIChild属性 用于设置一个窗体是否做为MDI子窗体，并显示于MDI窗体内。其默认值为False。如果取值为True，则该窗体为子窗体。该属性在运行期间是只读的。,WindowState属性 该属性用来指定在运行时窗体的可视状态，可以取三种值。默认值为0-Normal，表示正常显示窗体；取值为1-Minimized表示窗体最小化，缩小为一个图标；取值为2-Maxmized表示窗体最大化，充满整个屏幕。 Arrange方法 用于重排MDI窗口中的子窗体或图标。其语法格式为： MDIFormName.Arrange arrangement,第4章 窗体的设计,4.1 知识要点 4.2 习题与解答 4.3 实训指导 4.4 测验题,4.2 习题与解答,1、假定窗体的名称（Name属性）为Form1，则把窗体的标题设置为“VB Test”的语句为 。 AForm1=”VB Test” BCaption=”VB Test” CFomr1.Text=”VB Test” DForm1.Name=”VB Test” 答案：B 2、为了使窗体的大小可以改变，必须把它的BorderStyle属性设置为 。 A1 B2 C3 D4 答案：B,3、控件和窗体的Name属性只能通过_设置，不能在_期间设置。 答案：设计、运行 4、Name和Caption属性有何区别？ 答案：Name在属性窗口中表示为“（名称）”，Name是每个对象都具有的最基本的属性，是对象的名字。该属性在程序运行中只能被引用，而不能被修改。创建对象时，VB自动给对象分配一个缺省的名称，此属性只能在设计时在属性窗口中修改。Caption属性表示对象的档题。,窗体和许多控件都具有Caption属性。对于窗体，该属性是显示在标题栏中的文本；对于控件，该属性是显示在控件中或是附在控件之后的文本。创建对象时，其缺省标题与缺省的Name属性值相同。Caption属性即可在设计时的属性窗口修改也可在代码窗口中赋值。 5、如何创建多文档界面？ 答案略。,第4章 窗体的设计,4.1 知识要点 4.2 习题与解答 4.3 实训指导 4.4 测验题,4.3 实训指导,4.3.1 技能训练目的 掌握窗体的属性、事件和方法。 掌握多重窗体的添加方法。 了解多文档界面的类型。 掌握MDI窗体的创建方法及MDI窗体的属性、事件和方法。,4.3.2 技能训练内容 【实训4.1】控制窗体“变大”和“变小”。在窗体上设置三个命令按钮如图4-1所示，程序进入运行状态后，当单击“窗体变大”命令按钮时，窗体变大，单击“窗体变小”按钮时，窗体变小。单击“退出”按钮时，则退出。,图4-1,参考代码： Private Sub Form_Load() Form1.Height = 4000 Form1.Width = 4000 Form1.Top = 1000 Form1.Left = 1000 End Sub Private Sub Command1_Click() “窗体变大”按钮 Form1.Height = Form1.Height + 200 每次增加200点 Form1.Width = Form1.Width + 200 End Sub Private Sub Command2_Click() “窗体变小”按钮 Form1.Height = Form1.Height - 200 每次减少200点 Form1.Width = Form1.Width - 200 End Sub Private Sub Command3_Click() 退出程序 End End Sub,【实训4.2】设计一个由3个窗体组成的“古诗欣赏”应用程序。窗体(Forml)为主界面，窗体2(Form2)中显示宋词“登鹳鹊楼”，窗体3(Form3)中显示唐诗“山行”。 参考代码： （1）在“工程资源管理器”窗体中选择Form1窗体，编写Form1窗体中对象的事件过程代码。,Private Sub Command1_Click() Form2.Show Form1.Hide End Sub Private Sub Command2_Click() Form3.Show Form1.Hide End Sub Private Sub Command3_Click() End End Sub,(2)在“工程资源管理器”窗体中选择Form2窗体，编写Form2窗体中对象的事件过程代码。,Private Sub Form_Activate() Print Tab(6); “登鹳鹊楼“ Print Print Tab(4); “白日依山尽，“ Print Tab(4); “黄河入海流。“ Print Tab(4); “欲穷千里目，“ Print Tab(4); “更上一层楼。“ End Sub Private Sub Command1_Click() Cls Form1.Show Form2.Hide End Sub,(3)在“工程资源管理器”窗体中选择Form3窗体，编写Form3窗体中对象的事件过程代码。,Private Sub Form_Activate() Print Tab(6); “山行“ Print Print Tab(4); “远上寒山石径斜，“ Print Tab(4); “白云生处有人家。“ Print Tab(4); “停车坐爱枫林晚，“ Print Tab(4); “霜叶红于二月花。“ End Sub Private Sub Command1_Click() Cls Form1.Show Form3.Hide End Sub,(4)单击工具栏“启动”按钮运行应用程序，出现如图4-2a所示主窗体。 (5)单击“登鹳鹊楼”命令按钮，出现如图4-2b所示窗体。 (6)单击“山行”命令按钮，出现如图4-2C所示窗体。,图 4-2a,图 4-2b,图 4-2c,第4章 窗体的设计,4.1 知识要点 4.2 习题与解答 4.3 实训指导 4.4 测验题,4.4 测验题,4.4.1 选择题 1 决定窗体标题栏显示内容的属性是_。 AText BName CCaption DBackStyle 答案：C 2 当窗体最小化时缩小为一个图标，设置这个图标的属性是_。 AMouseIcon BIcon CPicture DMousePointer 答案：B,3 为了取消窗体的最大化功能，需要把它的一个属性设置为False，这个属性是_。 AControlBox BMinButton CEnabled DMaxButton 答案：D 4 决定窗体有无控制菜单的属性是_。 AControlBox BMinButton CEnabled DMaxButton 答案：,4.4.2 填空题 1 假定一个文本框的Name属性为Text1，为了在该文本框中显示“Hello！”，所使用的语句为 （1） 。 答案：Te