VB命令按钮常用属性.docx

VB命令按钮常用属性.docx

《VB命令按钮常用属性.docx》由会员分享，可在线阅读，更多相关《VB命令按钮常用属性.docx（20页珍藏版）》请在冰点文库上搜索。

VB命令按钮常用属性

VB命令按钮常用属性

命令按钮通常用来在它的单击事件中完成一种特定的程序功能。

尽管其他控件的单击事件也可以做同样的事情，但使用命令按钮已经成为Windows应用程序的风格。

熟悉Windows的人都知道，单击命令按钮就会完成程序提供的一个功能。

因此，向用户提供的服务功能通常都以命令按钮的形式出现在用户界面中。

常用属性

命令按钮的基本属性：

Name、（：

aption、Height、Width、Top、Left、Enabled、Visible、FontName、FontSize、FontBold、FontI—talic、FontUnderline等。

命令按钮特有属性：

Default、Cancel、Style、Picture、DownPicture、DisabledPicture、MaskColor、IJseMaskColor和ToolTipText属性。

（1）Default属性

如果一个命令按钮的Default属性设置为Tme，则不论焦点在窗体的哪个控件上，只要用户按Enter键，就产生这个按钮的单击事件。

在一个窗体中，只允许一个命令按钮的Default属性被设置为True，当把一个命令按钮的Default属性设置为‘Frue，会自动将其他命令按钮的Default属性设为False。

（2）Cancel属性

如果一个命令按钮的Cancel属性设置为True，则不论焦点在窗体的哪个控件上，只要用户按Esc键，就产生这个按钮的单击事件。

在一个窗体中，只允许一个命令按钮的Cancel属性被设置为True，其他命令按钮的Cancel属性将自动设为False。

本人首发中国自学编程网，通常在该按钮的Click事件中完成的是退出或取消之类的操作。

（3）Style属性

Style属性决定命令按钮中是否可以显示图形。

如果设置为0，则不显示图形只显示标题；如果设置为1，则可同时显示文本和图形。

（4）Picture属性

该属性可以给命令按钮指定一个图形。

只有Style属性的值设置为1时（图形方式），Picture属性才有效，否则Picture属性无效。

（5）DownPicture属性

该属性用来设置控件被单击并处于按下状态时，在控件中所显示图形，可用于复选框、单选按钮和命令按钮。

只有当Style属性设置为1时，此属性才有效，否则无效。

如果没有设置DownPicture属性的值，则当按钮被按下时，将显示赋值给Picture属性的图形。

（6）DisabledPicture属性

该属性用来设置对一个图形的引用，当命令按钮禁止使用（即Enabled属性被设置False）时，在按钮中显示图形。

只有当Style属性设置为1时，此属性才有效，否则无效。

（7）MaskColor。

和UseMaskColor属性

如果要使命令按钮中图像的某些颜色是透明的，则要把MaskColor属性设置为希望透明的颜色，然后把UseMaskColor属性设置为’rrue。

当UseMaskColor属性为False时，MaskCloor属性指定的屏蔽色不起作用。

在设计阶段可以使用Picture、DownPicture、DisabledPicture属性，也可以通过doadPicture（）函数装入图形文件。

（8）ToolTipText属性

该属性是工具提示功能，运行时，当光标在对象上停留约1秒时，该字符串将显示在对象下面的小矩形框中。

如果用图形作为对象的标签，使用此属性可以减少解释对象的文字。

鼠标事件与键盘事件

SuBForm—MouseMove（ButtoilAsInteger，ShiftAsInteger，xAsSingle，YAsSingle）

这3个鼠标事件过程具有相同的参数，它们把鼠标的信息传给过程。

（1）Button：

被按下的鼠标按钮，可以取以下3个值。

（2）Shift：

表示Shift、ctrl和Alt的状态。

如表6．7所示。

（3）x，Y：

这两个值对应于当前鼠标的位置，采用ScaleMode属性指定的位置。

说明：

（1）有些鼠标只有2个按键，或者虽有3个按键，但w：

indows鼠标驱动程序不能识别中间按键。

在这种情况下，表6．6中的后4个参数值不能使用。

（2）对于单按鼠标器，它的按键定义为左按键。

如果鼠标带两个按键，并使用windows的控制面板交换了鼠标器的左、右键，那么，当按右按键时，VB认为是按了左按键。

例如，如果按住Ctrl键，然后在坐标为（2000，3000）的点上按下鼠标器右键，则立即调用Forul—MouseDown过程，释放鼠标右键时，调用Form—MouseUp过程。

此时。

Button、Shift、x、Y这4个参数的值分别为2、2、2000和3000，中国自学编程网，。

（3）Shift是转换键，它指的是3个转换状态，包括Shift、ctrl和Alt。

这3个键分别以二进制方式表示，每个键用三位，即：

Shift键为001，Ctrl键为010，Alt键为100。

当按下Shift键时，Shift参数的值为00l（十进制数1），当按下ctrl键时，Shift参数的值为010（十进制数2），而按下Alt键时，Shift参数的值为100（十进制数4）。

如果同时按下2个或3个转换键，则Shift参数的值即为上述两者或三者之和。

因此，Shift参数共可取8种值。

VB中建立多窗体

1．建立多窗体的操作步骤

建立多窗体的操作步骤如下：

（1）添加新窗体，在这个窗体上添加控件，分别设置有关属性值，再按要求编写程序。

（2）选择“文件”菜单下的“Forml另存为（A）…”命令，保存这个文件，设为Forml。

（3）再选择“工程”菜单下的“添加新窗体”命令，则能够在同一个工程文件中再建立起一个新窗体。

设置有关属性；将这个窗体保存为另一个文件Form2。

按照这种方法，能够在一个工程文件中建立多个窗体，中国自学编程网，。

（4）选择“文件”菜单下的“工程另存为（E）…”命令，保存工程文件，即把Forml、Form2保存在一个工程中。

2．启动窗体

如果一个工程中包括多个窗体，如果没有特别的设定，应用程序的第一个窗体默认为启动窗体，也就是当应用程序开始运行时，先运行这个窗体。

如果要改变系统默认的启动窗体，可以通过“工程属性”对话框进行设置，其操作步骤如下：

（1）在“工程”菜单中，选择“属性”命令，屏幕出现“工程属性”对话框，如图6．16所示。

（2）在对话框中选择“通用”选项卡。

（3）在“启动对象”的下拉列表框中，选择新的启动对象，单击“确定”按钮，完成新设定的窗体为启动窗体。

VB多窗体

在集成开发环境中，使用“工程＼添加窗体”菜单，就可以在一个工程中使用多个窗体。

被设置为启动对象的窗体在程序运行之初会被自动加载和显示，但是只能在工程属性中设置一个窗体模块为启动对象。

当启动对象是SubMain过程时，要显示窗体或当显示一个窗体后再显示其他的窗体，就要考虑窗体的加载、显示、隐藏和卸载问题，中国自学编程网，。

6．3．1加载窗体

加载窗体使用Load语句。

格式：

IJoad<窗体名>

功能：

加载窗体到内存。

说明：

加载窗体只是将这个窗体对象装入内存，但并不显示这个窗体对象。

此语句只是需要在初始化时加载所有的窗体并在以后需要它们的时候显示。

当VB加载窗体时，先把窗体的各属性设置为初始值，再执行Load事件。

6．3．2显示窗体

显示一个窗体就要把它的Visible属性设置为True。

显示一个窗体还可以用窗体对象的Show方法。

格式：

[窗体名．]Show

功能：

将窗体显示在屏幕上。

说明：

如果在调用一个窗体的Show方法时，指定的窗体尚未加载，VB将自动装载该窗体。

6．3．3隐藏窗体

把一个窗体的Visible属性设置为False或使用它的Hide方法，就可以把窗体隐藏。

格式：

[窗体名．]Hide

功能：

将窗体隐藏起来。

说明：

隐藏窗体并不把窗体从内存中卸载，只是变得不可见。

在使用Visible属性或Hide方法隐藏窗体时，如果窗体尚未加载，则VB会加载该窗体，但不会让它显示出来。

6．3．4卸载窗体

窗体用完后可以卸载窗体，要用unload语句。

unload语句的语法格式与Load语句相同。

格式：

unLoad<窗体名>

功能：

将窗体从内存中卸载下来。

说明：

当卸载一个窗体时它的子窗体也会被卸载。

VB对象的基本属性

点击:

发布日期：

2007-11-2122:

04:

00进入论坛

（1）Name名称属性

该属性是所有对象都具有的属性，是所创建的对象的名称，所有的控件在创建时由VB自动提供一个默认名称。

Name名称属性在属性窗口的“名称”栏可以进行修改。

该属性在运行时是只读的。

中国自学编程网，在程序中，对象名称是作为对象的标识在程序中被引用的，不会显示在窗体上。

（2）caption标题属性

该属性是对象的标题，窗体标题显示在窗口的标题栏中，控件的标题就显示在控件中。

新添加对象的c印tion属性被自动设置为Name属性的内容。

对某些控件，可在设置标题的字符串中用符号&和1个字母，为控件指定1个访问键，访问键显示在控件中时带有下划线。

在按下Alt键同时按下控件的访问键与用鼠标左键点击这个控件的效果是相同的，控件将获得输入焦点。

（3）width、Height与L,eft、Top属性

width和：

Height属性分别表示对象的宽度和高度，即对象的大小。

I,eft和Top属性分别是控件的左边到其容器的左边，控件的上边到其容器的上边的距离，即对象的位置。

对于窗体，Top表示窗体到屏幕顶部的距离，Left表示窗体到屏幕左边的距离。

1个控件在窗体中的位置。

vB默认的坐标系统的x轴是从左向右的，Y轴是从上向下的；默认的长度单位是缇（1英寸=1440缇，每厘米大约567缇）。

Left和Top分别是对象的左上角的横坐标和纵坐标。

窗体是容纳其他控件、显示文本和图形的区域，是整个窗体中去掉窗体的边框和窗体的标题后的区域。

窗体的ScaleLeft属性和ScaleTop属性分别是这个区域的左上角的坐标，对标准坐标系而言它们总是0；ScaleWidth属性和Scale—Height属性分别是这个区域的宽度和高度。

在默认坐标系中，它们的单位是缇。

我们已经知道，窗体对象可以包含控件，有些控件（如PictureBox、Frame控件）中也可以包含控件对象。

能够包含控件的对象叫做容器。

包含在容器中的控件的Left和Top属性是控件在容器中的左上角坐标。

（4）Visible属性

该属性决定对象是否可见。

true：

程序运行时控件可见；False：

程序运行时控件隐藏起来，不可见，但控件本身还存在。

（5）Enabled属性

该属性决定对象是否是有效。

True：

允许用户操作，并对操作作出响应；False：

禁止用户操作，呈暗淡色。

（6）Appearance属性

该属性是窗体与有边框的控件都具有的一个属性，它的值决定了边框的绘制样式。

它的取值有两个：

0一表示以平面样式绘制，没有立体效果；1一表示以立体样式绘制边框。

（7）BorderStyle属性

该属性用来设置窗体和控件边框样式。

BorderStyle属性在运行时是只读的。

0一None：

控件周围没有边框；1一FixedSingle：

控件带有单边框。

（8）Font属性

该属性改变文字的外观，其“字体”。

FontName属性是字符型，决定了控件上正文的字体。

FontSize属性是整型，决定了控件上正文的字体大小，以磅为单位。

FontBold属性是逻辑型，表示控件上正文是否是粗体。

FontItalic属性是逻辑型，表示控件上正文是否是斜体。

FontStrikethru属性是逻辑型，表示控件上正文是否加删除线。

Fontunderline属性是逻辑型，表示控件上正文是否带下划线。

（9）ForeColor属性

该属性用来设置对象的前景颜色，即正文和作图时的颜色。

其值是1个十六进制常数，用户可以在调色板中直接选择所需要的颜色。

（10）BackColor·属性

该属性用来设置对象的背景颜色，即正文以外的显示区域的颜色。

（11）nllColor属性

该属性用来设置填充封闭图形所用的颜色。

（12）BackStyle属性

该属性用来设置背景风格。

0一Transparent：

透明显示，即控件背景颜色显示不出来，若控件后面有其他控件或背景，均可设置为透明显示；1一Opaque：

不透明，此时可为控件设置背景颜色,中国自学编程。

（13）ALignment属性

该属性决定控件上正文水平对齐方式。

0一LeftJustify：

正文左对齐；1一RigthJustify：

正文右对齐；2一Center：

正文居中。

（14）AutoSize属性

该属性决定控件是否根据正文自动调整大小。

Tme：

自动调整大小；False：

保持原来设计时的大小，正文若太长多余部分会被隐藏掉。

默认为False。

（15）wordWarp属性

该属性决定文本在垂直方向上是否改变显示区域的大小。

WordWarp属性必须是在AutoSize属性设置为True时才有效。

True：

表示按照文本和字体大小在垂直方向上改变显示区的大小，而在水平方向上不发生变化；：

False：

表示在水平方向上按正文长度放大和缩小；在垂直方向上以字体大小来放大或缩小显示区。

（16）Tag属性

每一个窗体和控件都有1个Tag属性，VB内部并不使用这个属性，只是在程序中利用它来标识对象实例。

（17）ToolTipText属性

这是每一个可视控件都具有的属性，它用于返回或设置当鼠标在控件上暂停时显示的文本（提示信息）。

（18）TabIndex属性

该属性决定了当用户按Tab键时，焦点在各个控件转移的顺序。

焦点是接收用户鼠标或键盘输入的能力。

当对象具有焦点时，可接收用户的输入。

在win—dows环境下，可同时运行多个应用程序，有多个窗口，但焦点只能有一个。

焦点能由用户或应用程序设置。

当在窗体上有多个控件时，对于大部分控件，VB会给它分配1个Tab键顺序，所谓Tab键顺序，就是按Tab键时，焦点在各个控件上移动的顺序。

一般，其顺序与控件建立的顺序相同，若要改变此顺序，可以设置控件的TabIndex属性，TabIndex属性决定了它在’tab中的位置。

按默认值规定，第1个建立的控件的TabIndex属性值为0，第2个为1，依此类推。

在设计时用属性窗口或在运行时用代码可改变控件的TabIndex属性，中国自学编程网，

。

运行时，不可见或无效的控件以及不能接收焦点的控件（如Frame、Lablel等控件），仍保持在’Yab键顺序中，但切换时要跳过这些控件。

（19）TabStop属性

TabStop属性返回或设置1个值，该值用来指示是否能够使用Tab键将焦点从另一个对象移动到这个对象上。

当1个控件的TabStop属性设置为False时，用Tab键就不能使该控件获得输入焦点，只有那些可以获得输入焦点的控件才具有该属性。

VB对象属性的分类

对象的属性分为3种：

只读属性、运行时只读属性和可读写属性。

只读属性：

这种属性无论在程序设计时还是在程序运行时都只能从它们读出信息，而不能给它们赋值。

运行时只读属性：

这种属性在设计程序时可以通过属性窗口设置它们的值，但在程序运行时不能再改变它们的值。

可读写属性：

这种属性无论在设计时还是运行时都可读写。

每一个对象都有自己的属性，如名称（Name）、标题（caption）、是否可见（Visible）等。

在属性窗口中可以看到所选对象的属性设置。

不同的对象有许多相同的属性；但不是所有的对象都有下面介绍的属性，例如文本框就没有caption属性。

改变对象的属性时，其行为和外观相应地发生变化。

属性的设置，可以在设计时通过属性窗口设置；也可以通过代码窗口在编程时设置；而有些属性则在运行时是只读的，自学编程网整理发布，。

vb建立删除文件夹

’首先要[工程]－[引用]MicrosoftScripttingRuntime

PrivateSubCommand1_Click（）

DimfsoAsNewFileSystemObject

Iffso.FolderExists（"c:

abc"）Then

MsgBox（"文件夹已存在"）

Else

fso.CreateFolder（"c:

abc"）

EndIf

EndSub

PrivateSubCommand2_Click（）

DimfsoAsNewFileSystemObject

IfNotfso.FolderExists（"c:

abc"）Then

MsgBox（"文件夹不存在"）

Else

fso.DeleteFolder（"c:

abc"）

EndIf

EndSub

VB程序中如何产生出另一个Exe文件？

要实现这个目的，必须符合以下几个条件：

第一、编写这样的程序时，具备欲生成的Exe文件

第二、事先知道欲生成的Exe文件大小

其实这两个条件可以说不是条件，但确实很重要。

为了叙说方便，将发行的程序称作APP-1.Exe，要生成的文件叫APP-2.Exe，以下是具体步骤：

第一步，准备好APP-2.Exe，这里我使用VB写了一个什么都不做程序，编译成APP-2.Exe。

第二步，右键单击单击APP-2.Exe，选择属性，记下文件大小。

注意，应记下以字节为单位的具体数字，而不是多少ｋ。

这样就具备了前边说的两个条件。

第三步，新建工程APP1，新建资源文件加入工程，在资源文件编辑器中添加自定义资源（CUSTOM），资源号使用默认的101。

值得注意的是，每个资源号对应的资源项对资源大小的要求是有限制的，我记得时64K，因此如果APP-2.Exe的大小如果大于这个数的话，就要麻烦一些。

如果是这样，我们的写另一个程序，把APP-2.Exe一个字节一个字节的读出来，每64K生成一个文件，然后再把这些文件分别写道资源文件的101、102......资源项中，代码也要作相应的修改。

第四步，为APP-1.Exe编写代码，使其读取资源文件的数据，生成APP-1.Exe。

代码如下：

PrivateConstFILESIZEOFAPP2=20480´我生成的APP-2.Exe大小是20480Byte

PrivateSubcmdOK_Click（）´单击按钮cmdOK运行代码

DimAPP2（）AsByte´APP2是个Btye类型和数组

DimCounterAsLong

APP2=LoadResData（101,"CUSTOM"）´将自定义资源中101号资源读入数组

´注意，微软的帮助中对加载定义资源的说明有误，硬是资源标识为"CUSTOM"而非数字

　IfDir（App.Path&"\APP-2.Exe"）<>""Then´第一次按cmdOK有效

MsgBoxApp.Path&"\APP-2.Exe已经存在!

"

ExitSub

EndIf

OpenApp.Path&"\APP-2.exe"ForBinaryAs#1´以二进制方式写（生成）APP-2.Exe到APP-1.Exe所在的目录

ForCounter=0ToFILESIZEOFAPP2-1´注意因为从0Byte开始因此以文件大小-1Byte为终

　Put#1,,APP2（Counter）

NextCounter

Close#1

ShellApp.Path&"\APP-2.Exe",vbNormalFocus　´运行刚生成的APP-2.Exe

UnloadMe

EndSub

VB实现雨滴式图片效果

本范例是以一个stdPicture物件来存图形，之後於PictureBox中以特殊效果来显示。

因为我们想显示的只有一个图，所以不想多用另一个PictureBox来存原始图，而後再画到另一个PictureBox上，那只有用StdPicture物件来取代PictureBox（存来源图），但是BitBlt这个绘图函式需来源与目的的hDc，而StdPicture物件没有hDc，它只有一个Handle值，以本例来说，这Handle值便是图形的hBitmap值。

所以我们只好使用MemoryDC的方式来做，产生一MemoryDc後将BitMap图放於其上，之後便可以使用BitBlt来绘图了。

´需求一个PictureBox（Namedpicture2），一个Command按键）

OptionExplicit

PrivateDeclareFunctionBitBltLib"gdi32"（ByValhDestDCAsLong,_

ByValxAsLong,ByValyAsLong,ByValnWidthAsLong,_

ByValnHeightAsLong,ByValhSrcDCAsLong,_

ByValxSrcAsLong,ByValySrcAsLong,_

ByValdwRopAsLong）AsLong

PrivateDeclareFunctionCreateCompatibleDCLib"gdi32"_

（ByValhdcAsLong）AsLong

PrivateDeclareFunctionSelectObjectLib"gdi32"_

（ByValhdcAsLong,ByValhObjectAsLong）AsLong

PrivateDeclareFunctionDeleteDCLib"gdi32"（ByValhdcAsLong）AsLong

ConstSRCCOPY=&HCC0020

PrivatePicture1AsNewStdPicture

PrivateSubCommand1_Click（）

DimiAsLong

DimjAsLong

Dimheight5AsLong,width5AsLong

DimhMemDcAsLong

´stdPicture物件的度量单位是Himetric所以要转换成Pixel

height5=ScaleY（Picture1.Height,vbHimetric,vbPixels）

Ifheight5>Picture2.ScaleHeightThen

height5=Picture2.ScaleHeight

EndIf

width5=ScaleX（Picture1.Width,vbHimetric,vbPixels）

Ifwidth5>Picture2.ScaleWidthThen

width5=Picture2.ScaleWidth

EndIf

´CreateMemoryDC

hM