第2章visualbasic编程基础

《第2章visualbasic编程基础》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第2章VisualBasic编程基础1台州学院计算机系应建健编本章内容2.1窗体2.1.1窗体的构造2.1.2窗体的属性2.1.3窗体的事件2.1.4窗体的方法2.1.5多窗体2.1.6窗体加载与卸载时触发的事件2.2数据类型、常量与变量2.3Print语句和赋值语句2.4运算符、表达式、常用内部函数2.5编程实例2台州学院计算机系应建健编2.1窗体2.1.1窗体的构造2.1.2窗体的属性2.1.3窗体的事件2.1.4窗体的方法2.1.5多窗体2.1.6窗体加载与卸载时触发的事件3台州学院计算机系应建健编2.1.1窗体的构造同普通应用程序的窗口一样，

2、用VisualBasic设计的窗体也具有控制菜单、标题、最大化按钮、最小化按钮、关闭按钮、边框、窗体最小化图标等。下页的图2-1是我们在上一章的实例中编制出来的程序窗体，图中标出了窗体的这些构造，并在括号中标注了与这些构造相关的属性名称，你可以在窗体设计时，通过修改这些属性值来改变窗体的外观。4台州学院计算机系应建健编2.1.1窗体的构造图2-1窗体的构造和对应的属性5台州学院计算机系应建健编2.1.2窗体的属性窗体的常用属性有：Name、Left、Top、Width、Height、ScaleWidth、ScaleHeight、Caption、Fon

3、t、ForeColor、BackColor、AutoRedraw、BorderStyle、ControlBox、Icon等。6台州学院计算机系应建健编2.1.2窗体的属性1.窗体的名称属性（Name属性）属性窗体列表中的“（名称）”属性，它指示了窗体的内部名称。VisualBasic中的任何对象都有Name属性，每个对象的名称各不相同，它是一个对象区别于另一个对象的标识，程序员在设计代码时，需要用对象的名称来引用对象。第一个窗体新建时的缺省名称是Form1，你可以对其重命名，赋予它更加体现实际意义的名称，如“MainForm”等。注意：Name属性值

4、不会反映到界面上，但它被用于代码中，如果在编程过程中，对象的名称被修改，很可能使原来运用旧名称编写的代码出错，因此，改对象的名称一般放在编制代码前进行，在本书的大多数例程中，我们将不对对象名称进行修改，而是使用系统提供的默认名称。7台州学院计算机系应建健编2.1.2窗体的属性2.窗体的位置和大小属性（Left、Top、Width、Height）如图2-2（下页）所示，窗体在屏幕上的位置由窗体左上角在屏幕上的坐标决定，即窗体左边距离屏幕左边的距离，以及窗体上边距离屏幕上边的距离，这两个属性分别是窗体的Left属性和Top属性。而窗体的大小则由窗体的宽和

5、窗体的高来决定，它们分别是窗体的Width属性和Height属性。另外，在VisualBasic中，屏幕也被当作对象来处理，它的对象名称为Screen，屏幕具有宽和高的属性。注意：在VisualBasic中，长度的缺省单位是twip。在缺省情况下，1twip=1/15像素=1/1440inch=1/567cm。8台州学院计算机系应建健编2.1.2窗体的属性图2-2窗体在屏幕的位置和大小9台州学院计算机系应建健编2.1.2窗体的属性【例2-1】窗口位置和大小的设置演练：设计一个窗体，上面有两个命令按钮Command1和Command2，为这两个按钮添加

6、Click事件代码，使得运行时单击第一个命令按钮，能将窗体移到屏幕的左上角，单击第二个命令按钮，能将窗体移到屏幕的中间，并改变窗体的大小为屏幕大小的一半。10台州学院计算机系应建健编步骤一，界面设计。新建工程，在新窗体Form1上添加两个命令按钮，采用默认名称Command1和Command2（图2-3）。图2-3例2-1的界面设计11台州学院计算机系应建健编2.1.2窗体的属性步骤二，添加事件代码。双击Command1，为Command1的Click事件添加以下代码：PrivateSubCommand1_Click()Form1.Left=0'设置

7、窗体Form1到屏幕左边的距离为0Form1.Top=0'设置窗体Form1到屏幕上边的距离为0EndSub注：上面代码的单引号后的文字是对程序的注释，以便于你理解代码，可不用输入。12台州学院计算机系应建健编2.1.2窗体的属性双击Command2，为Command2的Click事件添加以下代码：PrivateSubCommand2_Click()Form1.Width=Screen.Width/2'设置窗体Form1的宽度为屏幕宽的一半Form1.Height=Screen.Height/2'设置窗体Form1的高度为屏幕高的一半Form1.Le

8、ft=(Screen.Width-Form1.Width)/2'使Form1水平居中Form1.Top=(S