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

第三章 窗体和简单的输入输出,本章内容: 最简单的工程 Form对象的属性、方法和事件 输入对话框inputbox和消息对话框msgbox 编码风格 本章重点: Form对象的属性、方法和事件； inputbox（）、msgbox（） 本章难点: inputbox（）、msgbox（）,3.1 最简单的工程,最简单的VB程序： 新建”标准EXE” 只有一个工程文件：工程1.VBP 工程中只有一个窗体:form1.frm,3.2 窗体的属性,一、窗体的属性 Caption 控制窗体标题栏的文字 BorderStyle 控制窗体的边框样式，取值见 。 Controlbox、MaxButton、MinButton 是否显示菜单条、最大化和最小化按钮 WindowState 启动时是正常（0）或最小化（1）或最大化（2） Picture 指定窗体内要显示的图片 Set Form1.Picture = LoadPicture(“c:bkground.jpg”) Icon 窗体最小化时的图标 MouseIcon 鼠标图标 ScaleHeight、ScaleWidth 窗体内部绘图区的高度、宽度，Height,Width 指定整个窗体的高和宽。 StartUpPosition 窗体在屏幕上的显示位置：手动（0）、容器中央（1）、屏幕中央（2）、窗口缺省（3） 。,二、访问窗体的属性 用窗体名访问 form1.caption=“欢迎” 用Me（表示当前窗体）访问 Me.caption=“欢迎” 直接访问属性 caption=“欢迎” 访问窗体上控件的属性 窗体名. 控件名.属性 如果是当前窗体，则可省略窗体名。,3.2 窗体的属性,创建 Initialize事件,可见,加载 Load事件,获得焦点 Activate和GotFocus事件,失去焦点 Deactivate和LostFocus事件,卸载 QueryUnload和UnLoad事件 Terminate事件,3.3 窗体的事件,课堂示例3-0,一、窗体的创建、加载事件,1. Initialize事件 窗体对象被创建、但没加载。该事件中的代码最先被执行。 通常将一些初始化的操作放在该事件过程中。,2. Load事件 窗体的所有控件都装入内存，但窗体仍未显示。可使用show方法显示。 对控件设置初始值的代码通常放在Load事件中，如：text1.text=100,【例】设计程序，使窗体一打开就在屏幕的右下角。,【提示】Screen是一个全局的系统对象，对应于计算机屏幕，可以直接使用。 思考:如果窗体位于屏幕的中央，怎么修改上述代码？,课堂示例3-1,3. Activate事件 窗体处于活动状态。Setfocus方法一般放在此事件中。 Form1_Activate() MsgBox “Activate事件发生!” End Sub 4. Deactivate事件 窗体处于非活动状态。,课堂示例3-0,5. QueryUnload事件,Unloadmode（选讲） 一个值或一个常数，如返回值中所描述的，它指示引起 QueryUnload 事件的原因。参数返回下列值： 常数 值 描述 vbFormControlMenu 0 用户从窗体上的“控件”菜单中选择“关闭”指令。 vbFormCode 1 Unload 语句被代码调用。 vbAppWindows 2 当前 Microsoft Windows 操作环境会话结束。 vbAppTaskManager 3 Microsoft Windows 任务管理器正在关闭应用程序。 vbFormMDIForm 4 MDI 子窗体正在关闭，因为 MDI 窗体正在关闭。 vbFormOwner 5 因为窗体的所有者正在关闭，所以窗体也在关闭。,cancel 设置为非零值，可停止窗体的关闭,6. UnLoad事件：在Queryunload事件后发生,课堂示例3-2,cancel 设置为非零值，可停止窗体的关闭,Unload 窗体名 或 Unload me 关闭按钮 End （End 语句，立即结束程序。不触发Unload和QueryUnload事件。）,卸载窗体:,三、鼠标事件,6.鼠标事件 最常用的鼠标事件为Click和DbClick事件。 绘图中还常用：MouseMove、 MouseDown、MouseUp 【例】编写程序在窗口标题栏中显示鼠标当前的坐标位置。 Button 按钮常数。左按钮（1）、右按钮（2） Shift 换档常数。 Shift键(1)、 Ctrl键(2) 、Alt键(4) X 鼠标的水平坐标 Y 鼠标的垂直坐标 & 字符串连接操作符,鼠标事件示例,键盘事件,7.键盘事件 主要有：KeyPress、Keydown、KeyUP、 KeyPreview 例：编写程序利用键盘“+”和“-”实现窗口的变大和变小。,KeyAscii 键盘上字符的Ascii码值,课堂示例3-3,Resize事件,8. Resize事件 当窗口第一次显示或窗口大小改变时该事件发生。 当窗口调整大小时，可用Resize事件过程来移动窗口中的控件位置或调整其大小，使界面保持美观。 【例】设计包含一个TextBox控件的窗体，要求该控件总是充满整个窗口。(其中可以用到窗体的ScaleWidth和ScaleHeigth属性，他们代表窗口内部绘图区域的宽度和高度。),课堂示例3-3,举例:窗体form1上有一个命令按钮command1,使之一直位于窗口中央。 (提示:在窗体的resize事件中编写代码),控件始终显示在窗口中央堂示例,3.4 设计多窗体程序,添加新窗体 “工程 - 添加 - 添加窗体” 添加已存在窗体 “工程 - 添加 - 添加文件” 提示：一个工程中可以添加多个窗体，一个窗体可以添加到多个工程中。,设置启动窗体,指定启动窗体 多个窗体的应用程序必须指定一个启动窗体。 默认情况下是第一个创建的窗体。 在“工程”菜单中，选“工程属性” 选“通用”选项卡 在“启动”列表框中，选中所要窗体,使用Sub Main 在标准模块(.bas)中定义主过程Main Sub Main() . End Sub 在“启动”列表框中，选中“Sub Main” 举例：将前面的示例合并到一个工程文件中。,课堂示例3-4,窗体的显示和隐藏,显示窗体 窗体名.Show 窗体名.Show 0 无模式窗体，可以将焦点切换到其它窗体 窗体名.Show 1 模式窗体，不能将焦点切换到其它窗体 隐藏窗体 窗体名.Hide 或窗体名.Visible =False 执行Show方法可以完成窗体的创建、加载和可见三个过程。,窗体的关闭,一般有以下三种方法: 只有一个窗体。 使用 Unload me 语句。 程序有多个窗体。使用Forms集合和Unload 语句（此方法不常用） For i=0 to Forms.Count -1 Unload Forms(i) Next 直接结束程序运行。使用End语句。,3.5 简单的输入和输出,1.消息对话框MsgBox MsgBox函数和语句会产生一个输出对话框，向用户传送信息，并可通过用户在对话框上的选择接收用户所做的响应，作为程序继续执行的依据。 格式：MsgBox( prompt ,buttons ,title) prompt 对话框中显示的消息，字符串表达式 buttons 按钮、图标和默认按钮的取值之和，数值表达式，见P41 title 对话框的标题，字符串表达式,buttons 指定显示按钮的数目和形式，图标样式，默认按钮等 注：Buttons的取值是由每组类型的参数中取一个值，然后相加,MsgBox(“直接显示提示信息，用户只能选择确定按钮！“,0,“信息提示“),MsgBox(“显示三个按钮，让用户进行选择！“,2,“信息提示“),MsgBox(“显示两个按钮，让用户进行选择，并出现问号！“, 4 + 32, “信息提示“),MsgBox示例程序,MsgBox函数的返回值对应七种按钮,课堂示例3-5,2.输入对话框InputBox 格式：InputBox( prompt ,title ,default,x,y ) prompt 对话框中显示的提示信息，必选项 title 可选，对话框的标题，缺省标题为应用程序名 default 可选，输入文本框中的缺省值 x, y 对话框与屏幕左边和上边的距离,输入对话框,课堂示例3-5,窗体的Print方法,对象.PrintSpc(n)/Tab(n)表达式表,在对象上输出信息,参数说明：,对象：可以是窗体（Form）、图形框（PictureBox）或打印机（Printer）。若省略了对象，则在当前窗体上输出。,Print方法示例,表达式表：写在同一行上的若干个表达式，它们可以是算术表达式、字符串表达式、关系表达式和逻辑表达式等，各表达式间用逗号或分号间隔。其开始打印的位置由对象CurrentX和CurrentY属性决定，默认时打印在对象的左上角（0,0）处。,注意：Print方法具有计算和显示的双重功能，对于表达式，先计算，然后再显示结果。,如：Print “aa“2*6 显示：aabb12,按标准输出格式显示,按紧凑输出格式显示,Tab(n)：此函数与Print方法或Print#语句一起使用，对输出进行定位。,（1）Tab函数中，n为数值表达式，其值为整数，是下一个输出位置的列号，表示在输出前把光标或打印头移到该列。通常最左边的列号为1。若当前的显示位置已经超过n，则自动下移一行。当n大于行的宽度时，显示位置为n Mod行宽，若n1，则把输出位置移到下一列。,（2）Tab函数把显示或打印位置移到由参数n指定的列数，从此列开始输出数据。要输出的内容放在Tab函数的后面，并用分号隔开。如：,当在一个Print方法中有多个Tab函数时，每个Tab函数对应一个输出项，各项间用分号隔开。,Print Tab(10);“姓名“;Tab(30);“年龄“,P90示例,Spc(n)：此函数用在Print方法或Print#语句中，跳过n个空格。,n是在显示或打印下一个表达式之前插入的空格数。Spc函数与输出项间用分号隔开。,（1）当Print方法与大小不同的字体一起使用时，使用Spc函数打印的空格字符的宽度总是等于选用字体内以磅数为单位的所有字符的平均宽度。 （2）Spc函数与Tab函数的作用类似，可互相代替。但应注意，Tab函数从对象的左端开始计数，而Spc函数只表示两个输出项之间的间隔。 （3）另外还有Space函数，功能与Spc函数类似。,Print “ABC“;Spc(5);“DEF“ 显示：ABC DEF,说明：,书写代码的规则,1不区分大小写 在VB中所有的关键字、常量名、变量名以及对象属性等在书写时不区分英文大小写。但字符串的值，值“A“和值“a“是两个不同