《Visual Basic概述》-第3章 窗体与控件

第3章窗体与控件3.7

定时器3.8

滚动条3.9

图形控件和图片控件3.10

多窗体界面应用程序3.11MDI界面应用程序3.1什么是窗体界面是显示在屏幕上的窗口，是用户完成各种操作的工具。在VB中，窗体就是设计图形用户界面的基本平台，所有的控件都是绘制在窗体上的，是运行应用程序时用户与程序进行交互操作的实际窗口(在设计阶段称为窗体，程序运行后也可以称为窗口)。每个窗体必须有一个唯一的窗体名字，建立新窗体时，缺省名为Form1,Form2…每个窗体都有四个部分组成:标题栏、控制窗口大小的按钮、控制窗口的图标和窗口的工作区，如图3-1所示。下一页返回3.1什么是窗体在设计状态下，窗体是可见的。运行时，可通过属性控制窗体的可见性(窗体的网格始终不显示)。一般情况下一个应用程序至少有一个窗体。除了一般的窗体外，还有一种MDI多文档窗体，其中可以包含若干子窗体，每个子窗体都是独立的。接下来，我们一起动手完成一个实例，学习一下在VB中设计应用程序的流程。)返回上一页3.2

实例演示实例:小小欢迎滚动屏幕。设计一个字体的滚动屏幕，屏幕中会出现一行欢迎文字:“欢迎大家和我一起来学习VB，感受VB强大的功能!”这行文字会从屏幕的最右端移动到最左端，当移动到最左端后，接着再从屏幕的最右端移动到最左端，如此的循环下去，运行界面如图3-2所示。(1)新建VB工程。在创建应用程序时，VB总是从创建一个工程开始的。启动VB集成开发环境，在“新建工程”的对话框中选择“标准EXE”类型，如图3-3所示。单击“确定”按钮，即可建立一个工程。同时在界面中你会看到一个名为“Form1”的空白窗体，如图3-4所示。下一页返回3.2

实例演示知识点:窗体是VisualBasic应用程序的基本构造模块，是运行应用程序时用户进行交互操作的窗口或对话框。一个完整的应用程序至少需要一个窗体，这里所要完成的实例只需要一个窗体，但是在多数情况下一个应用程序的完成不止使用一个窗体，也就是多窗体的设计。在后面一一介绍。(2)设计用户界面。在VB中设计用户界面，就是利用控件工具箱，在窗体上添加相应的控件完成。在该实例中需要两个控件:一个标签控件和一个计时器控件。用鼠标单击工具箱中的标签控件，然后在窗体上的任意位置拖曳，就在"Form1”中添加了一个标签控件，用同样的方法添加其他所需要的控件，如图3-5所示。下一页返回上一页3.2

实例演示知识点:控件是建立VisualBasic应用程序的基本元素，比如在对话框中看到的按钮、下拉列表、选项框等其实都是控件。可以说，可视化设计就是通过控件实现的。一般将控件分为两种:内部固有控件、ActiveX控件。用户可以通过“工具箱”获取各种控件。(ActiveX控件是由用户设计的一种外部控件，是对内部控件的扩展。其存在形式不同于和VisualBasic融合在一起的内部控件。它们是以扩展名为.ocx的文件形式存在于VisualBasic系统之外，只在需要时才将其添加到工具箱中。ActiveX控件是对VisualBasic内部控件集合的扩充。例如:ADOData控件，它是Data控件的功能扩充，可使VisualBasic具有更强的数据访问能力。应该讲，VisualBasic的诸多强大功能正是依靠ActiveX控件获得的。下一页返回上一页3.2

实例演示内部控件是包含在VisualBasic系统内可以直接使用的控件，具有良好的运行性能。常用的内部控件有:命令按钮、文本框、标签、框架、列表框、组合框、复选框、选项按钮、图片框、定时器等，如图3-6所示。(3)设置控件的属性。设计好用户界面的外观后，就需要为每个控件设置其对应的属性。单击工具栏上“属性窗口”按钮，如图3-7所示。就可以打开“属性”窗口，在窗口中，可以为不同的控件设置相应的属性，如图3-8所示。在“属性”窗口中的“控件下拉列表”中选中“Form1”窗体，你会在看到“属性列表框”中列出了该窗体的所有属性，选中“Caption"属性，下一页返回上一页3.2

实例演示将其所对应的属性值“Form1”修改为“第一个VB程序”。这时候，会看到窗口的标题栏中的文字修改为“第一个VB程序”，如图3-9所示。用同样的方法修改其他控件的相应属性。表3-1中列出了需要修改的控件属性，请同学一一参照修改。设置完成的界面如图3-10所示:知识点:窗体以及用户界面上的各种控件都有一定的特征，比如:名称、标题、颜色、大小、位置等。这些特征就是窗体或控件的属性。属性可以利用属性窗口进行设置，不同的属性对应了不同的特征，我们可以对控件的某个属性进行修改，从而满足应用程序的设计需要。下一页返回上一页3.2

实例演示(4)完成界面后，此时文字是固定的，如果想要文字发生滚动效果，还必须编写相应的程序。双击窗体或窗体上任意控件，打开“代码编辑器”窗口如图3-11。可以看到在该窗口中，有一段系统自动生成的代码编辑框架。接着开始输入下面的代码，看看运行后的效果吧。

PrivateSubTimer1Timer()Label1.MoveLabel1.Left

-20IfLabel1.Left+Label1.Width<=0ThenLabel1.Left=Form1.WidthEndIf

Endsub下一页返回上一页3.2

实例演示知识点:编写代码就是规定前面设计好的用户界面如何与用户进行交互，或者说规定用户在界面上执行一个操作(例如单击某个按钮等)，系统该如何响应。(5)保存工程，运行程序。选择单击“文件”|“保存工程”命令，来保存该工程文件，如图3-12所示。知识点:保存应用程序实际上就是要保存工程以及工程所包含的窗体。窗体文件的保存类型是*.frm，保存完窗体文件后，系统提示保存工程文件，工程文件的保存类型为*.vbp。在保存完成后，准备关闭当前文件前，最好先检查一下你的文件是否都保存好了。下一页返回上一页3.2

实例演示可以从资源管理器下进入所保存文件的文件夹，查看是否有刚才所保存的窗体文件和工程文件。如果缺少了窗体文件(扩展名为.frm)或工程文件(扩展名为.vbp)，或者两个文件都没有，那么就可能是保存时选错了文件夹，可以在VB环境下重新保存。选择“文件”“窗体另存为”，按照原来的方法重新保存一次。单击“文件”|“工程另存为”菜单项，按照原来的方法再重新保存工程文件就可以了。(6)按F5键开始运行该应用程序。这样你就可以看到一个欢迎界面了，界面上的移动文字效果是不是很有趣呢?VB就是这样一个具有强大功能的面向对象的程序设计软件，我们以后还会通过它设计出更加风格各异的界面，实现系统的人机交互功能。下一页返回上一页3.2

实例演示(7)程序的打开和修改。选择“文件”“打开工程”命令，选择相应的工程文件名，就可打开相应的程序。大家也可以在原来的基础上修改原程序。知识点:工程文件是一个工程中所有文件的组合，它包括一个或多个窗体，当保存完成后，如果又对程序做了一些修改，必须再次保存程序，这时只需要单击工具栏上的保存按钮就行了。下一页返回上一页3.2

实例演示(8)生成可执行文件。所谓可执行文件是指Windows下可以直接运行的程序文件。可执行文件的扩展名是.exe。一般情况下，VisualBasic中开发出的应用程序只能在VisualBasic环境中执行，为了能使程序脱离VisualBasic集成环境，在Windows环境下运行，必须要将工程编译成可执行文件，即.exe文件。选择“文件”|“生成工程名.exe”命令，打开一个“生成工程”对话框，如图3-13所示。输入文件的名称，单击“确定”按钮即可。下一页返回上一页3.2

实例演示总结:上面我们通过一个小实例的设计展示了VB程序设计的整个过程并且介绍了VB程序设计中的基本概念。一般来说，在VB中设计应用程序可以分为四个步骤:建立用户界面，设置对象属性，编写程序代码，程序的保存、运行、结束和编译。尤其在用户界面的设计方面，利用系统提供的工具，按自己的设计要求在窗体上添加相应的控件，就基本上完成了用户界面的设计。在代码设计方面，充分体现了面向对象的程序设计的特点。而学会面向对象的程序设计也是在这章中要达到的学习目标。返回上一页3.3

面向对象的程序设计的基本概念在面向对象程序设计中，抽象的方法是通过“类”来体现的。“类”所要反映的是一个群体事物的共同数据特征与功能特征，例如，人、男人、女人、汽车、房子等，即可以被当作为“类”来看待，它们都有自己的一些共同的数据特征与功能特征。对象是“类的实例”，是类的具体化的结果，它对应于个体，例如，某个人、某所房子、某部汽车。但是，对象需要通过类来定义，以确定它的属性、方法、事件等。下一页返回3.3

面向对象的程序设计的基本概念3.3.1

控件VisualBasic中最常用的“类”或“对象”就是控件。其中，位于“工具箱”上的控件是控件类，它们是抽象的。当把“工具箱”上的图标所代表的控件类拖入到用户设计界面时，这个抽象的控件类就成为了一个具体的控件对象。在VB中，利用“窗体设计器”设计出的某个窗体就是一个对象，在某个窗体中添加的某个按钮等控件也是一个对象，下一页返回上一页3.3

面向对象的程序设计的基本概念这些对象都是由VB集成开发环境提供给用户的，这些对象添加在窗体内，窗体就像是一个容器，包含这些控件，就好比一台计算机，计算机本身是一个对象，而计算机又可以拆分为主板、CPU、内存、外设等部件，这些部件又都分别是对象，因此计算机对象可以说是由多个“子”对象组成的，即是一个容器(Container)对象。在面向对象的程序设计中，对象就是最基本的元素，利用VB开发应用程序，首先就是要创建对象。控件工具栏里有那么多的控件，那么什么时候该添加什么类型的控件呢?每个控件又有什么用途呢?如表3-2所示。下一页返回上一页3.3

面向对象的程序设计的基本概念3.3.2属性每个对象都具有自己的特征，如对象人就有姓名、性别、年龄、身高等特征，汽车对象就有型号、颜色、品牌等特征，把这些特征称为对象的属性。不同的对象可以具有不同的属性。如上例中看到的窗体、标签、命令按钮和文本框控件都具有自己的属性。1.属性的设置设置对象的属性方法有两种:(1)通过属性窗口的属性列表框设置对象的属性值(在做第一个实例的时候我们就使用这种方法设置了对象的属性)。下一页返回上一页3.3

面向对象的程序设计的基本概念(2)在程序代码中，用赋值语句设置对象的属性:<对象名>.<属性名称>=<属性值>。例如，在实例中设置标签控件上的标题也可以在程序代码中用到:Label1.Caption=“欢迎大家和我一起来学习VB，感受VB强大的功能!”。其中“.”前面的是控件的名称“Label1”,“.”后面是该控件的名称属性名“Caption”,“=”后面的属性值为“欢迎大家和我一起来学习VB，感受VB强大的功能!”。2.属性的含义这些属性中，有些属性是控件都具有的，包括控件的名称、标题、宽度、高度、位置等，有些属性只是某个控件具备的，下面先来看看哪些属性是控件都具备的。如表3-3所示。下一页返回上一页3.3

面向对象的程序设计的基本概念(1)Name属性Name属性用来识别窗体、控件等对象的名称。在窗体上添加一个对象时，其Name属性的缺省值是该对象的类型加上一个惟一的整型数值，这是控件最重要的属性之一。在编写代码时，都要通过控件的名称来引用这个控件。利用Name属性指定对象名称时，必须注意:①必须以英文字母或汉字开始，长度不得超过40个字符。②可以包含数字及下划线“_”字符，但不可包含标点符号或空格字符。③尽量不要使用命令关键字、属性名作为Name的属性值。下一页返回上一页3.3

面向对象的程序设计的基本概念(2)Caption属性窗体的Caption属性用来指定窗体标题栏中显示的文本内容，当窗体为最小化时，该文本显示在窗体图标的下面。控件的“Caption"属性用来指定标题或显示文字。注意:Label控件标题的大小没有限制。对于窗体和其他有标题的控件，标题的长度不得超过255个字符。(3)BackColor属性和ForeColor属性BackColor属性用来返回或设置对象的背景颜色。ForeColor属性用来返回或设置在对象中显示图片和文本的前景颜色。进行有关颜色的属性设置时，属性窗口提供“调色板”和“系统”两种方式，从中选择所需的颜色即可。下一页返回上一页3.3

面向对象的程序设计的基本概念(4)Font属性在属性窗口中看到的Font属性实质上是一个属性组合，其中包含了字体、大小、字体样式等属性成员。设计时可直接进入Font属性的对话框进行设置，如果需要在程序运行时改变这些属性值则必须对其中各属性值分别进行设置。例如，将窗体“Form1”的文字设置为粗体字:Form1.FontBold=True下一页返回上一页3.3

面向对象的程序设计的基本概念(5)Height属性和Width属性Height属性和Width属性可设置对象的高度和宽度，Height属性和Width属性的最大值与系统有关。Height属性和Width属性用来控制控件的大小，除了通过属性修改控件的大小外，还有其他几种控制控件大小的方法:(1)利用鼠标。首先将鼠标指针对准控件的尺寸控点，当出现双向箭头时，按照箭头方向拖动鼠标，即可改变控件的大小高度和宽度。(2)按住<Shift>键，再按键盘上的“方向箭头”键，可以改变控件的大小。下一页返回上一页3.3

面向对象的程序设计的基本概念(6)Left属性和Top属性Left属性值指定对象左边边缘到其容器左边边缘的距离;Top属性指定对象上方边缘到其容器上方边缘的距离。这两个属性值是以窗体左上角为原点确定对象位置的坐标值。除了通过属性修改控件的位置外，还有其他几种控制控件位置的方法:(1)使用鼠标直接将控件拖动到适当的位置。(2)按住<Ctrl>键，然后再用“方向箭头”键来移动控件。(7)Visible属性Visible属性指定对象是否可见。程序运行时，常常将一些不需要的控件隐藏起来，以向用户提供较为整洁的操作界面。下一页返回上一页3.3

面向对象的程序设计的基本概念3.3.3事件事件就是在对象上所发生的事情。对象的事件都是由VB预先设置好的、能被对象识别的动作，用户不能建立新的事件。当事件发生后，应用程序就去执行事件后所定义的程序代码去响应这个事件。如实例代码窗口中所编写的代码:PrivateSubTimer1Timer()Label1.MoveLabel1.Left-20下一页返回上一页3.3

面向对象的程序设计的基本概念IfLabel1.Left+Label1.Width<=0ThenLabel1.Left=Form1.WidthEndIf其中，事件就是计时器控件Timer1的Timer事件。定时器控件对象在间隔了一个Interval设定时间后，触发一次Timer事件。下面表3-4看看哪些事件是控件可以响应的。下一页返回上一页3.3

面向对象的程序设计的基本概念3.3.4对象的方法上面学习了用户可以通过代码窗口设置当不同的事件发生时，系统所采取的响应。除此以外，VB集成开发环境还提供了一些方法，这些方法是一些特殊的过程，也可以把它看成是函数，这些方法是将一些通用的过程或函数编写好并封装起来，作为方法供用户直接调用。比如:显示窗体的Show方法，移动窗体的Move方法等。如表3-5所示。要使用对象的方法只能在程序代码中使用，调用对象的方法为:对象名.方法名。比如:Form1.Cls就可以清楚窗体Form1上的文字。下一页返回上一页3.3

面向对象的程序设计的基本概念在窗体Form1上显示输出字符串:Form1.Print“VB程序设计”。若要将窗体移动到界面的(300,400)的位置:Move300,400。为了让刚装入的窗体显示出来，Form2.Show。上面学习了在VB面向对象的编程设计中的基本概念，对于控件的常用属性、事件、方法做了简单的介绍。要熟练掌握这个软件来开发应用程序，还需要继续学习，下面将通过实例开始学习VB中常见的控件，因为控件是应用程序的基础元素，通过常用控件的学习，掌握对象、属性、事件、方法这些基础知识。返回上一页3.4

命令按钮、文本框、标签在系统界面设计中，这三种控件会经常使用到，今天就通过一个学生信息浏览界面的设计掌握这三种控件的使用。通过这个实例的学习掌握这几种控件的属性和常用方法。功能分析:通过该界面可以浏览到两名学生的信息，包括:学生的编号、姓名、年龄、联系电话。通过单击界面上的“第一个”按钮，就可以显示第一个学生的信息;单击“第二个”按钮，显示第二个学生的信息;单击“清除”按钮，窗体上显示的所有学生信息内容将全部清除，单击“返回”按钮，退出界面浏览，如图3-15所示。下一页返回3.4

命令按钮、文本框、标签问题分析:学生信息浏览界面包含VB的三种基本控件，分别是文本框、标签、命令按钮，其中4个文本框用于显示学生的信息，4个标签用于显示系统名称和为文本框中所显示的信息做提示，4个命令按钮用于实现即时浏览及其他功能。1.设计用户界面下面对窗体以及窗体上的控件的属性设置加以说明。先对窗体进行相关属性的设置。如表3-6~表3-9所示。2.编写程序代码实现程序功能现在窗体已经设计好了，但是为了实现窗体功能，实现单击不同的按钮完成不同的功能，那么我们还需要编写相应的代码。下一页返回上一页3.4

命令按钮、文本框、标签这些代码是为某个对象响应某个事件而编写的，只有在用户对这个对象做出了某些动作或是在Windows系统的某些事件发生时才会被执行。所以在编写代码时要分清当用户对哪个控件对象做出了什么动作，以及当事件发生时所执行的代码，即这段代码是给哪个控件写的，事件即当用户对该对象做出了什么动作，执行这段代码。下面对程序功能一步步的分析，看看实现这些功能对象是谁，事件是什么以及响应所实现的代码如何编写。在FormLoad事件过程中编写代码。下一页返回上一页3.4

命令按钮、文本框、标签在该窗体的设计中，首先要求在窗体一运行的时候就显示第一个学生的信息。所以对象是窗体，事件是Load，而要在文本框中显示第一个学生的信息，只要在代码中把学生的信息赋值给对应文本框即可。双击窗体或某个控件，都可打开代码编辑器窗口。如图3-16所示。为命令按钮的Click事件编写代码。单击“第一个”命令按钮时，要求在对应文本框中显示第一个学生的相关信息。所以此时我们选择的对象是“Command1”的命令按钮，事件为Click单击，而代码实际上跟在FormLoad事件过程中编写的代码是一样的。下一页返回上一页3.4

命令按钮、文本框、标签单击“第二个”命令按钮时，要求在对应文本框中显示第二个学生的相关信息。所以此时我们选择的对象是“Command2”的命令按钮，事件为Click单击，而代码实际上跟在FormLoad事件过程中编写的代码是类似的。单击“清除”命令按钮时，要求在将文本框中的内容全部清除。故此时我们选择的对象是“Command3”的命令按钮，事件为Click单击，而清除文本框的内容实际上就是给每个文本框的Text属性赋一个空字符串。单击“返回”命令按钮时，要求退出应用程序。所以此时我们选择的对象是“Command4”的命令按钮，事件为Click单击，输入代码:end。语句end的功能就是关闭应用程序。下一页返回上一页3.4

命令按钮、文本框、标签PrivateSubCommand1Click()Text1.Text="001"，下面的四行语句都是赋值语句.该行为注释行，是为了提高程序的可读性

Text2.Text=”李明”

Text3.Text="25”Text4.Text=EndSubPrivateSubCommand2Click()Text1.Text="002"Text2.Text=”张伟”下一页返回上一页3.4

命令按钮、文本框、标签Text3.Text="26”Text4.Text=EndSubPrivateSubCommand3Click()Text1.Text=”Text2.Text=”Text3.Text=”Text4.Text=”EndSub下一页返回上一页3.4

命令按钮、文本框、标签PrivateSubCommand4Click()endEndSubPrivateSubFormLoad()Text1.Text="001”

Text2.Text=”李明”

Text3.Text="25”Text4.Text=EndSub下一页返回上一页3.4

命令按钮、文本框、标签3.保存工程，运行程序到此，学生信息浏览窗体就做好了，可以运行这个窗体，通过单击不同的按钮实现不同的功能。通过这个窗体学习了三种最常用的控件，以及它们最基本的属性，其实，除了这些基本的属性，每种控件还有自己独特的属性，可根据不同的要求设计出不同风格的窗体。(1)命令按钮在系统界面设计中，命令按钮(Command)的应用非常广泛，它的最主要的用途就是通过单击该控件来调用Click事件的代码。通常通过鼠标单击按钮实现一个命令的启动、中断或结束。当用鼠标单击命令按钮时，让用户感觉到就是在按下一个按钮来发出一个启动命令。下一页返回上一页3.4

命令按钮、文本框、标签①命令按钮的常用属性，如表3-10所示。②命令按钮的常用事件。Click事件时命令按钮最最常用的事件，单击鼠标左键时触发该事件。③常用方法。SetFocus方法:设置焦点，可使指定的对象成为焦点，也就是当前对象。当对象具有焦点时，可接收用户的输入。在Windows环境中，任一时刻同时运行多个应用程序，但只有具有焦点的应用程序才有活动标题栏，才能接收用户的输入。下一页返回上一页3.4

命令按钮、文本框、标签当程序运行时，窗体上只能有一个是当前用户选中的控件，就把这个控件称作有焦点。如果一个控件得到了焦点，它就可响应用户对它的操作。但是并不是所有的控件都可以得到焦点。当对象得到或失去焦点时，触发GotFocus事件或LostFocus事件。窗体和多数控件支持这些事件。窗体只有在其中的任何控件都不具有焦点时才能接收焦点，当某个控件获得焦点时，原先具有焦点的控件即失去焦点。(2)文本框文本框(Textbox)是VB中的常用控件，用于接收用户在文本框中输入的信息，或显示程序输出的信息，用户还可以在文本框中编辑文本，是Windows操作系统中进行人机对话的基本控件。下一页返回上一页3.4

命令按钮、文本框、标签①文本框的常用属性，如表3-11所示。②文本框的常用事件。KeyPress事件按下并放开键盘上字符键时触发该事件。该事件返回一个ASCII参数。例如，键入字符“A”时，返回的ASCII值为65;当ASCII值为13时，表示输入了一个回车符。Change事件文本框内的文本发生改变时触发该事件。GotFocus事件输入焦点移动到文本框内时触发该事件。LostFocus事件文本框失去焦点时触发该事件。③常用方法。下一页返回上一页3.4

命令按钮、文本框、标签SelFocus方法:设置焦点,可使指定的的对象成为焦点，也就是当前对象。(3)标签标签控件(Label)经常用来显示标题和为文本框中显示的信息作说明性文字。这些文字在程序运行时是不会改变的。①标签的常用属性，如表3-12所示。②标签常用的方法。标签最常用的方法就是Move方法，用来实现控件的移动。(在本章的第一个演示示例欢迎屏幕就是利用了标签的Move方法实现了文字的移动效果)下一页返回上一页3.4

命令按钮、文本框、标签(4)控件应用示例例3-1设计一个登陆窗口，在文本框内输入密码(密码为“123")，单击“确定”按钮，若密码正确则窗体的Label2中显示“欢迎你使用本软件”，若密码错误则窗体的Label2中显示“密码输入出错，请重新输入”，并清空密码文本框，将光标置于密码文本框中，等待用户重新输入密码。单击“取消”按钮，则清空密码文本框，将光标置于密码文本框中，等待用户再一次输入密码。①设计应用程序界面如图3-17所示。②各控件对象的属性设置参见表3-13。下一页返回上一页3.4

命令按钮、文本框、标签③编写程序代码。如图3-18所示。PrivateSubCommand1Click()IfText1.Text=”123“ThenLabel2.Caption=”欢迎使用本软件!”ElseLabel2.Caption=”密码输入出错，请重新输入!”Text1.SetFocusText1.Text=“”EndIfEndSub下一页返回上一页3.4

命令按钮、文本框、标签PrivateSubCommand2Click()Text1.SetFocusText1.Text=“”EndSub④保存工程，运行程序。例3-2建立一个简单编辑器，界面如图3-19所示，用户可以将左边文本框中选定的内容在右边的文本框中进行剪切、复制和粘贴操作。①设计应用程序界面如图3-19所示。②各控件对象的属性设置，参见表3-14所示。下一页返回上一页3.4

命令按钮、文本框、标签(3)编写程序代码。DimstAsString‘声明变量st,用于存放待粘贴的内容PrivateSubCommand1Click()‘剪切st=Text1.SelText‘将选中的内容复制到变量中Text1.SelText=“”‘删除文本框中被选中的内容Command1.Enabled=False'Command1命令按钮不可用Command2.Enabled=False'Command2命令按钮不可用Command3.Enabled=True'Command3命令按钮可用EndSub下一页返回上一页3.4

命令按钮、文本框、标签PrivateSubCommand2Click()

‘复制st=Text1.SelText

‘将选中的内容复制到变量中Command1.Enabled=FalseCommand2.Enabled=FalseCommand3.Enabled=TrueEndSub下一页返回上一页3.4

命令按钮、文本框、标签PrivateSubCommand3Click()‘粘贴Text2.SelText=st‘将变量中的内容粘贴到Text2中Command1.Enabled=TrueCommand2.Enabled=TrueEndSuhPrivateSubCommand4Click()EndEndSub(4)保存工程，运行程序。返回上一页3.5

框架、单选按钮控件、复选框控件选项按钮通常提供给用户不同的选项，就像平时在考试中的做的选择题，可以从多个选项中选择一个或多个作为正确答案，如图3-20。功能分析:利用选项按钮组选择对应题目的正确答案，当完成选择后，单击“提交”按钮，系统会根据所选择的答案进行计分，并显示不同题目的得分情况。同时所有的选项按钮组显示为不可用状态，禁止再次选择，如图3-21所示。问题分析:考试系统界面设计包含了五种控件:2个框架控件、4个单选按钮控件、3个复选框按钮控件、4个标签、2个命令按钮。其中2个框架控件用来进行两道题目的分组，2个标签用以显示题目内容，下一页返回3.5

框架、单选按钮控件、复选框控件4个单选按钮提供单选选择题的选项，3个复选框实现多选选择题的选项，2个命令按钮实现答案的提交，2个标签用以显示考生所得分数。(1)设计应用程序界面如图3-20所示。(2)各控件对象的属性设置参见表3-15。(3)编写程序代码。Dims1AsDoubleDims2AsDoubleDims3AsDoubleDims4AsDouble‘声明四个变量下一页返回上一页3.5

框架、单选按钮控件、复选框控件PrivateSubCommand1Click()Option1.Enabled=False‘一旦提交后，设置单项按钮为不可用状态

Option2.Enabled=FalseOption3.Enabled=FalseOption4.Enabled=FalseIfOption2.Value=TrueThens1=2‘判断单选按钮的选项，如果Option2.Value=True说明选中答案B,即为正确答案考生得2分否则考生得0分下一页返回上一页3.5

框架、单选按钮控件、复选框控件IfOption1.Value=TrueThens1=0IfOption3.Value=TrueThens1=0IfOption4.Value=TrueThens1=0Labe13.Caption=”你的单选题得分为”&s1&”分”

EndSubPrivateSubCommand2Click()Check1.Enabled=False‘一旦提交后，设置复项按钮为不可用状态Check2.Enabled=FalseCheck3.Enabled=False下一页返回上一页3.5

框架、单选按钮控件、复选框控件IfCheck1.Value=1Thens2=2Elses2=0‘判断复选按钮的选项，如果Check1.Value=1说明选中答案A,考生得2分。IfCheck2.Value=1Thens3=2Elses3=0‘判断复选按钮的选项，如果Check2.Value=1说明选中答案B,考生得2分IfCheck2.Value=1Thens3=2Elses3=0‘判断复选按钮的选项，如果Check2.Value=1说明选中答案B,考生得2分。IfCheck3.Value=1Thens4=2Elses4=0‘判断复选按钮的选项，如果Check3.Value=1说明选中答案C,考生得2分。Label4.Caption=”你的多选题得分为”&Val(s2+s3+s4)&”分”EndSub下一页返回上一页3.5

框架、单选按钮控件、复选框控件(4)保存工程，运行程序。1.框架框架“Frame”控件同窗体一样，可用作其他控件的容器。在容器中的控件不仅可以随着载体同时移动，而且控件的位置属性也是相对容器的位置设置的。这样，当框架移动、隐藏时，其中的控件组也相应移动、隐藏。框架控件不仅可以作为其他控件的载体，而且可用框架控件把窗体按功能细分，即将其他控件分成可标识的控件组。有效的利用框架控件，不仅可以使界面更加简洁清晰，而且提高了界面设计的效率。下一页返回上一页3.5

框架、单选按钮控件、复选框控件(1)框架的属性，如表3-16所示。(2)框架的事件通常只用框架来分组后设置组内各控件的共同属性，一般没有必要编写事件代码。2.单选按钮控件单选按钮“0ption”必须成组出现，在一组单选按钮中必须选择一项，且只能选择一项。(1)单选按钮的属性，如表3-17所示。(2)单选按钮的事件。下一页返回上一页3.5

框架、单选按钮控件、复选框控件Click单击事件:选定按钮时将触发其Click事件。是否有必要响应该事件，将取决于应用程序的功能。(3)单选按钮的方法。SetFocus方法是单选按钮控件最常用的方法，可以在代码中通过该方法将Value属性设置为True。使用该方法之前，必须要保证单选按钮当前处于可见和可用状态(即Visible与Enabled属性值均为True)。3.复选框控件在多项选择问题中常使用复选框(CheckBox)控件。在同一组复选框中，用户可以同时选择多个选项。选定复选框控件时，该控件将显示选定标记。通常用该控件提供Yes/No或True/False选项。下一页返回上一页3.5

框架、单选按钮控件、复选框控件可用分组的复选框控件显示多个选项，供用户从中选择一个或多个选项。单击一次为“选”(检查框中出现“√”记号)，再单击一次变成“不选”(检查框上的“√”消失)。每单击一次检查框都产生一个Click事件，以“选”和“不选”响应。复选框(CheckBox)主要用于选择某一功能的两种不同状态。复选框控件与单选按钮控件相比较每个控件都用来指示用户的选择。不同的是，一组单选按钮中，一次只能选定其中一个按钮;一组复选框中，一次可选定任意个复选框。①复选框的属性，如表3-18所示。②复选框的事件。下一页返回上一页3.5

框架、单选按钮控件、复选框控件Click(单击)事件:无沦何时单击复选框控件都将触发Click事件，然后编写应用程序，根据复选框的状态执行某些操作。每次单击复选框控件时，都将改变其Value属性，以指示选定或未选定状态。单击未选中的检查框时，Value属性值变为1;单击已选中的检查框时，Value属性值变为0;单击变灰的检查框时，Value属性值变为0。4.单选框和复选框应用示例设计一个窗体，通过选择不同的选项设置文本框中文字的格式，单击“清除”按钮则清除文本框中的文字。(1)设计应用程序界面如图3-22所示。(2)各控件对象的属性设置参见表3-19。下一页返回上一页3.5

框架、单选按钮控件、复选框控件(3)编写程序代码。

PrivateSubCheck1Click()IfCheck1.Value=1ThenText1.FontBold=TrueElseText1.FontBold=False‘Check1.Value=1表示选中第1个复选项，则设置Text1.FontBold=True,即设置文本框中的文宇为粗体

EndIfEndSubPrivateSubCheck2Click()下一页返回上一页3.5

框架、单选按钮控件、复选框控件IfCheck2.Value=1ThenText1.FontItalic=TrueElseText1.FontItalic=FalseEndSubPrivateSubCheck3Click()IfCheck3.Value=1ThenText1.FontUnderline=TrueElseText1.FontUnderline=FalseEndSubPrivateSubCommand1Click()Text1.Text=””EndSub下一页返回上一页3.5

框架、单选按钮控件、复选框控件PrivateSubOption1Click()IfOption1.Value=TrueThenText1.FontName=Option1.Caption‘Option1.Value=True表示选中第1个单选项，则设置Text1.FontName=Option1.Caption，即设置文本框中的文宇的宇体为宋体EndSubPrivateSubOption2Click()IfOption2.Value=TrueThenText1.FontName=Ontion2.CaptionEndSub下一页返回上一页3.5

框架、单选按钮控件、复选框控件PrivateSubOption3Click()TfOption3.Value=TrueThenText1.FontName=Option3.CaptionEndSubPrivateSubOption4Click()TfOption4.Value=TrueThenText1.ForeColor=vbRedEndSub下一页返回上一页3.5

框架、单选按钮控件、复选框控件PrivateSubOption5Click()IfOption5.Value=TrueThenText1.ForeColor=vbGreenEndSubPrivateSubOption6Click()IfOption6.Value=TrueThenText1.ForeColor=vbYellowEndSub(4)保存工程，运行程序。返回上一页3.6

列表框控件、组合框控件在平时所使用的一些应用程序中，用户不仅可以通过键盘输入相关的信息，有的时候还可以通过鼠标进行选择数据进行输入，像这节中设计的“选修课程汇总窗体”，其中班级和选修课程的名称这两项信息，就是用户通过鼠标进行选择的，这样做，一方面可以减少用户的输入工作量，另一方面也可以使输入的数据更加规范化。“选修课程汇总”窗体功能分析:学生可以利用这个界面进行选修课程的选择。当学生在对应的文本框中输入自己的学号和姓名，同时通过组合框选择自己对应的班级、学习的课程名称，选择完毕后。单击“添加”按钮，就可以把该学生的信息添加到列表框中;下一页返回3.6

列表框控件、组合框控件如果学生选择错了，想修改自己的信息，那就可以在列表框中将自己刚才添加的信息选中，然后单击“删除”按钮，就可以删除在列表框中已经产生的信息列表，重新输入自己的相关信息。单击“清空”按钮就可以删除列表框中的所有信息。单击“退出”，退出界面浏览。问题分析:选修课程汇总界面包含VB的种控件，分别是文本框、标签、命令按钮和列表框、组合框，其中2个文本框用于提供给用户输入学生的学号和姓名，5个标签用于显示系统名称和为文本框中所显示的信息做提示，2个组合框用以提供班级和课程名称的选择，1个列表框用于汇总显示所有学生的选课信息，4个命令按钮用于实现各种功能。其中有3个命令按钮在利用框架控件包围起来，显得更加整齐美观。下一页返回上一页3.6

列表框控件、组合框控件(1)设计用户界面如图3-23所示。下面我们对窗体以及窗体上的控件的属性设置加以说明，如表3-20所示。(2)编写程序代码实现程序功能现在窗体已经设计好了，下面对功能一步步的分析，为对象编写相应的事件代码。在FormLoad事件过程中编写代码:在窗体运行的时候，2个组合框中就应该显示班级列表和课程名称列表供学生进行选择。所以在窗体的Load事件中利用组合框的AddItem方法给组合框的下拉列表赋值。下一页返回上一页3.6

列表框控件、组合框控件下一页返回上一页3.6

列表框控件、组合框控件为命令按钮的Click事件编写代码:当单击“添加”命令按钮时，就可以把该学生的信息添加到列表框中。利用IF语句做一个判断选择，如果用户没有输入学号则不能实现信息的添加。声明了一个变量str，接着给变量赋值，str的值为Text1,Text2,Combo2,Combo3四个控件的值的连接字符串，即学号、姓名、班级、选修课程。为了让数据便于阅读，在一个控件值与另一个控件值的中间还连接了一个含有两个空格的字符串。最后利用AddItem方法，将变量的值赋值给List列表框。下一页返回上一页3.6

列表框控件、组合框控件PrivateSubCommand1Click()IfTrim$(Text1.Text)=””ThenExitSubDimstrAsStringstr=Trim$(Text1.Text)&”“&Text2.Text&“”&Combo2.Text&””&Combo3TextList1.AddItemstrEndSub当单击“删除”命令按钮时，就可以删除在列表框中选中的已经产生的信息。下一页返回上一页3.6

列表框控件、组合框控件当List1.ListIndex为-1时，表示在列表框中没有选中信息，不等于1,则利用RetnoveItetn方法删除以ListIndex的值所标识的信息项。

PrivateSubCommand2Click()IfList1.ListIndex<>-1ThenList1.RemoveItemList1.ListIndex

EndSub当单击“清空”命令按钮时，可以将列表框中的内容全部清除。

PrivateSubCommand3Click()List1.ClearEndSub下一页返回上一页3.6

列表框控件、组合框控件当单击“退出”命令按钮时，要求退出应用程序。

PrivateSubCommand4Click()EndEndSub(3)保存工程，运行程序。列表框(Listbox)控件可显示一个含有若干选项的列表，程序运行时可用鼠标或箭头键从中选择一项或多项，选中的项呈反相显示。组合框(ComboBox)控件是文本框和列表框的组合，包含一个文本框和一个列表框。下一页返回上一页3.6

列表框控件、组合框控件用户既可在文本框部分输入选项，也可用列表框部分选择选项。这两种控件无沦在功能的实现、属性的设置以及常用的事件和方法等方面都非常类似。(1)列表框和组合框的属性，如表3-21所示。(2)列表框和组合框的常用事件Click(单击)事件和DblClick(双击)事件。说明:在实际应用中，列表框常与命令按钮配合使用，在列表框中选择好列表项后，再通过命令按钮执行相应的操作。命令按钮在Click事件过程中对应于列表框的选项操作。下一页返回上一页3.6

列表框控件、组合框控件(3)列表框和组合框的方法①AddItem方法:向列表框或组合框中添加一个项目。格式:列表框名.AddItem要增加的列表项[列表项序号]。“列表项序号”用于指定新插入的项在列表框中的位置。若省略该参数，则将项目插入在末尾(或按排序次序插入在适当的位置)。②RemoveItem方法:从列表框中或组合框中删除一个项目。格式:列表框名.RemoveItem列表项序号。③Clear(清除)方法:清除列表框或组合框中的所有项目。返回上一页3.7

定时器定时器(Timer)控件用来计时，当所预定的时间到了的时候，系统会自动触发其Timer事件，从而完成指定的操作。例如，移动一个条幅或一幅图片，构成动态效果，显示时钟等。在窗体上放置计时器控件后，尽管在程序运行时不可见，但它依然在工作。因此，设计窗体时，可随意地把计时器控件放在窗体的某个位置上，并且允许同时使用多个定时器控件。在本章开始的时候，就做的一个小实例“欢迎屏幕”就是利用定时器实现了标签文字的移动效果。如图3-25所示。下一页返回3.7

定时器1.定时器的属性，如表3-22所示。由于硬件的某些原因，VB不会十分精确地按设置的间隔激活Timer事件。即使用ms来计量Interval属性，实际的时间间隔精确度误差不会超过1/18s。定时器Interval属性值越小，定时器事件触发越频繁，响应事件所使用的处理器事件就越多，这将降低系统综合性能。如果Interval=0，定时器停止工作。2.定时器的事件定时器控件的事件只有一个—Timer事件。只要定时器控件的属性Enabled=True，而且Interval属性值大于0，则Timer事件以Interval属性指定的时间间隔发生。下一页上一页返回3.7

定时器在Timer事件过程中编写需要定时进行的处理，可以周期性地激活Timer事件，每隔一段时间自动地调用一次Timer事件过程。3.定时器应用示例创建一个数字时钟，时钟显示当前系统的口期、时间，以及根据时间判断是早上还是下午。(1)界面设计。在窗体上绘制①个计时器控件和③个标签控件，设计好界面，如图3-26所示。(2)设置各控件的属性，如表3-23所示。下一页上一页返回3.7

定时器(3)编写代码:双击计时器控件，在其Timer事件过程中编写程序代码。PrivateSubTimer1Times()Label1.Caption=Date$&””&Time$’利用Date函数和Time函数获取系统日期、时间IfVal(Left(Time$,2))<12ThenLabel2.Caption=”AM"ElseLabel2.Caption=”PM”EndIfEndSub(4)保存工程，运行程序。上一页返回3.8

滚动条滚动条通常用来附在窗体边上帮助观察数据或确定位置，作为速度、数量的指示器来使用，也可用来作为数据输入的工具。滚动条分为水平滚动条(HscrollBar)和垂直滚动条(VscrollBar)。除方向不一样外，水平滚动条和垂直滚动条的结构与操作是完全相同的。下面这个实例就是利用滚动条来控制绿色标签控件的大小。功能分析:单击水平滚动条可以控制绿色标签的宽度，同时滚动条上方的标签出现相应的数字;单击垂直滚动条可以控制绿色标签的高，同时滚动条右方的标签出现相应的数字。下一页返回3.8

滚动条问题分析:该界面包含了5个控件:3个标签控件和两个滚动条控件(1个水平滚动条和1个垂直滚动条)。2个滚动条用以控制绿色标签的大小，2个标签用以显示滚动条中滑动块所对应的数值。(1)设计用户界面，如图3-27所示。下面我们对窗体以及窗体上的控件的属性设置加以说明:如表3-24(2)编写程序代码实现程序功能。PrivateSubHScroll1Change()Label1.Width=HScrolll.Value‘通过代码设置Label1的Width属性等于HScroll1的值下一页上一页返回3.8

滚动条Label2.Caption=”标签的宽为:”&HScrolll.ValueEndSubPrivateSubVScroll1Change()Label1.Height=VScroll1.Value

‘通过代码设置Label1的Height属性等于VScroll1的值Label3.Caption=”标签的高为:”&V,Scrolll.ValueEndSub下一页上一页返回3.8

滚动条滚动条的两端各有一个滚动箭头，在滚动箭头之间有一个滚动块。滚动块从一端移至另一端时，其值在不断变化。垂直滚动条的值由上往下递增，水平滚动条的值由左往右递增。其值均以整数表示，取值范围为-32768~32767。最小值和最大值分别在两个端点，其坐标系和滚动条的长度(高度)无关。1.滚动条的属性，如表3-25所示。2.滚动条的事件滚动条最常用的是Scroll事件和Change事件。Scroll事件在滚动条内拖动滚动框时，触发产生Scroll事件。Change事件滚动条内的值发生改变时触发产生Change事件。下一页上一页返回3.8

滚动条例如，利用滚动条改变标签控件的大小。程序代码如下:PrivateSubHScroll1Change()Label1.Width=HScrolll.ValueLabel1.Height=VScrolll.ValueEndSub3.滚动条的应用创建一个调色板，在窗体上绘制3个水平滚动条，分别对应红、绿、蓝3种颜色值。通过3个滚动条的拖动，标签的颜色会对应的发生变化，如图3-28所示。下一页上一页返回3.8

滚动条(1)界面设计。在窗体上绘制3个水平滚动条，分别对应红、绿、蓝3种颜色值。由于红、绿、蓝3基色可以合成各种各样的颜色，每一种颜色其变化又有256种，故滚动条取值范围为0~255。设计好界面，然后设置各控件的属性，如表3-26所示。(2)编写程序代码。PrivateSubHScroll1Change()Label1.Caption=”红色分量值:”&HScroll1.ValueLabel4.BackColor=RGB(HScroll1.Value，HScroll2.Value，HScroll3.Value)EndSub下一页上一页返回3.8

滚动条PrivateSubHScroll2Change()Lahel2.Caction=”绿色分量值:”&HScroll2.ValueLahel4.BackColor=RGB(HScroll1.Value，HScroll2.Value，HScroll3.Value)EndSubPrivateSubHScroll3Change()Lahel3.Caption=”蓝色分量值:”&HScroll3.ValueLahel4.BackColor=RGB(HScroll1.Value，HScroll2.Value，HScroll3.Value)EndSub(3)保存工程，运行程序。上一页返回3.9

图形控件和图片控件图形图像控件是为了美化窗体界面而设置的。VisualBasic6.0包含了4个图形控件:PictureBox控件、Image控件、Shape控件和Line控件。图片框和图像框可以显示的图像文件格式有位图文件、图标文件、图元文件、JPEG格式文件和GIF格式文件。图片框(PictureBox)、图像框(Image)的Picture属性，如表3-27所示。将图形载入到PictureBox控件或Image控件，也可利用函数LoadPicture设置控件的Picture属性。下一页返回3.9

图形控件和图片控件语法为:LoadPicture([filename],[size],[colordepth],[x,y])其中，filename指定图片文件名。如果filename是光标或图标文件，size指定图像大小，colordepth指定颜色深度，(x,y)指定光标或图标的宽度与高度。例如:PicSample.Picture=LoadPicturc(”D:\usos\cap.bmp")Imagel.Picture=LoadPicturc(”C:\windows\winlogo.cur”，vbLPLarge，VbLPC010r)‘vbLPLarge,vbLPColor分别表示载入的光标使用系统大图标和256色。下一页返回上一页3.9

图形控件和图片控件运行时，若要从PictureBox或Image控件中删除一个图形，可使用不指定文件名的LoadPicture函数。例如Image1.Picture=LoadPicturc。在窗体上，插入PictureBox控件、Image控件时，Image控件画出的是一个虚线框，PicturcBox控件画出的是画框，上面的例图就是给两种控件设置Picture属性的效果，可以看到图片框控件像是一个容器，可以在这个“父”控件中包含其他的控件。图像框则不同，其他的控件不能包含在图像框控件中。或者我们这样理解，图片框有两层，一层是图片控件框，另一层是框上的图。而图像控件只是一个图，如图3-29所示。下一页上一页返回3.9

图形控件和图片控件图像框还专门设置了调整图像大小的“Stretch"属性。当该属性为True时，表示该图像可以在窗体中调整图像框和图像的大小;否则，只能调整图像控件的大小，不能调整图像的大小。如图3-30所示。PrivateSubFormLoad()Image1.Stretch=TrueEndSubPrivateSubImage1Click()Image1.Height=Image1.Height*0.9Image1.Width=Image1.Width*0.9EndSub下一页上一页返回3.9

图形控件和图片控件在现实生活中，我们除了利用图形图像控件美化窗体界面外，还经常在窗体上绘制一些图形来模拟一些运算过程和控制过程，就需要在窗体上进行图形的绘制。要实现绘图就必须有绘图的容器，就像在现实生活中一样，图形是在什么地方绘制的。在VB中通常使用图片框作为绘图的容器。有了绘图的容器，那在这个容器的什么位置开始绘制，这就要求确定容器的坐标，包括坐标原点、坐标的度量单位、坐标轴的长度和方向与坐标相关的属性如表3-28所示。下一页上一页返回3.9

图形控件和图片控件下面的代码可实现将窗体大小设置为屏幕的70%，坐标原点设置在窗体Fortnl的中央，且X轴的向右及Y轴的向下为正向。

PrivateSubFormLoad()Form1.Width=Screen.Width*0.7’窗口的宽度变是屏幕宽度变的70%Form1.Height=Screen.Height*0.7‘窗口的高度变是屏幕高度变的70%ScaleWidth=Form1.Width‘窗口坐标系的横坐标最大值与窗体的宽度相同

ScaleHeight=Form1.Height‘窗口坐标系的纵坐标最大值与窗体高度变相同下一页上一页返回3.9

图形控件和图片控件Form1.ScaleLeft=-Int(ScaleWidth/2)‘设置窗口对象的中点为坐标系原点Form1.ScaleTop=-Int(ScaleHeight/2)‘用Form1.ScaleTop=Int(ScaleHeiffht/2便可设置Y轴的向上方向为正向

EndSub决定了绘制的位置，接下来就是用什么工具绘图了，一种是利用Shape控件和Line控件;另一种是利用图形方法绘制。Shape控件和Line控件属性如表3-29所示。下一页上一页返回3.9

图形控件和图片控件通过改变Shape控件属性的值可以画出6种图形，Line控件用于画出一条直线。图形方法是利用控件自有的方法绘制出所需要的图形。它比图形控件更加灵活、方便。绘图方法如表3-30所示。(1)

Line方法语法:Object.Line[Step](x1，y1)[Step](x2,y2)，[color]，[B][F]其中，object为PiclurcBox控件对象;(x1,y1)为线段的起点坐标或矩形的左上角坐标;(x2,y2)为线段的终点坐标或矩形的右下角坐标;Step指定相对于线的段起点的终点坐标;B表示画矩形;F表示用画矩形的颜色来填充矩形，F必须与B一起使用。若只用B而不用F，则矩形的填充由FillColor和FillStyle属性决定。下一页上一页返回3.9

图形控件和图片控件(2)Circ1方法语法:Object.Circle[Step](x,y),radius,[color,start,end,aspect]其中，object为PicturcBox控件对象;(x,y)为Single类型，是圆、椭圆或弧的中心坐标;step表示采取当前作图位置的相对值;start、end分别表示起始角度、终止角度，取值为0~2π时，画圆弧，取值为负值时，画扇形，负号表示画圆心到圆弧的径向线;aspect指定长短轴比率，默认值为1，画圆，大于或小于1时，画椭圆。(3)PSet方法语法:ObjectPSet[Step](x,y)[color]其中，object为PiclurcBox控件对象;(x,y)为指定点的坐标值，Step指定以当前点为坐标原点。下一页上一页返回3.9

图形控件和图片控件(4)图形的属性DrawWidth属性用于设置容器内所画线的宽度或点的大小。DrawStyle属性用于设置容器内所画线的形状。(5)绘图应用下面的示例就是利用图片框控件的不同方法绘制出不同的图形。窗体由命令控件和图片框控件组成，当单击不同的命令按钮时，在图片框内绘制不同的图形，如图3-31所示。下一页上一页返回3.9

图形控件和图片控件PrivateSubCommand1Click()Picture1.DrawWidth=20Picture1.PSet(2400,1800),RGB(255,0,0)‘利用Pset方法绘制点EndSubPrivateSubCommand2Click()Picture1.DrawWidth=10Picture1.DrawStyle=2下一页上一页返回3.9

图形控件和图片控件Picturel.Line(0,0)-(4800,3700),RGB(100,0,100)‘利用Line方法绘制线EndSubPrivateSubCommand3Click()Picture1.DrawWidth=3Picturel.Circle(2400,1800),1000‘利用Circle方法绘制圆EndSub上一页返回3.10

多窗体界面应用程序在前面几节中，我们设计的工程中都只有一个窗体，也就是单窗体，实际上单窗体已经是一个功能完整的应用程序了，不过功能比较简单。如果应用程序想要实现更复杂的功能，就需要在应用程序中设计多个窗体了，也就是多窗体的应用程序。在一个工程中添加窗体，即可以添加一个空白的窗体，也可以添加一个窗体模板，还可以添加已经制作完成的窗体。这节中，将学习如何在一个工程中设计多个窗体，以及窗体间的相互调用。本节我们在对“学生信息浏览”工程中添加一个登陆窗体来学习如何创建多窗体的应用程序。下一页返回3.10

多窗体界面应用程序功能要求:在程序运行后，首先出现登陆窗体，当你输入正确的密码“123”后，单击“确定”按钮，则进入“学生信息浏览”窗体，在该窗体中可以浏览学生的信息，也可以清除文本框的信息，单击“返回”按钮，又可以返回到登陆窗体。如图3-32所示。1.添加一个新窗体先打开一个“学生信息浏览”工程(一定是工程文件而不是窗体文件)。选择“工程”菜单中的“添加窗体”命令。就会弹出“添加窗体”对话框，如图3-33所示。下一页上一页返回3.10

多窗体界面应用程序如果想在工程中新建一个窗体，就选择“新建”选项卡，在窗口中选择的“窗体”并单击“打开”按钮，为原来的工程添加一个新窗体;如果