VB窗体和简单的输入输出.ppt

第3章 窗体和简单的输入输出,唐加胜,第3章 窗体和简单的输入输出,本章内容 最简单的工程 Form对象的属性、方法和事件 输入对话框inputbox和消息对话框msgbox 编码风格 本章重点 Form对象的属性、方法和事件 Msgbox（） 、 Inputbox（） 本章难点 Msgbox（） Inputbox（）,3.1 最简单的VB工程,最简单VB工程的创建 新建 / ”标准EXE” 只有一个工程文件：工程1.VBP 工程中只有一个窗体文件:form1.frm,3.2 窗体的基本属性,Caption 设置或返回窗体标题栏的文字。 BorderStyle 设置窗体的边框样式，取值见P31 。 Controlbox 设置是否显示窗体的控制菜单条。 MaxButton、MinButton 设置是否显示最大化和最小化按钮 Moveable 设置窗体是否可移动。True可以移动。 Icon 设置窗体最小化时的图标,3.2 窗体的基本属性,Picture 指定窗体内要显示的背景图片。 Set Form1.Picture = LoadPicture(“c:bkground.jpg”) StartUpPosition 窗体启动时在屏幕上的显示位置。手动（0）、容器中央（1）、屏幕中央（2）、窗口缺省（3） WindowState 窗体启动时是正常（0）或最小化（1）或最大化（2） ScaleHeight、ScaleWidth 窗体内部绘图区的高度、宽度，Height,Width 指定整个窗体的高和宽。,课堂示例3-1,用窗体名访问 form1.caption=“欢迎” 用Me访问 （me表示当前窗体） Me.caption=“欢迎” 直接访问窗体属性 caption=“欢迎” 访问窗体的控件属性 窗体名. 控件名.属性 如果是当前窗体，则可省略窗体名。 举例：窗体Form1上有一个命令按钮command1,使之一直位于窗口中央。 (提示：在窗体的resize事件中编写代码),访问窗体的属性,课堂示例3-0,Initialize事件 窗体对象被创建、但没加载。该事件中的代码最先被执行。 通常将一些初始化的操作放在该事件过程中。 Load事件 窗体的所有控件都装入内存，但窗体仍未显示。可使用show方法显示。 窗体中控件的初始值代码通常放在Load事件中，如：Text1=100 Activate事件 窗体处于活动状态事件。 窗体中控件的获得焦点方法Setfocus一般放在此事件中。同时有Gotlocus事件产生。如：text1.setfocus Deactivate事件 窗体处于非活动状态。同时有Lostfocus事件产生。,3.3 窗体的常用事件,【例】设计程序，使窗体一打开就在屏幕的右下角。,【提示】Screen是一个全局的系统对象，对应于计算机屏幕，可以直接使用。 思考:如果窗体位于屏幕的中央，怎么修改上述代码？,课堂示例3-1,Load事件示例,QueryUnload事件 cancel 设置为非零值，可停止窗体的关闭 Unloadmode指示引起此事件的原因 UnLoad事件 在Queryunload事件后发生,课堂示例3-2,3.3 窗体的常用事件,3.3 窗体的常用事件,鼠标事件 窗体中最常用的鼠标事件为Click和DbClick事件，此外，还常用：MouseMove、 MouseDown、MouseUp等事件。 【例】编写程序在窗口标题栏中显示鼠标当前的坐标位置。,Button 按钮常数。左按钮（1）、右按钮（2） Shift 换档常数。 Shift键(1)、 Ctrl键(2) 、Alt键(4) X 鼠标的水平坐标 Y 鼠标的垂直坐标 & 字符串连接操作符,课堂示例3-2,3.3 窗体的常用事件,键盘事件 主要有：KeyPress、Keydown、KeyUP、 KeyPreview KeyPreview为True，窗体的键盘事件优先于控件的键盘事件。通常情况下，焦点控件对于键盘事件有优先响应的权利。 【例】编写程序利用字符+和-实现窗口的变大和变小。,课堂示例3-3,课堂示例3-3,Resize事件 当窗口第一次显示或窗口大小改变时引发该事件。 当窗口调整大小时，可用Resize事件过程来移动窗口中的控件位置或调整其大小，以使界面保持美观。 【例】设计包含一个TextBox控件的窗体，要求该控件总是充满整个窗体。(提示：ScaleWidth和ScaleHeigth属性代表窗口内部绘图区域的宽度和高度。),3.3 窗体的常用事件,Print方法 cls方法 Show方法 Hide方法,窗体的常用方法,窗体类型 SDI窗体程序运行中只有一个窗口被激活和显示 MDI窗体程序管理和显示多个窗口 添加新窗体 “工程 - 添加 - 添加窗体” 添加已存在窗体 “工程 - 添加 - 添加文件” 提示：一个工程中可以添加多个窗体，一个窗体可以添加到多个工程中。,3.4 设计多窗体程序,课堂示例3-4,指定启动窗体 有多个窗体的工程必须指定一个启动窗体。默认情况下，第一个创建的窗体为启动窗体。如果需要更改，可采用以下方法： 右键单击“工程”，选“工程属性” 选“通用”选项卡 在“启动”列表框中，选中所要窗体 使用Sub Main 在标准模块(.bas)中定义主过程Main Sub Main() . End Sub 在工程属性的“启动”列表框中，选中“Sub Main” 举例：将前面的示例合并到一个工程文件中。,设置启动窗体,窗体的加载、显示和隐藏,除了通过设置启动窗体来自动加载窗体外，还可以在程序中加载窗体。 在程序中加载窗体的方法: 窗体名.Show 0 无模式窗体，可以将焦点切换到其它窗体 窗体名.Show 1 模式窗体，不能将焦点切换到其它窗体 执行Show方法可以完成窗体的创建、加载和可见三个过程。 如果执行Load 窗体名只能加载窗体,此时窗体还不可见，仍需要执行show方法。 显示窗体 窗体名.Show 窗体名.Visible =True 隐藏窗体 窗体名.Hide 窗体名.Visible =False,End 语句，立即中止、结束程序。不触发窗体的Unload和QueryUnload事件。,窗体的关闭,卸载窗体可以使用以下几种方法: Unload 窗体名 Unload me End 关闭按钮,课堂示例3-6,3.5 简单的输入和输出,消息对话框MsgBox MsgBox函数和语句会产生一个输出对话框，向用户传送信息，并可通过用户在对话框上的选择接收用户所做的响应，作为程序继续执行的依据。 格式： MsgBox( prompt ,buttons ,title) prompt对话框中显示的消息，字符串表达式 buttons按钮、图标和默认按钮的取值之和，数值表达式，见P41 Title对话框的标题，字符串表达式 函数返回值为一个数值，见P42。,课堂示例3-5,输入对话框InputBox Inputbox函数提供一个输入对话框，允许用户输入数据。 函数返回值就是用户输入的值，是一个字符串。 格式：变量=InputBox( prompt ,title,default,x,y) BackString 对话框中的返回值 prompt 对话框中显示的提示信息，必选项 title 可选，对话框的标题，缺省标题为应用程序名 default 可选，输入文本框中的缺省值 x, y 对话框与屏幕左边和上边的距离,3.5 简单的输入和输出,VB语句书写规则,每个语句占一行，以回车键结束； 多个语句可写在同一行上，各语句间用冒号:隔开。例如： t=a : a=b : b=t 一个语句可以写在多行上，中间行末尾用下划线_表示续行，续行符（即下划线）与前面的字符之间至少要有一个空格；在同一行内，续行符后面不