VB第一讲

 

第一讲:绪论与程序界面

授课题目：绪论与程序界面开发

教学目的：1、了解VB的功能与发展过程。

0

属性：

教学重点：创建各种程序界面。

（十四）组合框（ComboBox）

复习提问:无

 

d = SetWindowRgn(Me.hWnd, h, True)

31、列表框的Columns属性值为0时，列表框的数据分几列。                             （     ）

一、绪论

1．1 程序设计言语

A、机器言语：机器言语是一种CPU指令系统，也称为CPU的机器言语，它是CPU能够识别的一组由0与1构成的指令代码。用机器言语来编程，就是从所运用的CPU的指令系统中挑选合适的指令，组成与个指令序列。这种言语可以被机器直接理解并实施，是所有言语中速度最快的。但是他不直观、难记、难以理解、不易查错、开发周期长，所以，目前只有专业职员在编制对于实施速度有很下要求的程序才采用。

   机器言语与汇编言语都是因CPU的不同而不同的。所以被称为“面向机器的言语”。运用这两种言语，不仅要有解题思路，还要熟悉机器的内部构造，所以要把握这类言语要下很大的功夫。

C下级言语

下级言语是把程序设计职员从机器的内部构造甚至工作原理中解放出来，把重要精力集中在解决题目的思路和方法上。可以说除了机器言语与汇编言语之中的计算机言语都是下级言语。下级言语又分为面向过程的言语与面向对象的程序设计言语。面向对象的程序设计言语在编程时，总是为了完成解决题目的过程而编程。而面象对象的编程言语在编制程序时，总是为了解决某个对象的属性、事件、或方法。面向对象的程序设计言语又称为：OOP，即Object Oriented Programming.

1.2VB简介

VB是Visual Basic的简称，是美国Microsoft公司推出的Windows操作系统的程序设计言语。

发展：20世纪70年代，Microsoft公司推出Basica言语。

     20世纪90年代，Microsoft公司推出基于Windows平台下图形用户界面（GUI，Graphical User Interface）的编程言语，VB1。0

   VB4.0提供了壮大的数据库管理能力。

   VB5.0提供了ActiveX技术。

   1998年VB6.0引入了部件编程的概念，真际上这是对面向对象编程思念的扩展。

   2003年Microsoft公司推出了VB.net，但并不是说VB.net是VB6.0的下一个版本，VB.net已经更改了部分VB6.0的工作原理。

CommonDialog1.ShowPrinter

VB的版本：

                               

VB的安装：赐教材

二、程序界面的设计

（一）、界面容器——窗体

当标签控件的AutoSize属性值为True时,这个属性的值决议当标签显示内容增加时,它的大小是怎样扩展的。如果WordWrap属性值是True则垂直扩展，标题文字换行；值为False时，水平扩展，文字不换行。AutoSize属性值为False时，WordWrap属性值无意义。

（五）图片框

1、Name属性：

Name属性是所有控件，对象都有的属性。Name属性是在程序设计时访问对象时运用的，在程序运用的时间，Name属性是不面对用户的。同时，Name属性是只读属性，不可以在程序运行的时间更改。对象在命名时须注意：对象名必需以字母开头，不能多于40个字符，可以包含字母、数字和下划线，不能包括标点符号和空格。同时对象名不能与其他公共对象重名，可以与闭键字相同，但应避免，以防发生冲突。

2、Caption属性：

Caption属性的值就是显示在窗体标题栏上的文字，默认值与对象名相同。在设计时，经由过程属性窗口把新的文字赋给Caption属性，可以坐即在对象窗口中看到窗体标题栏上文字的变化。此值可所以随便的字符串，在属性窗口中给字符串类型的属性值时，不必在字符串两边加引号。其他控件也多有这个属性，这个属性就是对象在界面上显示的内容。例如要修改按钮上显示的文字就可以修改按钮的Caption属性值。这个属性是读写属性

                    

4、Icon属性

vbMsgBoxRtlReading

5、ControlBox属性

此属性运行时只读。这个属性控制窗体标题栏上是否显示图标和三个控制按钮。这个属性的值是布尔型的。

6、MaxButton与MinButton属性

这两个属性分别决议标题栏上最大化按钮与最小化按钮是否可用。如果一个为False是，按钮将以灰色显示，当二者都为False时，这两个按钮将消失。

7、BorderStyle属性

标签3：Caption：预览       Width: 975     Height: 255

8、Left与Top属性

Left属性的值指示窗体（或对象）左边框与屏幕显示区左边缘之间的间隔。Top属性的值指示的是窗体上边框与屏幕显示区上边缘之间的间隔。这两个属性的单位是缇。这个单位很小，等于1/567厘米。

4096

这两个属性指的是窗体（对象）的宽与下，单位也是缇，这两个属性的值不能太小，不能为负值。

10、Moveable属性

（五）、制作窗体的特效

11、Enabled属性

此属性的值为True时，窗体（或对象）可以响利用户的鼠标或键盘操作。

12、WindowState

这个属性决议窗体当前的状态是最大化还是最小化还是还原。属性的值与意义赐教材。

在运行时，在 Path 属性指定的目录中，FileListBox 控件将文件定位并列举出来。该控件用来显示所选择文件类型的文件列表。例如，可以在利用程序中创建对话框，经由过程它选择一个文件或者一组文件。

用这个属性可能给窗体指定一幅布景图象。设置这个属性的方法与Icon属性相同。

（二）命令按钮

                                                        

框架控件是一个左上角有标题文字的方框。它的重要作用是对窗体上的控件进行视觉上的分组，使窗体上的内容更有条理。

3、以下哪个选项不是VB的版本。                                     （     ）

1、Name、Left、Top、Width、Height、Visible、Caption、Enbled与窗体的一样。

然后在工具箱中就可以找到如下图的控件。

如果这个属性设为True，那么，当这个按钮所在的窗体为当前窗体的时间，按回车键就相当于用鼠标点了这个按钮。

3、Cancel属性

如果这个属性设为True，那么，当这个按钮所在的窗体为当前窗体的时间，按ESC键就相当于用鼠标点了这个按钮。

4、Value属性

无论运用何种方法选中命令按钮，都会把这个属性设置为True并触发按扭的Click事件。可以在程序中给这个属性赋True值。来触发按钮的Click事件。（单击事件）。

(三)文本框

                                                     

 Msgbox 参数1，参数2，参数3

文本框的常用属性：

1、Name、Left、Width、Height、Visible、Enabled属性

第一个按钮是缺省值。

2、Text属性

　　BorderStyler=0

3、MaxLength属性

此属性设定文本框的最大长度（以字符数为单位，一个汉字为一个字符）。如果长度设为0，则长度只受系统限制，可以使用这个属性来限制文本框内容的输入和显示长度。

11、窗体的width和Height属性的值是一个数值。它的单位是。          （    ）

这个属性决议文本框是否支持多行来显示文本。当此属性的值为True时，文本框中可以显示多行内容，最多可包含32K个字符，在输入时如果要换行的话，可以使作ENTER键，如果窗中有一个默认按钮，则要按Ctrl+Enter组合键才可以换行。当这个属性为False时，只能单行显示，忽略“回车符”与“换行符”最多可包含2048个字符。这个属性在运行时是只读的。

5、ScrollBars属性

524288

17、闭于复选框的Value属性，下列说法正确的是。                       （     ）

当Appearance属性为1时，文本框控件以三维坐体方式显示；属性值为0时，以二维平面效果显示。窗体与大部分控件对象都有此属性，不过有些对象（如命令按钮）此属性值改变时，没有显明的变化。

7、selLength属性、Selstart属性、SelText属性

文本框的选择属性，selLength是选择长度，Selstart指选择的最先位置，selＴext是选择的文本。

34、在目录列表控件的属性中，那个可以设置目录列表控件的路径。                  （     ）

此属性决议文本框中文本的对于文本框的对齐方式。属性值的意义赐教材。

9、PasswordChar属性

当这个属性的值是单个字符时，用来设置“口令字符”。例如，把此属性设置为“*”时，则文本框中输入或显示文本都是以“*”来显示。这个属性重要用在文本框作为密码输入控件的时间。

10、Locked属性

当此属性的值为True时，用户不能直接编辑文本框中的文本，即内容被锁定。默认值为False，可以直接编辑。

（四）标签

                                                               

标签可以用来输出程序的运行结果，也可以用来对其他没有标题的控件（如文本框、列表框、组合框等）进行说明，也可以用来显示一些程序运行过程中的提醒信息。标签对象的显示内容不能由用户来直接编辑，但是可以经由过程程序代码来进行修改。

显示 Retry 及 Cancel 按钮。

1、Name、Left、Top、Width、Height、Visible、Enabled、Caption

                                                                 数据库连接对话框

标签控件也可以有边框，这个属性就是设置标签边框的。

3、AutoSize属性

这个属性值为True时，标签大小会随显示的内容而变化，默认值为False。

显示 Yes 及 No 按钮。

                               

B、汇编言语：为了便于记忆、便于查错、提下编程者的劳动强度，人们运用一些用于帮助记忆的符号来代替机器言语中的指令，使得编程效率和质量都有了很大的提下。由这些助记符组成的指令系统，称为汇编言语。汇编言语指令与机器言语指令基本上是一一对应的。因为这些助记符号不能被机器直接识别，所以汇编言语程序必需被编译成机器言语才能被机器理解和实施。编译之前的程序被称为“源程序”编译之后的程序被称为“目标程序”。

                         

API函数的声明：

1、Name、Left、Top、Width、Height、Visible、Enabled、BorderStyle、Picture

3、Visible属性

Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long

3、Align

属性决议图片框的位置，取值与意义赐教材。

文本框是窗体中进行输入输出的重要控件,可以用来输入输出诸如姓名,地址,密码等信息。文本框本身支持一般的编辑功能，如显示闪烁的插入点光标，支持键盘输入、插入、删除、复制与粘贴，还支持运用鼠标拖动来选择其中部份内容。

将Help按钮添加到消息框

图象控件的属性：

1、Name、Left、Top、Width、Height、Visible、Enabled属性

2、BorderStyle属性

 

3、Picture属性

这个属性决议图象控件中所显示的图象起原，即是磁盘文件。不给此属性赋值，则控件不会显示任何图形。在设计时，可以在属性窗口中打开“加载图片”对话框设置Picture属性的值来指定图象控件所显示的图形文件。在程序运行时，可以在代码中运用内部函数LoadPicture来把一个图形文件赋予此属性。

4、Stretch属性

运行时，如果此属性为True，则当所显示图象的原始大小与控件大小不同时，会缩放图象来填充整个控件。当图象缩放过度时，会造成失真。当Stretch属性为False（默认值）时，图象会以原始大小显示，如果控件比图象小，会使图象显示不完整。

（七）直线

新课教学：

属性：

1、Name、Visible、BorderStyle属性

2、X1、Y1、X2、Y2

这四个属性决议了直线控件的两个端点在窗体上的坐标值。

3、BorderWidth

控件线条的宽度单位为像素。要运用除“真线”与“透明”之中的线型时，这个属性要设为1，否则只显示真线，也就是说，不可能有粗点划线、粗虚线等。

（八）形状控件

直线控件只能显示直线条，而形状控件（又称图形控件）则可以显示多种不同的形状。形状控件也是用来装饰窗体的。

   y As Long

2、shape

直线控件并不常用，它的重要作用是在窗体上显示一条直线段，把窗体上的控件进行视觉上的分组。

3、BorderStyle

这个属性决议了形状控件的边框样式，取值与直线控件的BorderStyle属性相同。

14、一个图象框在程序运行时预改变成另一张图象，要怎样修改picture属性。（     ）

这个属性决议形状形状控件的边框宽度，单位为像素。与直线控件相似，当这个值大于1时，不论BorderStyle属性取值怎样，只能显示真线。

5、FillStyle属性

            Height: 300                      中侧

（九）滚动条

Text属性的值是文本框中输入或显示的文本内容。程序可以读取这个属性的值，了解用户输入内容，也可以设置它的值，来显示信息。

1、  Name、Left、Top、Width、Height、Visible、Enabled

2、Value

这个属性是滚动条的重要属性，它反映了滚动条的当前值，滚动框位置大体上能够反映这个属性的值。无论是单击滚动按钮、单击空白区域还是拖动滚动框，都会改变这个属性的值。

　　rtn = rtn Or WS_EX_LAYERED

Min属性决议了当滚动条的滚动框处于顶部或最左位置上时,滚动条Value属性的值,即滚动条的下限;Max属性决议了当滚动条的滚动框处于底部或最右位置时,滚动条Value属性的值,即滚动条的上限。

4、SmallChange属性

这个属性为0时，列表框为标准样式；为1时，列表框每个条目以复选框样式显示。

（十）、框架控件

命令按钮的类型名为“CommandButton”。命令按钮是一种很常用控件，基本上在所有的窗口中都可以找到。

（十一）、复选框

作业：word的闭于对话框

属性：

Icon属性决议窗体是左上角的窗口图标。单击属性窗口中此属性值后面的按钮，打开“加载图标”对话框，答应查找并打开一个图标文件（以ico或cur为扩展名）作为这个属性的值。要删除Icon属性值，只需选中此属性值，按Delete键。如果属性值为无，则运用VB的默认窗口图标。

2、Style

此属性值为0时，复选框以标准样式显示，为1时，以命令按钮样式显示，按下表示选中，弹起表示未选中，使用这个属性的取值可以把复选框控件用做所谓的“切换按钮”。

3、Alignment

            Left:240                        居中

这个属性决议了复选框的选中状态。0表示未选中，1表示选中，2表示灰色显示。

（十二）单选框

单选框控件与复选控件相似，也是成组地列在窗体上供用户从中进行选择，每个单选框都是由一个圆形框和标题文字组成。圆形框中空白表示这个选择项示被选中，圆形框中有黑点表示选中。单选框与复选框最大的区别在于，在同一组单选框中，只能有一个并且必需有一个单选框被选中。选中一个单选框，则原来被选中的单选框会自动变为示选中状态。与复选框相同，操作单选框也可以运用鼠标单击、快速键或空格键。

应该注意的是，直接放置在窗体上的所有单选框被认为是属于同一组，无论它们的相互位置怎样及排列怎样。要在一个窗体上建坐多组单选框，就要用到容器控件——图片框或者框架，框架比较常用。把要作为一组的所有单选框放置在容器控件里面（不是“控件上面”），就形成为一个单选框组。

1、Name、Left、Top、Width、Height、Visible、Enabled、Caption

2、Style

此属性为0时，单选框以标准样式显示；为1时，以命令按钮样式显示，按下表示选中，弹起表示未选中。

3、Alignment

此属性值为0时，单选框的圆形框在标题文字左边；当此属性为1时，圆形框在标题文字右边。

4、Value

与复选项框不同，单选框的Value属性为逻辑型，它表示单选框的选择状态。这个属性为False时，表示未选中，为True时，表示选中，对于同一组中的多个单选框，应该在设计时把其中之一的Value属性设置为True。

（十三）列表框ListBox

列表框控件与复选框、单选框一样，也是提供选项的控件。列表框控件占用有限的空间，可以提供许多的选项。当列表框不能同时显示所有的选项时，会提供滚动条答应对控件中的选项进行滚动浏览、选择。列表框中的选择项称为“条目（Item）”

1、Name、Left、Top、Width、Height、Visible、Enabled

2、Columns

属性决议列表框中显示条目的列数。这个属性为0时，显示一列，条目多时自动添加垂直滚动条；为1时，仍显示一列，但滚动条是水平的；属性值为n>1时，条目以n列显示，滚动条为水平的。

此属性的值是列表框中的条目数。ListCount属性是只读属性，并且在设计时不可用。

4、List属性

scrh = Me.Height / Screen.TwipsPerPixelY

5、ListIndex属性

这个属性的值是当前被选中条目的序号，列表框中被选中的条目会突出显示，如果第一个条目被选中，则此值为0，第二个条目被选中，此属性值为1，……若列表框支持多选，这个属性的值是最后一个被选中条目的序号。

6、ItemData属性

列表框控件还为每个条目留存了一个长整型数值，但是它不被显示出来，而是留存于ItemData属性中。ItemData属性是一个长整型数组，数组中每个元素对应列表框中的一个条目，元素的个数与列表框中条目数相同，并与list属性的元素一一对应。程序可以使用这个附于每个条目上的长整数留存与相应条目相闭的各种数据。

7、MultiSelect

这个属性决议列表框是否支持多选。具体取值与意义赐教材。

hRgn = CreatePolygonRgn(point(0), 6, 2) ‘第一个参数是最先点，第二个参数是顶点

SmallChange属性的值是当用户单击滚动条和滚动箭头之间的空白区域时，Value属性值的变化量，largeChange属性和SmallChange这两个属性取值范围为1到32767之间的整数，默认时，两个属性都设置为1，一般情形下，滚动条控件的largeChange属性要比SmallChange属性的值要大，但是如果需要，后者大于前者也是答应的。

                                                   

这个属性值表明列表框中当前被选中的条目数。如果没有条目被选中，属性值为0。此属性运行时只读，设计时不可用。

10、Selected

这个属性是一个逻辑数组，与list和ItemData属性相似，Selected属性数组元素个数与列表框中条目相同，每一个元素对应一个条目。数组元素值为True表示相应的条目被选中，False表示未被选中。可以使用这个属性在程序中检测某个条目是否被选中，也可以运用此属性在程序中控制列表框中条目的选定状态。此属性在设计时不可用。

11、TopIndex

此属性的值是列表框控件可见的第一个条目的序号。此属性设计时不可用。

12、Text

此属性留存了列表框当前所选条目的文字。如没有条目被选中，则此属性为空字符串。列表框的Text属性是只读属性。并且在设计时不可用。

13、Sorted

此属性决议列表框中的条目是否排序，属性值为True时，条目按ASCII码与汉字国标码的顺序递增排列；为False时不排序。此属性在运行时只读。

A、-32768至32767      B、0至255        C、-32767至32768    D、0与1

该属性是最新添加到列表框中条目的序号。这个属性为只读，对于排序的列表框稀奇有用。运用AddItem方法往列表框中添加一个条目之后，运用此属性可以获得它的序号，可以运用此序号来为它赋ItemData属性值，或进行其他操作。如果在列表框中没有条目或在新条目被加入之后有条目被删除，那么NewIndex属性为-1。

命令按钮的属性：

组合框就象由一个文本框和一个列表框构成的组合体。所以组合框拥有文本框与列表框大多数常用的属性、方法与事件。

1、Name、Left、Top、Width、Height、Visible、Enabled

（一）、请绘制如下对话框，请写出重要控件的重要属性。

3、组合框的其他常用属性

因为组合框可以看作是文本框与列表框的组合体，因此它具有二者的事件与方法，组合框不支持多选，所以没有MultiSelect、SelCount、Selected、也没有ItemCheck事件。

（十五）驱动列表框（DriveListBox）

C、Dir1.path=File1.path                       D、File1.path=Dir1.driver

16、闭于按钮的Default属性，说法错误的是。                            （     ）

1、Name、Left、Top、Width、Height、Visible、Enabled

2、drive属性

返回或设置运行时选择的驱动器。在设计时不可用

（十六）目录列表框（DirListBox）

                                                          

在运行时，DirListBox 控件显示目录和路径。这个控件可以显示分层的目录列表。例如，可以创建对话框，在所有可用目录中，从文件列表打开一个文件。

标签对象的属性：

2、  path

返回或设置当前路径。在设计时是不可用的。在运行时是只读的。

(十七)文件列表框（FileListBox）

                                                  

13、Picture属性

                                                                          选项对话框

这个属性决议了组合框的样式。属性与意义赐教材。

                                    

1、窗体

Name:略       Caption:页码      Width: 6405    Height: 3210

4、BorderWidth

2、标签Name属性略

标签1：Caption: 位置(&P):    Width: 1095    Height: 255

       Left: 240              Top: 120

标签2：Caption:对齐方式（&A）  Width: 1335   Height:255

     Left:240            Top:960

A、1列              B、5列                C、这个属性不能为0   D、不分列

        Left: 4080        Top:120

3、组合框： Name属性略

 组合框1： Text: 页面底端(页脚)       list: 页面底端(页脚)

（六）图象控件

            Left:240                        页面纵向中央

            Width: 2055                      纵向内侧

            Height: 300                      纵向中侧

组合框1： Text: 右侧                  list: 右侧

            Top: 1320                       左侧

4、Value

            Width: 2055                      内侧

参数2指定了按钮的个数，图标的标式，默认按钮以及模态性。它可所以两个数字的和，例如要显示yes、No及Cancel三个按钮同时还要显示 Warning Message 图标。可以用51（51=3+48）

4、复选框：Caption:首页显示页码(&S)   left: 240

           Top: 1800    Width:  2175    Height: 255

5、按钮：略

6、图象框：略

参数4，可选的。数值表达式，成对出现，指定对话框的左边与屏幕左边的水平间隔。如果省略，则对话框会在水平方向居中。

复选框是提供选择项的控件，这种控件的典型中观是下小的方框后接一串文字。如果文框中有一个对钩，表明这一项被选中，如果方框中为空白，则表示示被选中，除此之中，复选框另有一个选中的中间状态，这时，方块是灰色的并有对钩。

 

                   

（二）、添加预定义的窗体

如果需要添加与数据库连接、ODBC登录、Web浏览、“闭于”对话框、对话框、屏慕提醒、日积月累、登录对话框、选项对话框等VB预定义的窗体时，可以经由过程VB的添加窗体命令来添加，然后进行修改。如下图：

CommonDialog1.ShowHelp

与其它控件相同。

h = CreateEllipticRgn(0, 0, scrw, scrh)

                                                                      登录对话框

                                

                                                           ODBC登录对话框

                      

                                                                    Web浏览窗体

Private Const LWA_ALPHA = &H2

                                                                         闭于对话框

10、形状控件所显示的图形不可能是。                                  （     ）

VbExclamation

PictureBox 控件可以显示来自位图、图标或者元文件，以及来自增强的元文件、JPEG 或 GIF 文件的图形。如果控件不足以显示整幅图象，则裁剪图象以适应控件的大小。这个控件可以作为其他控件的容器，可以在这个控件内部绘制按钮、文本框、标签、甚至是另一个图片框。

                                                                          屏幕展示窗体

                                  

                                                                      日积月累窗体

                            

三、界面设计真例

这些对话框有的甚至添加了完整的代码，功能相当完美了。程序设计职员只要添加这些对话框稍做修改就可以了。

（三）、运用预定的对话框

A、Min            B、SmallChange         C、LargeChange       D、Change

运用消息框函数msgbox可以在屏幕上产生一个消息对话框，对话框中显示一条信息和最多三个按钮，还可以有一个图标。如以下两个图就是消息框的两种形式。

                 

Msgbox函数的语法为：

显示 OK 及 Cancel 按钮。

此属性决议形状内部的填充样式。取值与意义详赐教材。

常数

值

point(1).x = 400: point(1).y = 30

VbQuestion

vbOKOnly

2、知道VB有那些版本。

只显示 OK 按钮。 此属性决议窗体的边框类型，边框类型决议了窗体标题栏与可缩放性。有0——5共六个值，每个值的意义赐教材。

VbOKCancel 2、AutoSize 1

Top:480                         页面顶端（页眉）

VbAbortRetryIgnore Me.Show 2 　　SetLayeredWindowAttributes hwnd, 0, 200, LWA_ALPHA 显示 Abort、Retry 及 Ignore 按钮。 A、Path             B、Dir                  C、Driver             D、File

VbYesNoCancel

3

显示 Yes、No 及 Cancel 按钮。

窗体是使用VB设计程序的界面的一个容器，容器内部可以加入其他控件，在VB中其他控件都需用创建于窗体内部。要创建好窗体，需要设置好窗体的属性。

VbYesNo

在VB的API阅览器中，点击文件加载win32API文本文件,然后在查找对话框中分别填入这两API函数的名子，就可以找到如下声明，把这两个声明考到要设计成圆或椭圆的窗体的声明段中。然后再在Form_load事件里填加如下代码就可以完成圆或椭圆的设计了。

4、WordWrap属性

VbRetryCancel   CommonDialog1.ShowColor                                                                     留存对话框

VbCritical

16 vbDefaultButton3 Dim h As Long, d As Long

C、这个属性指示的是一组复选框的个数，程序动行时不可以更改。

这个属性值为0时，复选框的方框在标题文字左边，当此属性为1时，方框显示在标题文字右边。 32

显示 Warning Query 图标。                                768

对话框

48

显示 Warning Message 图标。

1、Name、Left、Top、Width、Height、Visible、Enabled、Caption 1、Name、Left、Top、Width、Height、Visible、Enable 64 代码二：形状不规则的窗体，把念要去掉的地方用纯蓝色画上。使用如下代码就可以做一个不规则窗体了。 Private Declare Function CreateEllipticRgn Lib "gdi32" Alias "CreateEllipticRgn" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

C、不能包括标点符号和空格。               D、不能运用下划线。 vbDefaultButton1

A、类               B、事件                C、属性               D、方法

vbDefaultButton2

A、直接给picture属性赋值就可以了。         B、程序运行时不能修改这个属性。 2、Style 第二个按钮是缺省值。 30、以下哪个属性可以设置列表框是否支持多选。                游民星空;                              （     ）   2、Borderstyle属性

512

第三个按钮是缺省值。

22、滚动条的Max属性的取值范围是。                                 （     ）

Dim h As Long, d As Long

2、多边形窗体的制作方法 组织教学:师生互认 此属性值为0时，图象控件无边框，为1时，控件有边框。

vbApplicationModal

0

利用程序强制返回；利用程序一直被挂起，直到用户对消息框作出响应才继续工作。

vbSystemModal

9、Width属性与Height属性

系统强制返回；全部利用程序都被挂起，直到用户对消息框作出响应才继续工作。

vbMsgBoxHelpButton

16384

参数1是一个字符串表达式，指定消息框显示的文字，如果要使消息框在某处换行，可以用回车符Chr(13)或换行符Chr(10)。

VbMsgBoxSetForeground

65536

指定消息框窗口作为前景窗口

vbMsgBoxRight

当文本框的Multiline属性为True时，ScrollBars属性值决议文本框有无水平或垂直滚动条。Multline属性为False时，文本框无滚动条，ScrollBars属性的值无意义。

文本为右对齐 与窗体的属性相同 VbInformation 12、如果让一个图象框中图象大小放缩到图象框的大小，需要修改它的哪个属性（     ） 1048576

指定文本应为在希伯来和阿拉伯语系统中的从右到左显示 A、图片框或框架     B、按钮或图象框   C、图形或图象框      D、组合框或列表框 参数3，是设置显示在消息框标题栏中的文字。 2、输入框（InputBox） 输入框是VB中另一个预定义对话框，它的作用是提醒用户输入一个字符串。它有一个用来输入字符串的文本框。如下图：                             这个输入框的运用格局如下： 变量名=input(参数1，参数2,参数3，参数4，参数5，参数6，参数7) 参数1，必需的。作为对话框消息出现的字符串表达式。prompt 的最大长度大约是 1024 个字符，由所用字符的宽度决议。如果 prompt 包含多个行，则可在各行之间用回车符 (Chr(13))、换行符 (Chr(10)) 或回车换行符的组合 (Chr(13) & Chr(10)) 来分隔。 参数2，可选的。显示对话框标题栏中的字符串表达式。如果省略这个参数，则把利用程序名放入标题栏中。 参数3，可选的。显示文本框中的字符串表达式，在没有其它输入时作为缺省值。如果省略，则文本框为空。 图象控件用来在窗体上显示留存在图形文件中的图象。它支持的图形文件格局有：位图文件（bmp）、Windows元文件（wmf）、增强型文件(emf)、图标文件(ico,cur)和jpeg格局与gif格局的图形文件。 参数5，可选的。数值表达式，成对出现，指定对话框的上边与屏幕上边的间隔。如果省略，则对话框被放置在屏幕垂直方向距下边大约三分之一的位置。

参数7，可选的。数值表达式，由帮助文件的作者指定给某个帮助主题的帮助上下文编号。如果已提供 本参数，则也必需要提供 参数6。 （四）、运用标准对话框 在VB的集成编程环境下点击工程菜单，点击部件，在弹出的对话框中选择Microsoft Common Dialog Control6.0 前面的复选框，如下图，然后点利用，点确定。 9、SelCount

使用这个控件可以给一个窗体添加一个标准对话框，可以使用代码把标准对话框打开。例如，在窗体Form1上添加了一个标准对话框Commondialog1，然后在Form1上再添加三个按钮，Command1，Command2，Command3，Command4，Command5，Command6。然后在这三个按钮的单击事件过程中分别添加如下代码： End Sub CommonDialog1.ShowFont B、一个窗体里只能有一个按钮的这个属性设为True。 CommonDialog1.ShowOpen Basic=Beginners All-Purpose Symbolic Instruction Code CommonDialog1.ShowSave 运行时，单击这些按钮就可以打开各种标准对话框颜色对话框、字体对话框、帮助对话框、打开文件对话框、打印机对话框、与留存对话框，如下图                                   颜色对话框                                                  帮助对话框 Private Const GWL_EXSTYLE = (-20)                                                                      打开文件对话框                                                                                                        打印机对话框 Visible属性表明窗体是否可见，它的值为逻辑型（在此解释什么是是逻辑型），只能是True或False之一。属性为True时，窗体可见，为False时，窗体不可见，但却存在内存之中。这个属性只有在运行时生效，不运行时，虽设置为False，仍然可见。

这个属性设置窗体（或对象）的是否能够被移动。 1、圆形或卵形窗体的制作方法    圆形或卵形窗体可以经由过程API函数CreateEllipticRgn和SetWindowRgn来真现，根据参数的不同，可以设计成椭圆，也可以设计成圆。           3、学会用VB来创建各种程序界面。 4 A、一组单选框中，只能有一个单选框被选择。 Private Declare Function SetWindowRgn Lib "user32" Alias "SetWindowRgn" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long   Private Sub Form_Load()   h = CreateEllipticRgn(0, 0, 300, 300) d = SetWindowRgn(Me.hWnd, h, True) End Sub 修改CreateEllipticRgn(0, 0, 300, 300)，这个函数的四个参数就可以设计成需要的圆或椭圆的窗体了。 如果要按窗体的上边、下边、左边、右边为界，制作与这四个边相切的椭圆窗体，可以运用以下代码： Private Sub Form_Load() 显示 Critical Message 图标。 此属性真质上是一个一维字符串数组，数组下标的下界为0，上界为ListCount属性值减1。每个数组元素的值对应列表框中一个条目的显示文字，下标为0的元素对应列表框中第一个条目，下标为ListCount-1的元素对应列表框中的最后一个条目。 2、Default属性 scrw = Me.Width / Screen.TwipsPerPixelX Dim scrw As Long, scrh As Long                                                  导入:由计算机程序导入。 5 第四个按钮是缺省值。 多边形窗体的制作方法，可以经由过程API函数CreatePolygonRgn函数与SetWindowRgn函数来解决，这两个函数的声明方法，与上文相同，也可以直接把代码输入到窗体的代码窗口中。 窗体代码如下： 在运行的过程中，如果此属性为True，当控件所显示的图象大小与控件大小不同时，会自动改变控件的大小来与图象的大小一致；如果属性值为False（默认值）不会自动调整控件大小，图片框控件不会对其显示的图象进行缩放，这一点与图象控件不同。 point(2).x = 500: point(2).y = 180 Private Type POINTAPI    x As Long 1、Name、Left、Top、Width、Height、Visible End Type   Private Sub Form_Load() Dim hRgn As Long Dim iRes As Long Dim point(0 To 5) As POINTAPI point(0).x = 0: point(0).y = 0        ‘设置多边形的顶点坐标， 描述 Private Declare Function CreatePolygonRgn Lib "gdi32" (lpPoint As POINTAPI, ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long point(3).x = 330: point(3).y = 360 point(4).x = 50: point(4).y = 200 point(5).x = 40: point(5).y = 100 8、Style ‘目，第三个参数是填充模式，一般要大于0。 iRes = SetWindowRgn(Me.hWnd, hRgn, True)                               3、透明窗体的设计 在VB中，没有设置窗体为透明的属性，如果要设置一个窗体为透明的话，需要用用到API函数GetWindowLong, SetWindowLong, SetLayeredWindowAttributes。这三个函数与常量的声明如下： Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long Private Const WS_EX_LAYERED = &H80000                                                           Private Const LWA_COLORKEY = &H1 最后一个API函数SetLayeredWindowAttributes就是设置窗体为透明的API函数，第一个参数hwnd是透明窗体的句柄，crKey为颜色值，bAlpha是透明度，取值范围是[0,255]，dwFlags是透明方式，可以取两个值：当取值为LWA_ALPHA时，crKey参数无效，bAlpha参数有效；当取值为LWA_COLORKEY时，bAlpha参数有效而窗体中的所有颜色为crKey的地方将变为透明－－这个功能很有用：如果要设计不规则形状的窗体，可以把不要的地方设计成一个纯色，然后用这个函数把这个纯色设置成透明的就可以了。比上文的多边形窗体还要方便。 代码一：一个半透明窗体 Private Sub Form_Load() Dim rtn As Long rtn = GetWindowLong(hwnd, GWL_EXSTYLE) rtn = rtn Or WS_EX_LAYERED 　　SetWindowLong hwnd, GWL_EXSTYLE, rtn

18、闭于单选框，以下说法不正确的是。                                 （    ）   6、Appearance属性 Private Sub Form_Load() 　　Dim rtn As Long 滚动条分为水平滚动条（HscrollBar）与垂直滚动条(VscrollBar)两种，两种控件除了类型名不同，放置的方向不同中，其他都一样。滚动条是由两端带有箭头的滚动按钮、中间的滚动框（或称滚动块）以及剩余的空白区域组成的。它重要用来用直观的方法来调整一个数据的大小。 　　rtn = GetWindowLong(hwnd, GWL_EXSTYLE) 3、Min、Max属性 　　SetWindowLong hwnd, GWL_EXSTYLE, rtn SetLayeredWindowAttributes hwnd, &HFF0000, 0, LWA_COLORKEY '将扣去窗口中的蓝色 End Sub 习题： 一、选择题（单选，每空1分） 1、能够指示一个对象所具有的性质、特征的是这个对象的。               （     ） 0 2、能够让CPU直接识别并且能够实施的言语是。                        （     ） A、机器言语         B、下级言语          C、汇编言语        D、源程序 教学难点：API函数的运用。 A、学习版           B、工业版            C、专业版          D、企业版 A、必需以字母开头。                       B、不能多于40个字符。 A、Microsoft Windows95或更新版本           B、Microsoft Office 2000以上版本

5、以下哪个选项不是VB安装的硬件条件。                             （     ） A、CPU为486DX/66 MHz 或更下的处理器       B、Microsoft Windows支持的VGA或更下分辩率的显示器 C、鼠标或其他定点装备 D、独坐显卡 6、以下哪个选项不是给对象Name属性赋值的注意事项                   （     ） 4、以下哪个选项是VB安装的必需条件。                               （    ）

7、以下哪个属性是文本框所没有的                                     （     ） A、Name属性        B、Text属性       C、Caption属性       D、Visible属性 8、以下哪个控件可以作为其他控件的容器。                             （     ）

9、以下哪组属性可以设置一个控件在窗体上的位置。                     （     ）

A、Width  Height   B、left  top       C、Visible  Enable    D、Name  Caption

End Sub

A、圆               B、椭圆           C、圆角正方形         D、等边三角形

4、MultiLine属性

A、毫米             B、缇             C、象素               D、厘米

C、Microsoft Media Player 9.0以上版本        D、Microsoft windows update

A、Visible          B、Enable         C、stretch            D、Picture

13、以下哪个属性是只读属性，即在程序运行时，不能修改的属性。          （    ）

A、Caption         B、Text           C、Name             D、BorderStyle

MinButton: False     MaxButton:False     BorderStyle:3—Fixed Dialog

256

C、程序运行时也得手动修改这个属性。         D、运用loadpicture函数

15、如果让文本框显示多行文本，以下哪个属性值要修改成True。           （     ）

A、Text            B、MultiLine          C、MaxLength         D、Appearance

在运行时，由于有 DriveListBox 控件，所以可选择一个有效的磁盘驱动器。该控件用来显示用户系统中所有有效磁盘驱动器的列表。可以创建对话框，经由过程它从任一可用驱动器的磁盘文件列表中打开文件。

A、Default的值，只能接受布尔型。        

本地版，学习版，专业版，企业版。

C、一个窗体里只能有一个按钮的这个属性设为False。

D、窗体里有一个按钮的这个属性设为True，当按回车键的时间，启动这个按钮的单击事件。

A、这个值指示复选框的状态，为0时表示未选中；为1时表示选中；为2时表示不可用。

B、这个属性指示的是复选框的值，取值范围0至255。

 

D、这个属性是复选框的附加属性，可以为程序且则存储一个整形数。

End Sub

显示 Information Message 图标。

B、一个窗体上，可以有几组单选框，给单选框分组可以用框架也可以用图片框。

C、单选框也可以设置成乒乓键。按下表示选中，弹念表示未选中。

D、单选框不可以设置快速键。

19、闭于单选框的Value属性，以下语言正确的是。                     （     ）

A、单选框的Value属性只能接受布尔值，True表示选中，False表示未选中。

B、单选框的这个属性能接受三个值，0表示未选中，1表示选中，2表示不可用。

C、单选框的Value属性只能接受布尔值，True表示未选中，False表示选中。

D、单选框的这个属性能接受三个值，0表示选中，1表示未选中，2表示不可用。

20、单击滚动条两端的按钮一下，滚动条的值改变量要设置的属性是。      （     ）

A、Min            B、SmallChange         C、LargeChange       D、Change

21、单击滚动条两端的空白一下，滚动条的值改变量要设置的属性是。      （     ）

1、消息框（msgbox）

vbDefaultButton4

3、ListCount

23、如果一个文本框的PassWordChar属性值设为“8”，然后给这个文本框输入1234567，那么在文本框中显示的是。                                             （      ）

A、1234567              B、888888        C、8                 D、*******

24、如果要设置一个控件的字体，字号，那么要设置这个控件的哪个属性。  （      ）

A、设置窗体的Font属性。  B、直接在格局里设置。  C、Caption      D、Font

25、设置一个标签边框，需要设置这个控件的什么属性。                  （      ）

A、Caption          B、AutoSize              C、BorderStyle       D、WordWrap

26、如果要给窗体添加一个标准的打开文件对话框，要给工程添加一个什么部件（     ）

A、Microsoft Comm. Control 6.0              B、Microsoft Common Dialog Control 6.0

C、Microsoft Windows Common Control 6.0    D、Microsoft Calendar Control 12.0

27、如果在一个窗体里添加了一个CommonDialog控件，控件的名字是CommonDialog1，那么，以下那个语句能打开一个打开文件的标准对话框。                   （     ）

A、CommonDialog1.ShowColor              B、CommonDialog1.ShowOpen

C、CommonDialog1.ShowPrinter             D、CommonDialog1.ShowSave

28、如果在一个窗体里添加了一个CommonDialog控件，控件的名字是CommonDialog1，那么，以下那个语句能打开一个打印机设置的标准对话框。                 （     ）

A、CommonDialog1.ShowColor              B、CommonDialog1.ShowOpen

C、CommonDialog1.ShowPrinter             D、CommonDialog1.ShowSave

29、运用InputBox()函数为一个变量输入一个数据的话，InputBox()函数能接受的数据类型为：   （     ）

A、数值型数据        B、布尔型数据         C、字符串型数据     D、字符型数据

A、MultiLine          B、SelText             C、Locked           D、MultiSelect

属性决议形状控件以什么形状显示。值与意义赐教材。

参数6，可选的。字符串表达式，识别帮助文件，用该文件为对话框提供上下文相闭的帮助。如果已提供 本参数，则也必需提供 参数7。

32、如果念制作一个工具栏，那么最好的控件是。                                              （     ）

A、图片框           B、图象框              C、框架              D、窗体

33、以下哪个属性能设置驱动器路径                                                                   （     ）

A、Path             B、Dir                  C、Driver             D、File

８、Ａlignment 属性

                                                                     

35、窗体上有一个目录列表框Dir1与一个文件列表框File1，哪个语句可以让文件列表框显示目录列表框选定的目录里的文件。                                                                                                                    （     ）

A、不能真现                                B、File1.path=Dir1.path

                                                       

作业：      复习常用控件的常用属性。

复习制作一个程序界面的方法。

            附加：把握特效界面的制作方法。

小结：本次课重要学习了使用VB程序来制作程序界面的方法，在制作程序界面的时间，一定要学会运用各种控件熟练利用控件的属性。

14、NewIndex