【教学课件】第03章窗体按钮标签文本框.ppt

《【教学课件】第03章窗体按钮标签文本框.ppt》由会员分享，可在线阅读，更多相关《【教学课件】第03章窗体按钮标签文本框.ppt（54页珍藏版）》请在三一办公上搜索。

1、第三章 窗体、命令按钮、标签、文本框,Form对象的属性、方法和事件输入对话框inputBox和消息对话框MessageBox大多数应用程序中都有命令按钮CommandButton控件，用户可以单击按钮执行某项操作。标签Label控件用来显示文本，但程序运行时Label控件中的文本是只读的，不允许用户编辑。文本框TextBox控件用来输入和显示文本，允许用户编辑其中的文本。,3.1 窗体,VB的窗体类型：SDI窗体(Single Document Interface)程序运行中只有一个窗口被激活和显示MDI窗体(Multiple Document Interface)程序管理和显示多个窗口,V

2、B的窗体（Form）,常用属性：Caption 控制窗体标题栏的文字BorderStyle 控制窗体如何调整大小或不可调整MaxButton,MinButton 是否能最大化和最小化WindowState 启动时是最小化或最大化或正常Picture 指定窗体内要显示的图片Set Form1.Picture=LoadPicture(“c:bkground.jpg”),BorderStyle属性,WindowState属性,窗体的生命周期和事件,通常VB窗体在整个存活期有4种状态:创建状态加载状态可见状态卸载状态,创建Initialize事件,可见,加载Load事件,获得焦点Activate和Go

3、tFocus事件,失去焦点Deactivate和LostFocus事件,卸载QueryUnload和unLoad事件,不同状态下有不同的特征事件,状态的转换,窗体的创建,创建:Initialize事件 Form_Initialize事件过程此种状态下:窗体的代码装入内存（在内存中创建了对象）窗体的控件(可视部分)未装入内存，不可见该阶段很短暂，很快自动进入加载状态。通常将一些初始化的操作放在该事件过程中。,加载：Load事件此种状态下:窗体的所有控件都装入内存，但窗体仍未显示,加载窗体,【例】设计程序，使窗体一打开就在屏幕的右下角。Private Sub Form_Load()Form1.To

4、p=Screen.Height Form1.Height Form1.Left=Screen.Width Form1.WidthEnd Sub【提示】Screen是一个全局的系统对象，对应于计算机屏幕，可以直接使用。,窗体示例,可见状态,使用Show方法窗口可见:Form1.Show例：显示或隐藏窗体Private Sub Form_Click()Form1.HideForm2.ShowEnd Sub,可见状态的事件,改变焦点控制权事件：窗体的活动状态：Activate事件Form1_Activate()MsgBox“Hello”End Sub窗体的非活动状态：Deactivate事件 For

5、m1_DeActivate()MsgBox“See you later”End Sub,例：Private Sub Form_Click()Form1.Hide Form1失去焦点控制权，触发Deactivate事件 Form2.Show Form2获得焦点控制权，触发activate事件 End Sub,Load事件与Activate事件的区别：Private Sub Form_Load()MsgBox HelloEnd SubPrivate Sub Form_Activate()MsgBox HelloEnd Sub,在窗体第一次装入内存中Load事件与Activate事件前后发生,执行的

6、效果是相同的,而当失去焦点控制权后再获得焦点控制权就不再触发Load事件了.或者说,Load事件从装载入内存只触发一次,而焦点控制权可以多次的失去和获得.,卸载窗体,卸载:Unload命令或通过界面操作窗体关闭按钮实现自动卸载 例：Private Sub Command1_Click()Unload me End Sub 窗体卸载时触发Unload事件：Private Sub Form_Unload(Cancel As Integer)MsgBox See you laterEnd Sub,卸载事件,Form_Unload事件 窗口要关闭时引发Unload 事件，可以在Unload事件过程中做

7、最后的提示，如数据是否保存，是否真要关闭窗口等。Private Sub Form_Unload(Cancel As Integer)P35End Sub将Cancel参数设为True(-1),就会取消卸载。,鼠标事件,窗体可以接受鼠标或键盘事件。【例】编写程序在窗口标题栏中显示鼠标当前的坐标位置。Private Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)注：其中Button，Shift参数11章，X，Y表示鼠标停留在窗体上的坐标。Form1.Caption=鼠标事件演示 水平坐标=

8、&X&垂直坐标=&Y Text1=x Text2=yEnd Sub提示：&是字符串连接操作符,键盘事件,【例】编写程序利用键盘“+”和“-”实现窗口的变大和变小。Private Sub Form_KeyPress(KeyAscii As Integer)Select Case KeyAscii Case Asc(+)Case 43 Me.Width=Me.Width*1.05 Me.Height=Me.Height*1.05 Case Asc(-)Case 44 Me.Width=Me.Width*0.95 Me.Height=Me.Height*0.95 End SelectEnd Sub由

9、于参数KeyAscii是一个整数的Ascii码，所以将“+”和“-”字符转换为对应的Ascii码值后再作比较。,Resize事件,当窗口第一次显示或窗口大小改变时该事件发生。,窗体的KeyPreview属性,注意：如果设计的是一个空白的窗体，窗体能正常响应键盘事件，而不需要任何额外的设置。但是如果窗体中放置了控件（尝试放一个TextBox控件），则程序运行后，输入焦点会位于控件上，焦点控件（如TextBox）对于键盘事件有优先响应的权利，窗体就无法接受到键盘事件了。这时只需要将窗体的KeyPreview属性设置为True，那么在控件的键盘事件发生之前会激活窗体的键盘事件。,【例】Private

10、 Sub Form_Click()Print“VB6。0！”End SubPrivate Sub Command1_Click()ClsEnd Sub,窗体的Print与CLS方法,设计多个窗体的应用程序,执行菜单命令“工程|添加窗体”可以让一个应用程序包含多个不同界面的窗体。当需要显示某个窗体时，使用该窗体的Show方法，如Form2.Show；需要关闭某个窗体时，使用Unload命令，如Unload Form2。,设置启动窗体,多个窗体的应用程序必须指定一个启动窗体有启动窗体默认情况下是第一个创建的窗体，否则：在“工程”菜单中，选“工程属性”选“通用”选项卡在“启动”列表框中，选中所要窗体

11、,不使用启动窗体在标准模块(.bas)中定义主过程Main（类似C的main）Sub Main().End Sub在“启动”列表框中，选中“Sub Main”,结束应用程序,以下两种方法可以结束程序:只有一个窗体，在窗体代码中使用Unload me语句。End语句，使应用程序立即结束，所有对象都释放，不触发Unload和QueryUnload事件。,3.2 简单的输入和输出,输出信息：msgBox输入数据：inputBox,消息框MsgBox,消息框的组成：消息正文命令按钮图标消息标题,消息框之消息正文,MsgBox(prompt,buttons,title)prompt 消息正文（必选项）如

12、果有多行信息，则每行结尾加上回车符chr(10)和换行符chr(13)，或者常量vbCrlf 如：“但愿人长久”&chr(10)&chr(13)&“千里共婵娟”“但愿人长久”&vbCrlf&“千里共婵娟”提示：函数chr(65)将Ascii码转换为字符，Asc(“A”)将字符转换为Ascii码（见P120函数表）,buttons 指定显示按钮的数目和形式，图标样式，默认按钮等，有以下三组取值：vbOKOnly,vbOKCancel,vbYesNo,vbRetryCancel.按钮样式vbCritical,vbQuestion,vbInformation.图标样式vbDefaultButton1

13、,vbDefaultButton2.默认按钮见P42：3-4，3-5，3-6Buttons的取值是由每组类型的参数中取一个值，然后用“+”号连接。可以取其中的一个或多个组合，也可以不取（为0：只有一个确定钮）。,消息框之命令按钮,title:可选，对话框的标题，如省略标题则为应用程序名返回值：可选，vbOK,vbCancel,vbAbort,vbRetry,vbIgnore,vbYes,vbNo（或用1，2，3，4，5，6，7表示）,消息框之标题和返回值,例：P35,BackString=InputBox(prompt,title,default）BackString 对话框中的返回值prom

14、pt 对话框中显示的提示信息，必选项title 可选，对话框的标题，缺省标题为应用程序名default 可选，输入文本框中的缺省值如：Dim Name As StringName=InputBox(“请输入用户名:”,“用户登录”)Text1.Text=Name,输入对话框,【例】输入任意一个数字，在窗体上打印二次方结果。Private Sub Form_Click()Dim num As Integer num=InputBox(“请输入数字)Print num*numEnd Sub,输入对话框,3.3 命令按钮控件CommandButton,使用CommandButton控件创建，可以有不

15、同的外观：,Caption属性：该属性设定按钮显示的文字。Style属性：控制按钮的显示类型，共有两种取值：标准类型和图形类型。图形类型：Picture属性：指定按钮中显示的图片。BackColor属性：指定按钮的背景颜色。,命令按钮的快捷访问键,访问键为按钮的选中提供了一种快捷方式：热键，即同时按下ALT键和访问键等同于鼠标单击该按钮,在想要指定为访问键的字符前加一个“&”符号，该字符就会带有一个下划线。比如：结束&Q,命令按钮示例1,【例】点击一个按钮，发出铃声Private Sub Command1_Click()BeepEnd Sub,命令按钮示例2,【例】在窗体上添加一个按钮，实现窗

16、口的最大化和还原。,命令按钮示例2,设计一个命令按钮（窗体的MaxButton和MinButton属性均设置为False）：在窗口第一次显示时，按钮标题为“最大化&L”。点击按钮后将窗口最大化，并且标题变成“还原&B”。再点击设置窗口还原，标题又恢复为“最大化&L”。Private Sub Command1_Click()If Command1.Caption=最大化&L Then Me.WindowState=2 最大化 Command1.Caption=还原&B Else Me.WindowState=0默认值 Command1.Caption=最大化&L End IfEnd Sub,3.

17、4 标签控件Label,用来显示文本，而且是其它控件的标识的文本。Caption，显示文本，1024Autosize，为True，可随文字增加自动水平适应长度WordWrap，为True，可自动换行显示，前提是Autosize为TrueBackStyle,BorderStyle 背景透明,边框样式,标签Label示例,【例】Label1.Caption=“总共有100条记录”&vbCrLf&“当前为第1条记录:“Label1.Caption=“总共有100条记录”&vbCrLf&“当前为第“&N&”条记录:“(变量N用inputbox提供),3.5 文本框控件TextBox,程序运行时，通常使

18、用TextBox控件让用户输入数据。文本框中所看到的数据就是Text属性中存放的字符串。Text属性：Text属性包含输入到TextBox控件中的文本。缺省时，文本框中输入的字符为单行，最多达2048个。若将控件的MultiLine属性设置为True，则可输多行,多达32K的文本。Text属性是文本框的缺省属性，可以省略写:Text1.Text=“欢迎”或者 Text1=“欢迎”,文本框TextBox的重要属性,Text，文本框文字MultiLine，允许多行(true/false)ScrollBars，带滚动条(无/水平/垂直/都有)PasswordChar，密码显示符号MaxLength，

19、允许输入最多字符数SelStart，文本串内插入点（光标）位置SelLength，选中文本宽度（字符个数）SelText，返回当前选中的文本，如果对此属性重新赋值的话意味着插入该值到光标所在位置Locked，运行状态下只读,TextBox控件的显示效果,支持多行：MultiLine属性为True支持水平和垂直滚动条：指定ScrollBar属性,TextBox控件示例1,【例】编写一个修改用户密码的程序，首先判断原始用户名和密码的正确性，然后输入两次新密码，两次新密码相同才能生效。（设置密码文本框的PasswordChar为*）,TextBox控件示例1,【确定】按钮的事件过程如下：Privat

20、e Sub command-_Click()首先检查正确用户名和密码 If text1=“admin”And text2=“admin”Then 用户名和密码正确If text3=text4 Then（修改密码（文件或数据库）的代码放在此处）MsgBox 密码修改成功!,修改密码 Unload Me Else 说明两次新密码输入有误 MsgBox 新密码输入有误，请重试!,修改密码 text3.SetFocus End If Else 说明用户名或密码输入不正确 MsgBox 用户名或密码无效，请重试!,修改密码 text1.SetFocus End IfEnd Sub,TextBox控件示例

21、1,【取消】按钮的事件过程如下：Private Sub cmdCancel_Click()Unload Me End Sub,TextBox控件的Change事件,通过任意方式造成文本框Text属性的变化，就会引发Change事件。【例】编写程序输入语文、数学、外语三门功课的成绩，要求输入的同时计算平均成绩并输出，即一边输入一边计算。,TextBox控件的Change事件,编程思路：在输入或修改单科成绩的同时计算平均分，即在语文、数学和英语文本框的内容发生改变时就要立即重新计算平均分。因此需要编写这三个文本框的Change事件过程。代码如下：Private Sub text1_Change()

22、Dim sum As Double用于计算总分 sum=0If Text1 And Text2 And Text3 Then sum=sum+Val(Text1)+Val(Text2)+Val(Text3)Text4=sum/3 End IfEnd Sub因为文本框中存放的是字符串，所以需要使用Val函数转换为数字。,text2,text3的Change事件过程与text1相同。,TextBox控件示例3,有时对输入的字符类型有特殊要求。比如只允许输入数字，如果输入了其它字符应忽略。可用文本框的KeyPress事件限制或转换输入的字符。【例】为上例增加功能，来限定文本框仅接受数字字符。Priv

23、ate Sub text1_KeyPress(KeyAscii As Integer)Select Case KeyAscii Case Asc(“0”)To Asc(“9”)输入数字 Case vbKeyBack 输的是Backspace键 Case Asc(“.”)输小数点；以上为正确字符，不做任何处理 Case Else KeyAscii=0取消字符 Beep发出提示音 End SelectEnd Sub,TextBox控件示例4,用户输入了有效的键，但还要判输入值是否在有效范围在Validate事件过程中进行检验，其中参数Cancel表示是否要取消焦点的移动，如果为true则不会引发L

24、ostFocus事件，焦点仍然在Textbox控件上。Private Sub Text1_Validate(Cancel As Boolean)If Val(Text1)100 Or Val(Text1)0 Then MsgBox“Invalid data!“MaxLength也可，一般用于限长 Cancel=TrueEnd IfEnd Sub,TextBox控件中的选中文本,所有Windows中的文本编辑工具都有共同的特点，就是可以选择所有文本或部分文本进行剪切、复制或其它操作，选中的文本以突出颜色显示。SelStart属性：Long型整数，用来指定选定文本块的起始位置。SelLength属

25、性：Long型整数，指定所选的文本块的字符个数。SelText属性：是一个字符串，即选定的字符。如果没有字符被选定的话，就是空字符串。如果程序中对SelText赋值新的字符串，则该字符串将替换文本框中原选定的文本。,TextBox控件的选中文本,Private Sub Form_Click()Text2=Text1.SelStartText3=Text1.SelLengthText4=Text1.SelTextEnd Sub,TextBox控件选中文本示例1,通过设置SelStart和SelLength属性，可控制文本的选择。例如我们在数据录入程序中，用户经常会希望光标置于已有文本的尾部，或者

26、在重新录入某项数据可能希望新的输入替换原有数据。【例】对于分数输入的程序，在每个输入框重新获得焦点时，将原来文本框中输入的数据全部选中（突出显示），以便于替换或修改。代码如下：Private Sub Text1_GotFocus()Text1.SelStart=00是头部，尾部Text1.SelStart=Len(Text1)+1Text1.SelLength=Len(Text1)End Sub,见课堂演示第二章2-6，2-8,TextBox控件选中文本示例2,3.6 书写代码的规则,1不区分大小写在VB中所有的关键字、常量名、变量名以及对象属性等在书写时不区分英文大小写。2使用注释注释语句以单引号 开始，可以单独书写一行，也可以与程序语句在同一行。,