VB可视化界面设计.ppt

《VB可视化界面设计.ppt》由会员分享，可在线阅读，更多相关《VB可视化界面设计.ppt（78页珍藏版）》请在三一办公上搜索。

1、第2章 VB可视化界面设计,主讲：XXXXTEL：XXXX,2,第2章 VB可视化界面设计,2.1 导学案例2.2 面向对象基本的概念2.3 窗体和基本控件2.4 综合应用2.5 扩展与提高,3,2.1 导学案例,【例2.1】编一个大小写转换的程序，单击“转换为小写”按钮把左边文本框输入的字符串中的字母全部转换为小写，单击“转换为大写”按钮把左边文本框输入的字符串中的字母全部转换为大写，转换结果在右边文本框中显示。运行界面如下图所示。,4,设计步骤如下：,（1）界面设计第一步：改变窗口标题名。实现方法是把窗体的Caption属性设置为“大小写转换”。第二步：在窗体上画两个文本框，分别用于接收用

2、户输入的原始字符串和显示转换后的字符串。第三步：在窗体上画两个标签用于显示提示信息，设置它们的Caption属性分别为“原始字符串：”和“转换后的字符串：”。第四步：在窗体上画三个命令按钮，设置它们的Caption属性分别为“转换为小写”、“转换为大写”和“退出”。,5,（2）编写事件过程代码如下：,Private Sub Command1_Click()Dim f$,c$使用变量 f=Text1.Text c=LCase(f)Text2.Text=cEnd SubPrivate Sub Command2_Click()Text2.Text=UCase(Text1.Text)不使用变量，直接使

3、用文本框End SubPrivate Sub Command3_Click()EndEnd Sub,6,说明：,界面设计目的就是使计算机能与用户进行如下交流：显示相关信息和程序运行的结果；接收用户输入的数据和命令。在VB中，窗体是最基本的对象，一个应用程序都包含有窗体对象。控件也是VB的对象，它们和窗体是应用程序的“积木块”，共同构成用户界面。,7,本例中用到几个常用界面元素及其作用：,（1）窗体Form：窗体是任何一个应用程序必不可少的对象，因为窗体是其他对象的载体，各类控件对象必须建立在窗体上；窗体就如一块“画布”，是所有控件的容器，用户可以根据自己的需要利用工具箱上的控件在“画布”上“画

4、”界面。（2）标签Label的作用是显示信息。在例2.1中分别显示“原始字符串：”和“转换后的字符串：”的提示信息，让用户对界面的操作更加明了。（3）文本框Text用于显示和接收数据。如例2.1中左边的文本框Text1用于接收用户输入要转化的字符串，右边的文本框Text2显示转化后的字符串。（4）命令按钮Command用于驱动相关命令（事件过程代码）的执行。例如，在例2.1中单击“退出”按钮时驱动事件过程代码End的执行，结束程序的运行。,8,2.2 面向对象基本的概念,2.2.1 对象对象是客观世界中的事物或人们头脑中的各种概念在计算机程序中的抽象表示，或者说，是现实世界中个体的数据抽象模型

5、，是面向对象程序设计的基本元素。一本书、一家图书馆、一辆汽车等都是一个对象；一份报表、一个账单也是一个对象。可见，世界上的各个事物都是由各种“对象”组成的，任何事物都是对象，是某一个对象类的一个实例。每个对象都有自己的特征、行为和发生在该对象上的一切活动。如以某个“学生”作为对象，该对象具有姓名、学号、性别、身高、体重、年龄等特征。具有学习、行走、睡觉等行为，以及外界作用在“学生”对象上的各种活动，如上课铃响、放学等。,9,2.2.2 属性,属性是一个对象的特性，不同的对象有不同的属性。VB程序中的对象都有许多属性，它们是用来描述和反映对象特征的参数。例如，控件名称（Name）、标题（Capt

6、ion）、文本（Text）、颜色（Color）、字体（Font）、是否可见（Visible）等属性决定了对象展现给用户的界面具有什么样的外观及功能。同类对象的属性是一样的，也就是具有相同的属性。如人，具有相同的属性，区别不同的人，也就是不同的对象，就在于属性值的不同。,10,对象属性的设置,除了用属性窗口设置对象属性外，也可以在程序中用程序语句设置，一般格式如下：对象名.属性名=属性值例如，给一个对象名为Command1的命令按钮的Caption属性赋值为“确定”，其在程序代码中的书写形式为：Command1.Caption=确定,11,2.2.3 事件、事件过程和事件驱动,VB是采用事件驱动

7、编程机制的语言。传统编程使用的是面向过程、按顺序进行的机制，这种编程方式的缺点是写程序的人总是要关心什么时候发生什么事情。而在事件驱动编程中，程序员只要编写响应用户动作的程序，如选择命令、移动鼠标等，而不必考虑按精确次序执行的每个步骤。,12,1.事件,对于对象而言，事件（Event）就是VB预先设置好的能够被对象识别的动作。不同的对象能够识别的事件不一样，同一事件，作用于不同的对象，就会引发不同的响应，产生不同的结果。例如，在学校，教学楼的铃声是一个事件，教师听到铃声就要开始讲课，向学生传授知识；学生听到铃声，就要准备上课，接受知识；若行政人员不受影响，就可不予响应。在VB中，系统已为每个对

8、象预先定义好了一系列的事件。例如Click（单击）、DbClick（双击）、Load（装入）、MouseMove（移动鼠标）、Change（改变）等。,13,2.事件过程,对象响应某个事件后所执行的操作通过一段程序代码来实现，这样的一段程序代码叫做事件过程（Event Procudure）。一个对象可以识别一个或多个事件，因此可以使用一个或多个事件过程对用户或系统的事件做出响应。虽然一个对象可以拥有许多事件过程，但并不需要为每一个事件都编写程序，仅当需要时才在相应的事件过程中填写代码，在程序中使用多少事件过程，要由设计者根据程序的具体要求来确定。,14,VB事件过程的一般格式如下：,Priva

9、te Sub 对象名称_事件名称（参数列表）事件响应程序代码End Sub,15,3.事件驱动,VB是事件驱动程序设计方式。程序执行后系统等待某个事件的发生，然后去执行处理此事件的事件过程，待事件过程执行完后，系统又处于等待某事件发生的状态，这程序员只需要编写响应用户动作的程序，如选择命令、移动鼠标等，而不必考虑按精确次序执行的每个步骤。用户对事件驱动的顺序决定了代码执行的顺序，因此应用程序每次运行所经历的代码路径可能不同。,16,对象、事件和事件过程之间的关系如下图所示：,17,2.2.4 方法,方法就是控件所能做的行动，就象人一样，唱歌、跳舞都是人的行动。而属性就类似于人的外貌特征。方法是

10、附属于对象的行为和动作，也可以理解为指使对象动作的指令。面向对象的程序设计语言，为程序设计人员提供了一种特殊的过程，称为方法供用户直接调用，这给用户的编程带来了很大的方便。,18,对象方法调用格式为：,对象.方法参数列表例如：Form1.Print Good morning！可以在名为“Form1”的窗体上显示字符串“Good morning!”。在VB中，打印机的对象名为Printer，如果执行：Printer.Print Good morning！则在打印机上打印出字符串“Good morning！”。上面两条指令使用的是同一个方法，但由于对象不同，执行操作的设备也不一样。在调用方法时，可

11、以省略对象名。在这种情况下，VB所调用的方法作为当前对象的方法，一般把当前窗体作为当前对象。,19,2.2.5 控件,1、控件的命名就是窗体或控件的Name属性值。一般情况下，窗体和控件都有默认值，如Form1、Command1、Text1等。2、控件的画法3、控件的基本操作：选择、复制和删除、缩放和移动和多个控件的对齐与调整 4、控件属性设置,20,2.3 窗体和基本控件,控件的公共属性Name属性Caption属性Enable属性Visible属性Left、Top、Height、Width属性BackColor、ForeColor属性FontName、FontSize、FontBold、F

12、ontItalic、FontStrikethru、FontUnderline属性Font对象属性MousePointerMouseIcon属性,21,窗体,一个窗体对应一个窗体模块。一个应用程序包含一个或多个窗体模块。VB的窗体结构同Windows环境下的窗口十分类似。在程序运行前，即设计阶段，称为窗体；程序运行后也可以称为窗口。窗体由5部分组成，如图2-6所示。,22,23,1、窗体主要属性,（1）Caption属性（2）Picture属性（3）MaxButton、MinButton最大、最小化按钮属性（4）Icon图标和ControlBox控制菜单框属性（5）BorderStyle属性,2

13、4,2、窗体事件,（1）Click（单击）事件（2）Load（装入）事件3、窗体的方法（1）Print方法（2）Move方法（3）Cls 方法,25,【例2.2】窗体的Click、DblClick和Load事件以及Cls、Print方法和相关属性的使用。运行界面如图2-7所示。,26,属性设置：,在属性窗口中对窗体的MaxButton和MinButton的值都设为False，Picture属性值设置为学校图标图片Gxgxy1.bmp文件。,27,例2.2程序代码如下：,Private Sub Form_Click()Caption=鼠标单击 Picture=LoadPicture(App.Pa

14、th+gxgxy2.bmp)加载图片 Print 欢迎使用VBEnd SubPrivate Sub Form_DblClick()Cls Caption=鼠标双击 Picture=LoadPicture()删除图片 Print 结束使用VBEnd Sub,28,例2.2 程序代码如下：,Private Sub Form_Load()FontSize=40 FontBold=True Caption=装入图片End Sub,29,说明：,（1）App.Path表示装入的图片文件与应用程序在同一个文件夹，若运行时无该文件，系统会显示“文件未找到”的信息，用户可通过查找文件的方法，并将所需文件复制到

15、应用程序所作的文件夹。（2）属性或方法前省略了对象，表示默认属性或方法作用于当前窗体对象。（3）MaxButton和MinButton属性只能在属性窗口设置。（4）为了在Form_Load（）事件中利用Print方法在窗体上显示文字，必须将Form1窗体的AutoRedraw属性设置为True。,30,2.3.3 命令按钮控件CommandBotton,命令按钮主要属性（1）Caption属性表示按钮上显示的文字。如果某个字母前加入“&”，则程序运行时标题中的该字母带下划线，带有下划线的字母就成为快捷键；当用户按下Alt+该快捷键，便可激活并操作该按钮。例如，在对某个按钮设置其Caption属

16、性时输入&OK，程序运行时就会显示OK（如图2-8），当用户按下Alt+O快捷键时便可激活Command1_Click事件。,31,（2）Style属性：表示按钮样式。0Standard：（默认）标准风格的命令控件，它既不支持背景颜色BackColor，也不支持图片属性Picture，按钮上不能显示图形。1Graphical：“图形显示”风格控件，它既能设置BackColor，也能设置Picture属性，按钮上可以显示图形也能显示文字。（3）Picture属性：设置按钮上显示的图形文件（.bmp和.ico），为了使用这个属性，必须把Style属性值必须设置为1，否则Picture属性无效。（4

17、）ToolTipText属性：设置按钮的提示文本。按钮若是图形，当运行时鼠标指向该按钮就加以文字提示。,32,2.命令按钮的常用事件命令按钮的常用事件是Click事件。3.命令按钮的方法命令按钮的方法主要有SetFocus。该方法是把光标移到指定的命令按钮上。,33,2.2.4 标签控件Label,标签主要属性（1）AutoSize属性：决定Label控件是否调整自己的大小来适应文本。True自动调整大小。False保持原设计的大小，正文若太长自动剪掉。（2）WordWrap属性：当一行文本过长时自动换行。（3）BackStyle属性：背景样式。0（Transparent）透明显示，控件后面若

18、有其他控件均可显示出来。1（Opaque）不透明，此时可为控件设置背景颜色。,34,标签主要属性,（4）BorderStyle属性：边框样式。0（None）控件周围没有单边框。1（Fixed Single）控件带有单边框。（5）Alignment属性控件上标题（Caption）对齐方式，其中：0（Left Justify）左对齐。1（Right Justify）右对齐。2（Center）居中。,35,2.标签的方法,标签控件支持Move方法，用于实现标签的移动。例如，设窗体上有一个标签控件Label1，运行时，单击该标签控件，使该标签控件向右移动500twip。可以通过如下代码实现：Priva

19、te Sub Label1_Click()Label1.Move Label1.left+500End Sub,36,3.标签的事件,标签经常响应的事件有：单击（Click），双击（DbleClick）和改变（Change）。但实际上标签仅起到在窗体上显示文字作用，因此，一般不需要编写事件过程。,37,【例2.3】编写一个如图2-10所示的简易的键盘指法练习程序。单击“开始”按钮，进行指法练习，同时“开始”按钮变为“结束”按钮。字母在屏幕上向上移动，输入正确则会消失，同时随机产生新的字母。要求能统计正确率、击键次数和所用的时间。,38,（1）界面设计,在窗体上添加4个标签，用于在屏幕上同时显示

20、4个小写字母。1个命令按钮用于控制指法练习的开始和结束。2个计时器。一个用于随机产生字母和控制字母在窗体中移动，另一个用于计时。,39,（2）程序代码如下：,Dim m%,n%,t%Private Sub Command1_Click()If Command1.Caption=开始 Then Form1.Cls t=0 Timer1.Enabled=True Timer2.Enabled=True Command1.Caption=结束 Else Command1.Caption=开始 Timer1.Enabled=False Timer2.Enabled=False If m 0 Then

21、Print 正确率为：&n/m*100&%Print 击键次数：&m&次&共用时：&t&秒 End IfEnd Sub,40,Private Sub Command2_Click()EndEnd SubPrivate Sub Form_KeyPress(KeyAscii As Integer)m=m+1 统计击键次数 If Chr(KeyAscii)=Label1.Caption Then Label1.Caption=“”：n=n+1 End If If Chr(KeyAscii)=Label2.Caption Then Label2.Caption=“”：n=n+1 End If If C

22、hr(KeyAscii)=Label3.Caption Then Label3.Caption=“”：n=n+1 End If If Chr(KeyAscii)=Label4.Caption Then Label4.Caption=“”：n=n+1 End IfEnd Sub,41,Private Sub Timer1_Timer()Randomize If Label1.Caption=Then Label1.Top=Form1.ScaleHeight Label1.Caption=Chr(CInt(Rnd*26)+97)随机产生一个小写字母 Else Label1.Top=Label1.T

23、op-20 End If If Label2.Caption=Then Label2.Top=Form1.ScaleHeight Label2.Caption=Chr(CInt(Rnd*26)+97)随机产生一个小写字母 Else Label2.Top=Label2.Top-20 End If,42,If Label3.Caption=Then Label3.Top=Form1.ScaleHeight Label3.Caption=Chr(CInt(Rnd*26)+97)Else Label3.Top=Label3.Top-20 End If If Label4.Caption=Then La

24、bel4.Top=Form1.ScaleHeight Label4.Caption=Chr(CInt(Rnd*26)+97)Else Label4.Top=Label4.Top-20 End IfIf Label1.Top=0 Then Label1.Top=Form1.ScaleHeightIf Label2.Top=0 Then Label2.Top=Form1.ScaleHeightIf Label3.Top=0 Then Label3.Top=Form1.ScaleHeightIf Label4.Top=0 Then Label4.Top=Form1.ScaleHeightEnd Su

25、b,43,Private Sub Timer2_Timer()t=t+1 计算练习时间End Sub,44,2.3.5 文本框控件TextBox,所谓人机对话，就是计算机能获知用户给它的信息，同时，它也能作出相应的反馈，对于前者，我们除了用鼠标向计算机发出命令外，也常需要以键盘向计算机输入一些内容，如键入用户的姓名、年龄、性别等。文本框被用来显示用户输入的信息，是Windows操作系统下进行人机对话的常用元素。在VB编程中，文本框是一个文本编辑区域，类似于一个简单的文本编辑器，可以在这个区域中输入、编辑、修改和显示文本。,45,1.文本框主要属性,(1)Text属性：设置文本框中显示的内容。(

26、2)MultiLine属性：设置控件是否可以接受多行文本。False（默认值），在文本框中只能输入单行文本；True时，可以使用多行文本，即在文本框中输入或输出文本时可以换行，并在下一行接着输入或输出。按Ctrl+Enter键可以插入一个空行。(3)ScrollBars属性：设置控件是否具有水平或垂直滚动条。0 文本框中没有滚动条1 只有水平滚动条2 只有垂直滚动条3 同时具有水平和垂直滚动条,注意：当MultiLine属性为True时，它才起作用。此外，当在文本框中加入水平滚动条（或同时具有水平和垂直滚动条）后，文本框中文本的自动换行功能将不起作用，只能通过回车键或Ctrl+Enter键换行

27、,46,1.文本框主要属性,(4)PassWordChar属性以特定的字符来代替控件中的文本字符，这个属性很适合设置密码对话框。(5)Locked属性设置文本框内容在运行时是否可以被用户编辑。当设置值为False（默认值）时，可以编辑文本框中的文本；当设置值为True时，可以滚动和选择文本框中的文本，但不能编辑。,47,2.文本框的常用事件,（1）Change事件当用户向文本框输入新的内容，或在程序代码中对文本框的Text属性进行赋值从而改变了文本框的Text属性时，将触发Change事件。程序运行后，在文本框中每输入一个字符，就会引发一次Change事件。（2）GotFocus事件当运行用T

28、ab键或鼠标单击对象，或用SetFocus方法设置焦点时，触发该事件，称之为“获得焦点”，该事件适用于窗体和大部分可接受键盘输入的控件。当文本框获得焦点（即处于活动状态）时，键盘上输入的每个字符都将在该文本框中显示出来。只有当一个文本框被激活并且可见性Visible属性值为True时，才能接收到焦点。,48,2.文本框的常用事件,（3）LostFocus事件当按下Tab键使光标离开当前对象，或者用鼠标选择窗体的其他对象，即焦点离开文本框时触发该事件，称之为“失去焦点”。用Change事件和LostFocus事件过程都可以检查文本框的Text属性值，但后者更有效。（4）KeyPress事件当在键

29、盘上按下某个键时触发该事件，KeyPress事件返回一个参数KeyAscii，该参数值为整数，表示所按下键的ASCII码值。,49,3.文本框的方法,SetFocus方法是文本框中较常用的方法，格式如下：对象.SetFocus该方法可以把焦点移动到指定的文本框中。当在窗体上建立了多个文本框后，可以用该方法把光标置于所需要的文本框。,50,Label与TextBox的区别：,Label控件不能由用户直接对其进行编辑，这是它与文本框控件最显著的区别。另外，label控件有一个BackStyle属性，当其值为0时，控件呈透明显示。而TextBox控件则没有此属性。从人机对话的角度来看，对于大多数VB

30、程序，都用文本框控件来接受信息，而用标签框控件来向用户反馈信息。并不是每种控件都能够得到焦点，如Label控件，由于它只显示文本，而不能由用户对其编辑操作，所以就不具有焦点。当TextBox控件获得焦点时，所显示的是文本框中有一个闪烁的小光标。TextBox有一个方法SetFocus，而Label控件则没有。,51,【例2.4】简单密码程序。程序运行界面如图2-11所示。,52,分析：,在默认情况下，PasswordChar属性值为空字符串，键盘上输入的字符与文本框中显示出来的字符是一致的。如果把该属性设置为某个字符，例如“*”，则无论从键盘上输入什么字符，文本框中显示的总是“*”，这样可以使

31、人看不到输入的密码，便于保密。,53,程序代码如下：,Private Sub Command1_Click()If Text1.Text=123456 Then Text2.Text=密码正确，继续Else Text2.Text=密码错误，重新输入End IfEnd SubPrivate Sub Command2_Click()Text1.Text=Text2.Text=Text1.SetFocusEnd Sub,54,2.4 综合应用,【例2.5】建立一个计算机等级考试报名登记界面。窗体上有5个标签、3个文本框、3个命令按钮。其中文本框1中输入姓名，文本框2中输入班级，文本框3中输入等级，标

32、签5上将考生的信息全部显示出来。程序运行界面如图2-12所示。,55,分析：,本题的难点在于如何将3个文本框中的内容连接起来，以作为标签5的Caption属性值。这里引入一个字符型变量str，用来存放字符串连接运算的结果，Chr(10)表示产生换行符。,56,程序代码如下：,Private Sub CmdClean_Click()Text1.Text=Text2.Text=Text3.Text=Label5.Caption=End SubPrivate Sub CmdExit_Click()EndEnd SubPrivate Sub CmdOK_Click()Dim str As String

33、str=“姓名”+Text1.Text+Chr(10)+“班级”+Text2.Text+_ 图2-13 例2.6运行界面Chr(10)+等级+Text3.TextLabel5.Caption=strEnd Sub,57,【例2.6】设计一个模拟抽奖的程序，其界面如图2-13所示。要求单击“开始”按钮，则不停的随机产生两位数的数字；单击“抽奖”按钮，则确定中奖数字。,58,分析：,随机数是通过随机函数来产生的，要不断地产生，则要用计时器控件来控制，设置计时器对象的Interval属性值，定期产生随机数。要实现单击“开始”按钮，再产生，则Timer对象的Enable属性设置初始为False，单击“

34、开始”按钮后，该属性设置为True。单击“抽奖”按钮，则会再产生随机数，此时表明Timer对象的Enable属性又改为False了。,59,程序代码如下：,Private Sub Command1_Click()Timer1.Enabled=True Command2.Enabled=True Command1.Enabled=FalseEnd SubPrivate Sub Command2_Click()Timer1.Enabled=False Text1.Text=Label2.Caption+_+Label3.Caption+Label4.Caption _+Label5.Caption

35、+Label6.Caption Command2.Enabled=False Command1.Enabled=True Command3.Enabled=TrueEnd Sub,60,程序代码如下：,Private Sub Command3_Click()EndEnd SubPrivate Sub Timer1_Timer()Randomize Label2.Caption=Fix(Rnd*90)+10 调用随机数函数Rnd产生随机数 Label3.Caption=Fix(Rnd*90)+10 Label4.Caption=Fix(Rnd*90)+10 Label5.Caption=Fix(

36、Rnd*90)+10 Label6.Caption=Fix(Rnd*90)+10End Sub,61,2.5 扩展与提高,窗体的进一步讨论1.属性（1）Icon属性：设置窗体标题栏上的图标。（2）WindowsState属性：表示窗体执行时以什么状态显示。0Normal：正常窗口状态，有窗口边界。1Minimized：最小化状态，以图标方式运行。2Maximized：最大化状态，无边框，充满整个屏幕。,62,2.窗体事件,（1）Unload事件在卸载一个窗体时触发Unload事件。Unload事件可以由用户触发。例如单击窗体的关闭按钮，将触发Unload事件。格式如下：Private Sub

37、Form_Unload()End SubUnload事件是与Load事件相对应的事件。Unload事件会卸载一个窗体，同时可以为用户提供存盘等信息。,63,（2）Initialize事件,在窗体创建时发生Initialize事件，这是程序运行时发生的第一个事件，它发生在Load事件之前。Initialize事件的作用主要是初始化变量。格式如下：Private Sub Form_Initialize()End Sub,64,（3）Activate（活动）、Deactivate（非活动）事件当窗体变成活动窗口时触发Activate事件，而在另一个窗体变为活动窗口前触发Deactivate事件。通过

38、操作可以把窗体变为活动窗体，例如单击窗体或在程序中执行Show方法等。（4）Paint（绘画）事件当窗体被移动或放大时，或者窗口移动时覆盖了一个窗体时，触发该事件。,65,3.向窗体输出数据,（1）向窗体输出数据的格式设置向窗体输出数据的格式主要通过Format（）函数确定；向窗体输出数据的字体、大小由Font属性项设置，也可在程序运行时，用程序代码设置。用程序代码设置字体和字号的格式如下：FontName=字体名FontSize=字号（2）输出位置确定在窗体上的输出位置主要通过两个系统变量来定位，即CurrentX和CurrentY。它们分别代表当前点的X坐标和Y坐标。在程序代码中，分别给出

39、CurrentX和CurrentY赋值，以定位输出数据的起始位置。,66,【例2.7】建立一个窗体，单击窗体时，在窗体上输出两行文字。运行结果如图2-14所示。,67,程序代码如下：,Private Sub Form_Click()CurrentX=600CurrentY=600FontName=宋体FontSize=18Print 面向对象程序设计CurrentX=1000CurrentY=1500FontName=黑体FontSize=20Print 面向对象程序设计End Sub,68,2.5.2 Command控件Default属性和Cancel属性的进一步讨论,把Default设为T

40、rue，则在按下回车键时，不论焦点处于何处，都会触发该按钮的Click事件，而当Cancel属性被设为True，在按下Esc键时，该按钮的Click事件发生。,69,【例2.8】建立一个新窗体和两个按钮，Name属性分别为cmdOK和cmdCancel，把前者的Default设为True，后者的Cancel设为True，Caption属性分别为OK和Cancel。运行结果如图2-15所示。,70,程序代码如下：,Private Sub Command1_Click()MsgBox OK按钮被按下,vbDefaultButton1,提示End SubPrivate Sub Command2_Cl

41、ick()MsgBox Cancel按钮被按下,vbDefaultButton1,提示End Sub,71,2.5.3 TextBox控件的进一步讨论,（1）SelStart属性：定义当前选择的文本的起始位置。（2）Sellength属性：定义当前选中的字符数。当在文本框中选择文本时，该属性值会随着选择字符的多少而改变。也可以在程序代码中把该属性设置为一个整数值，由程序来改变选择。该属性及下面的SelStart，SelText属性，只有在运行期间才能设置。（3）SelText属性：选定的正文内容，设置了SelStart和Sellength属性后，VB会自动将设定的正文送入SelText存放。,

42、72,【例2.9】建立一个简易记事本程序。程序运行界面如图2-16所示。,分析：利用MouseMove事件决定命令按钮的有效性，即当选中内容，“剪切”、“复制”按钮有效，否则无效。,73,表2-7 例2.9属性设置,74,程序代码如下：,Dim st As String Private Sub cmdCopy_Click()st=Text1.SelText End SubPrivate Sub cmdCut_Click()st=Text1.SelText Text1.SelText=cmdCopy.Enabled=False cmdCut.Enabled=False cmdPaste.Enab

43、led=TrueEnd Sub,75,Private Sub cmdExit_Click()EndEnd SubPrivate Sub cmdPaste_Click()Text1.SelText=st 将st变量中的内容插入到光标所在的位置,实现了粘贴End SubPrivate Sub Form_Load()设置剪切、复制、粘贴按钮无效cmdCut.Enabled=FalsecmdCopy.Enabled=FalsecmdPaste.Enabled=FalseEnd Sub,76,Private Sub Text1_MouseMove(Button As Integer,Shift As I

44、nteger,X As Single,Y As Single)If Text1.SelText Then cmdCut.Enabled=True cmdCopy.Enabled=True cmdPaste.Enabled=False Else cmdCut.Enabled=False cmdCopy.Enabled=False cmdPaste.Enabled=True End If,77,Private Sub Command4_Click()Text1.FontName=黑体End SubPrivate Sub Command5_Click()Text1.FontSize=20End SubPrivate Sub Command6_Click()EndEnd Sub,78,THE END,