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秒时，该字符串将显示在对象下面的小矩形框中。如果用图形作为对象的标签，使用此属性可以减少解释对象的文字。
鼠标事件与键盘事件
SuB Form—MouseMove(Buttoil As Integer，Shift As Integer，x As Single，Y As Single)
这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，中国自学编程网，https://www.wendangku.net/doc/7d5837749.html, 。
(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。按照这种方法，能够在一个工程文件中建立多个窗体，中国自学编程网，https://www.wendangku.net/doc/7d5837749.html, 。
(4)选择“文件”菜单下的“工程另存为(E)…”命令，保存工程文件，即把Forml、Form2保存在一个工程中。
2．启动窗体
如果一个工程中包括多个窗体，如果没有特别的设定，应用程序的第一个窗体默认为启动窗体，也就是当应用程序开始运行时，先运行这个窗体。如果要改变系统默认的启动窗体，可以通过“工程属性”对话框进行设置，其操作步骤如下：
(1)在“工程”菜单中，选择“属性”命令，屏幕出现“工程属性”对话框，如图6．16所示。
(2)在对话框中选择“通用”选项卡。
(3)在“启动对象”的下拉列表框中，选择新的启动对象，单击“确定”按钮，完成新设定的窗体为启动窗体。
VB多窗体
在集成开发环境中，使用“工程＼添加窗体”菜单，就可以在一个工程中使用多个窗体。被设置为启动对象的窗体在程序运行之初会被自动加载和显示，但是只能在工程属性中设置一个窗体模块为启动对象。当启动对象是Sub Main过程时，要显示窗体或当显示一个窗体后再显示其他的窗体，就要考虑窗体的加载、显示、隐藏和卸载问题，中国自学编程网，https://www.wendangku.net/doc/7d5837749.html, 。
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-21 22:04:00 进入论坛
(1)Name名称属性
该属性是所有对象都具有的属性，是所创建的对象的名称，所有的控件在创建时由VB自动提供一个默认名称。Name名称属性在属性窗口的“名称”栏可以进行修改。该属性在运行时是只读的。中国自学编程网，https://www.wendangku.net/doc/7d5837749.html, 在程序中，对象名称是作为对象的标识在程序中被引用的，不会显示在窗体上。
(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英寸=1 440缇，每厘米大约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一Fixed Single：控件带有单边框。
(8)Font属性
该属性改变文字的外观，其“字体”。
FontName属性是字符型，决定了控件上正文的字体。
FontSize属性是整型，决定了控件上正文的字体大小，以磅为单位。
FontBold属性是逻辑型，表示控件上正文是否是粗体。
FontItalic属性是逻辑型，表示控件上正文是否是斜体。
FontStrikethru属性是逻辑型，表示控件上正文是否加删除线。
Fontunderline属性是逻辑型，表示控件上正文是否带下划线。
(9)ForeColor属性
该属性用来设置对象的前景颜色，即正文和作图时的颜色。其值是1个十六进制常数，用户可以在调色板中直接选择所需要的颜色。
(10)BackColor·属性
该属性用来设置对象的背景颜色，即正文以外的显示区域的颜色。
(11)nllColor属性
该属性用来设置填充封闭图形所用的颜色。
(12)BackStyle属性
该属性用来设置背景风格。0一Transparent：透明显示，即控件背景颜色显示不出来，若控件后面有其他控件或背景，均可设置为透明显示；1一Opaque：不透明，此时可为控件设置背景颜色,中国自学编程。
(13)ALignment属性
该属性决定控件上正文水平对齐方式。0一Left Justify：正文左对齐；1一Rigth Justify：正文右对齐；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属性，中国自学编程网，
https://www.wendangku.net/doc/7d5837749.html,。
运行时，不可见或无效的控件以及不能接收焦点的控件(如Frame、Lablel等控件)，仍保持在’Yab键顺序中，但切换时要跳过这些控件。
(19)TabStop属性
TabStop属性返回或设置1个值，该值用来指示是否能够使用Tab键将焦点从另一个对象移动到这个对象上。当1个控件的TabStop属性设置为False时，用Tab键就不能使该控件获得输入焦点，只有那些可以获得输入焦点的控件才具有该属性。
VB对象属性的分类
对象的属性分为3种：只读属性、运行时只读属性和可读写属性。
只读属性：这种属性无论在程序设计时还是在程序运行时都只能从它们读出信息，而不能给它们赋值。
运行时只读属性：这种属性在设计程序时可以通过属性窗口设置它们的值，但在程序运行时不能再改变它们的值。
可读写属性：这种属性无论在设计时还是运行时都可读写。
每一个对象都有自己的属性，如名称(Name)、标题(caption)、是否可见(Visible)等。在属性窗口中可以看到所选对象的属性设置。不同的对象有许多相同的属性；但不是所有的对象都有下面介绍的属性，例如文本框就没有caption属性。改变对象的属性时，其行为和外观相应地发生变化。属性的设置，可以在设计时通过属性窗口设置；也可以通过代码窗口在编程时设置；而有些属性则在运行时是只读的，自学编程网整理发布，https://www.wendangku.net/doc/7d5837749.html, 。
vb建立删除文件夹
’首先要[工程]－[引用] Microsoft Scriptting Runtime
Private Sub Command1_Click()
Dim fso As New FileSystemObject
If fso.FolderExists("c:abc") Then
MsgBox ("文件夹已存在")
Else
fso.CreateFolder ("c:abc")
End If
End Sub
Private Sub Command2_Click()
Dim fso As New FileSystemObject
If Not fso.FolderExists("c:abc") Then
MsgBox ("文件夹不存在")
Else
fso.DeleteFolder ("c:abc")
End If
End Sub
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。
代码如下：
Private Const FILESIZEOFAPP2 = 20480 ′我生成的APP-2.Exe大小是20480Byte
Private Sub cmdOK_Click() ′单击按钮cmdOK运行代码
Dim APP2() As Byte ′APP2是个Btye类型和数组
Dim Counter As Long
APP2 = LoadResData(101, "CUSTOM") ′将自定义资源中101号资源读入数组
′注意，微软的帮助中对加载定义资源的说明有误，硬是资源标识为"CUSTOM"而非数字
If Dir(App.Path & "\APP-2.Exe") <> "" Then ′第一次按cmdOK有效
MsgBox App.Path & "\APP-2.Exe 已经存在!"
Exit Sub
End If
Open App.Path & "\APP-2.exe" For Binary As #1 ′以二进制方式写（生成）APP-2.Exe到APP-1.Exe所在的目录
For Counter = 0 To FILESIZEOFAPP2 - 1 ′注意因为从0 Byte开始因此以文件大小- 1Byte 为终
Put #1, , APP2(Counter)
Next Counter
Close #1
Shell App.Path & "\APP-2.Exe", vbNormalFocus′运行刚生成的APP-2.Exe
Unload Me
End Sub
VB实现雨滴式图片效果
本范例是以一个stdPicture物件来存图形，之後於PictureBox中以特殊效果来显示。
因为我们想显示的只有一个图，所以不想多用另一个PictureBox来存原始图，而後再画到另一个PictureBox上，那只有用StdPicture 物件来取代PictureBox(存来源图)，但是BitBlt 这个绘图函式需来源与目的的hDc，而StdPicture物件没有hDc，它只有一个Handle值，以本例来说，这Handle值便是图形的hBitmap值。所以我们只好使用MemoryDC的方式来做，产生一MemoryDc後将BitMap图放於其上，之後便可以使用BitBlt来绘图了。′需求一个PictureBox( Named picture2)，一个Command按键)
Option Explicit
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, _
ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, _
ByVal nHeight As Long, ByVal hSrcDC As Long, _
ByVal xSrc As Long, ByVal ySrc As Long, _
ByVal dwRop As Long) As Long
Private Declare Function CreateCompatibleDC Lib "gdi32" _
(ByVal hdc As Long) As Long
Private Declare Function SelectObject Lib "gdi32" _
(ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long
Const SRCCOPY = &HCC0020
Private Picture1 As New StdPicture
Private Sub Command1_Click()
Dim i As Long
Dim j As Long
Dim height5 As Long, width5 As Long
Dim hMemDc As Long
′stdPicture物件的度量单位是Himetric所以要转换成Pixel height5 = ScaleY(Picture1.Height, vbHimetric, vbPixels)
If height5 > Picture2.ScaleHeight Then
height5 = Picture2.ScaleHeight
End If
width5 = ScaleX(Picture1.Width, vbHimetric, vbPixels)
If width5 > Picture2.ScaleWidth Then
width5 = Picture2.ScaleWidth
End If
′Create Memory DC
hMemDc = CreateCompatibleDC(Picture2.hdc)
′将Picture1的BitMap图指定给hMemDc
Call SelectObject(hMemDc, Picture1.Handle)
For i = height5 To 1 Step -1
Call BitBlt(Picture2.hdc, 0, i, width5, 1, _
hMemDc, 0, i, SRCCOPY)
For j = i - 1 To 1 Step -1
Call BitBlt(Picture2.hdc, 0, j, width5, 1, _
hMemDc, 0, i, SRCCOPY)
Next j
Next
Call DeleteDC(hMemDc)
End Sub
Private Sub Form_Load()
Dim i As Long
Picture2.ScaleMode = 3 ′设定成Pixel的度量单位
′设定待Display的图
Set Picture1 = LoadPicture("c:\windows\素还真.bmp")
′^^^^^^^^^^^^^^^^^^^^^^
′Load the picture we want to show
End Sub
返回
Shrinking Icons Down to Size
Abstract
You can use the Windows application programming interface (API)
BitBlt function to modify the size of an icon. This article explains
how to enlarge or shrink an icon.
Modifying an Icon′s Size
You can use the Windows application programming interface (API) BitBlt function to create an icon that is smaller or larger than the original icon. The BitBlt function copies a memory device context to another memory device context. (A memory device context is a block of memory that represents a display surface, such as an Image or Picture Box control. See Tip 31: "Creating the Windows Wallpaper Effect for a complete explanation of the BitBlt function.)
In the example program below, we first load an icon into an Image control. Then we modify the Image control′s Height and Width properties so the icon becomes 75 percent smaller than its original size. The BitBlt function is then used to copy the icon stored in the Image control to the Picture Box control.
Example Program
1. Create a new project in Visual Basic. Form1 is created by default.
2. Add the following Constant and Declare statements to the General Declarations section of Form1 (note that the Declare statement
must be typed as a single line of code):
Private Declare Function BitBlt Lib "GDI" (ByVal hDestDC As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hSrcDC As Integer,
ByVal XSrc As Integer, ByVal YSrc As Integer,
ByVal dwRop As Long) As Integer
Const SRCCOPY = &HCC0020
3. Add a Command Button control to Form1. Command1 is created by default. Set its Caption property to "Shrink Icon".
4. Add the following code to the Click event for Command1:
Private Sub Command1_Click()
Dim X As Integer
Dim Y As Integer
Dim W As Integer
Dim H As Integer
Dim Ret As Integer
Image1 = LoadPicture("c:\vb\icons\misc\binoculr.ico")
Image1.Width = 0.75 * Image1.Width
Image1.Height = 0.75 * Image1.Height
Picture1.Width = Image1.Width
Picture1.Height = Image1.Height
X = Image1.Left / Screen.TwipsPerPixelX
Y = Image1.Top / Screen.TwipsPerPixelY
W = Picture1.Width / Screen.TwipsPerPixelX
H = Picture1.Height / Screen.TwipsPerPixelY
Ret = BitBlt(Picture1.hDC, 0, 0, W, H, Form1.hDC, X, Y, SRCCOPY)
Picture1.Refresh
End Sub
5. Add an Image control to Form1. Image1 is created by default. Set
its Stretch property to True.
6. Add a Picture Box control to Form1. Picture1 is created by
default. Set its AutoRedraw property to True.
返回
获得位图文件的信息
在Form中添加一个Picture控件和一个CommandButton控件,在Picture控件中加入一个位图文件,将下面代码加入其中:
Private Declare Function GetObject Lib "gdi32" Alias "GetObjectA" _
(ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) _
As Long
Private Declare Function GetBitmapBits Lib "gdi32" (ByVal hBitmap As Long, _
ByVal dwCount As Long, lpBits As Any) As Long
Private Type BITMAP
bmType As Long
bmWidth As Long
bmHeight As Long
bmWidthBytes As Long
bmPlanes As Integer
bmBitsPixel As Integer
bmBits As Long
End Type
Private Sub Command1_Click()
Dim hBitmap As Long
Dim res As Long
Dim bmp As BITMAP
Dim byteAry() As Byte
Dim totbyte As Long, i As Long
hBitmap = Picture1.Picture.Handle
res = GetObject(hBitmap, Len(bmp), bmp) ′取得BITMAP的结构
totbyte = bmp.bmWidthBytes * bmp.bmHeight ′总共要多少BYTE来存图
ReDim byteAry(totbyte - 1)
′将Picture1中的图信息存到ByteAry
res = GetBitmapBits(hBitmap, totbyte, byteAry(0))
Debug.Print "Total Bytes Copied :"; res
Debug.Print "bmp.bmBits "; bmp.bmBits
Debug.Print "bmp.bmBitsPixel "; bmp.bmBitsPixel ′每相素位数
Debug.Print "bmp.bmHeight "; bmp.bmHeight ′以相素计算图象高度
Debug.Print "bmp.bmPlanes "; bmp.bmPlanes
Debug.Print "bmp.bmType "; bmp.bmType
Debug.Print "bmp.bmWidth "; bmp.bmWidth ′以相素计算图形宽度
Debug.Print "bmp.bmWidthBytes "; bmp.bmWidthBytes ′以字节计算的每扫描线长度
End Sub
返回
放置“透明”的图片
在VB 中，如果你试着把一只有鸟的图片放到背景的一棵树上，你就会发现树会被鸟遮住一个矩形的区域（即鸟的图片矩形）。我们可以通过以下方法使图片上非鸟的其它部分变透明：
我们可以利用一个WinAPI 函数BitBlt 对图形进行一系列的位操作来达到此目的。
函数声明：
Declare Function BitBlt Lib "gdi32" Alias "BitBlt" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long 参数解释：
目标环境：hDestDC——目标设备环境；x——左上角；y——顶端；nWidth——宽；nHeight ——高
源环境：hSrcDC——源设备环境；xSrc——源左上角；ySrc——源顶端；
dwRop——位处理操作，如vbSrcAnd；vbSrcAnd；vbSrcCopy；vbSrcErase；vbSrcInvert 等
（目标环境或源环境只能是Picture, Form 或Printer 对象。各单位为象素。）
进行处理之前，我们需要对鸟的图片进行处理：先复制一份相同的图形，将其应该透明之处（鸟的背景）设置为黑色（设此图为sPic），再将另一图做以下处理：要复制的地方（鸟）设置为黑色，其余地方设置（鸟的背景）为白色（设此图为Mask）。
设树的图形为名dPic。
最后，请加入以下代码：
R=BitBlt(dPic.hdc,0,0,sPic.Width,sPic.Height,Mask.hdc,0,0,vbScrCopy)
R=BitBlt(dPic.hdc,0,0,sPic.Width,sPic.Height,sPic.hdc,0,0,vbScrInvert)
后记：
1、VB 中的PaintPicture 方法提供类似功能，但速度不及此方法；
2、在此方法上稍微加入一些代码，就不难实现动画的显示。
3、VB 例子中的CallDlls 就使用此方法。
VB控件属性大全
1.01、窗体(FORM)的常用属性 属性说明 (Name)窗体的名称 ActiveControl返回焦点所在的控件,该属性设计阶段不可用,运行时只读。 Appearance 外观效果,取值为： 0 平面 1 3D(立体) AutoRedraw 是否自动刷新或重画窗体上所有图形[获得或设置从绘图(graphics)方法到一个持久性位图的输出],取值为： True False BackColor背景颜色,可从弹出的调色板选择。 BorderStyle 设置边界类型,取值为： 0 None(无边界框架) 1 FixedSingle(窗口大小固定不变的单线框架) 2 Sizable(窗口大小可变的标准双线框架) 3 FixedDialog(窗口大小固定的对话框窗体) 4 FixedToolWindow(窗口大小固定的工具箱窗体) 5 Sizable ToolWindow(窗口大小可变的工具箱窗体) Caption窗体的标题 ClipControls 决定Paint事件的graphics方法是重画整个对象,还是重画新显示的区域。取值为： True或False ControlBox 是或有控制框, 取值为：True 有 False 无 DrawMode 设定窗体上绘图(graphics方法),Shape,Line等控件的输出外观,有16种可选： 1 黑色 2 非或笔,设置值15的反相 3 与非笔,背景色以及画笔反相二者共有颜色的组合 4 非复制笔,设置值13的反相 5 与笔非,画笔以及显示色反相二者共有颜色的组合 6 反相,显示颜色反相 7 异或笔,画笔颜色以及显示颜色的异或 8 非与笔,设置值9的反相 9 与笔,画笔以及显示色二者共有颜色的组合
Visual Basic-命令按钮常用属性
命令按钮常用属性 在应用程序中，命令按钮通常在单击时执行制定操作。以前介绍的大多数属性都可用于命令按钮控件，包括Enabled、Font属性组、Width、Height、Top、Left、Visible。此外，命令按钮还具有以下属性。 （1）Caption 命令按钮上显示的标题文字，通常标题文字用于说明按钮的功能。 在实际运用中，经常需要对命令按钮绑定快捷键来方便按钮的操作，创建由ALT键加字母组合快捷键可由Caption属性进行设置。例如，需绑定ALT+E快捷键组合给一个按钮，如图4-4所示。在设置此按钮Caption属性时，在相应的字母前应加上“&”符号。即将此命令按钮的Caption属性设置为“结束(&E)”。这时，命令按钮的单击（Click）事件可由组合键ALT+E触发。 （2）Cancel 该属性可以设置ESC键与该命令按钮进行快捷键绑定。 当Cancel属性值为True时可设为绑定，在一个窗体内只允许一个命令按钮将Cancel属性设置为True。 （3）Default 该属性可以设置回车键与该命令按钮进行快捷键绑定。 当Default属性值为True时可设为绑定，在一个窗体内只允许一个命令按钮将Default属性设置为True。 （4）Style属性 Style属性可以决定命令按钮的外观样式，该属性只能在设计阶段在属性窗口内设置。该属性可用于多种控件，如单选按钮、复选框、组合框、列表框等。用于命令按钮可以取如下值：0——标准样式，即在命令按钮中只显示文本（Caption属性），没有相关图形。此为默认值。1——图形格式。控件用图形样式显示，在命令按钮中不仅显示文本（Caption属性），而且可以显示图形（Picture属性）。 （5）Picture属性 用该属性可以给命令按钮制定一个图形。为了使用此属性，必须将Style设置为1，否则Picture属性无效。
VB常用控件属性,事件
vb内部控件使用方法总结 内部控件 控件在VB程序设计中扮演重要的角色，它是VB程序的基本组成部分。合理恰当地使用各种不同的控件，以及熟练掌握各个控件的属性设置，是进行VB程序设计的基础。另外控件应用的好坏直接影响应用程序界面的美观性和操作的方便性。本章详细介绍VB的内部控件的使用方法。 4.1 标签 标签是VB中最简单的控件，用于显示字符串，通常显示的是文字说明信息。但不能编辑标签控件。 使用标签的情况很多，通常用标签来标注本身不具有Caption属性的控件。例如，可用标签为文本框、列表框、组合框等控件来添加描述性的标签。还可编写代码改变标签控件的显示文本以响应运行时的事件。例如，若应用程序需要用几分钟处理某个操作，则可用标签显示处理情况的信息。 4.1.1 常用属性 标签的属性很多，下面介绍几个常用的属性。 （1）Alignment属性 设置标签中文本的对齐方式。其使用语法如下： Object.Alignment[=值] 其中的“值”可以为0，1或2。0(默认值)表示左对齐；1表示右对齐；2表示居中。（2）AutoSize属性 设置控件是否能够自动调整大小以显示所有的内容。其使用语法如下：Object.AutoSize[=True或False] （3）BackStyle属性 设置标签的背景样式。其使用语法如下： Object.BackStyle[=值] 其中的“值”可以为0或1。1(默认值)表示是不透明的；0表示是透明的。 （4）BorderStyle属性 设置标签的边框样式。其使用语法如下： Object.BorderStyle[=值] 其中的“值”可以为0或1。0(默认值)表示无边框；1表示单线边框。 （5）Caption属性 设置标签的文本内容。其使用语法如下： Object.Caption[=字符串] （6）WordWrap属性 设置标签的文本在显示时是否自动折行功能。其使用语法如下： Object.WordWrap[=True或False] 其中True表示具有自动折行功能；False（默认值）表示没有自动折行功能。 4.1.2 常用事件和方法 一般很少使用标签事件，标签的方法中常用的只有Move，其基本语法如下：Move left,top,width,height 其中left，top，width，height分别表示移动目的位置的坐标和大小。left为必要参数，其他三个为可选参数。
VB属性总结
4.1 标签 标签是VB中最简单的控件，用于显示字符串，通常显示的是文字说明信息。但不能编辑标签控件。 使用标签的情况很多，通常用标签来标注本身不具有Caption属性的控件。例如，可用标签为文本框、列表框、组合框等控件来添加描述性的标签。还可编写代码改变标签控件的显示文本以响应运行时的事件。例如，若应用程序需要用几分钟处理某个操作，则可用标签显示处理情况的信息。 4.1.1 常用属性 标签的属性很多，下面介绍几个常用的属性。 （1）Alignment属性 设置标签中文本的对齐方式。其使用语法如下： Object.Alignment[=值] 其中的“值”可以为0，1或2。0(默认值)表示左对齐；1表示右对齐；2表示居中。 （2）AutoSize属性 设置控件是否能够自动调整大小以显示所有的内容。其使用语法如下： Object.AutoSize[=True或False] （3）BackStyle属性 设置标签的背景样式。其使用语法如下： Object.BackStyle[=值] 其中的“值”可以为0或1。1(默认值)表示是不透明的；0表示是透明的。 （4）BorderStyle属性 设置标签的边框样式。其使用语法如下： Object.BorderStyle[=值] 其中的“值”可以为0或1。0(默认值)表示无边框；1表示单线边框。 （5）Caption属性 设置标签的文本内容。其使用语法如下： Object.Caption[=字符串] （6）WordWrap属性 设置标签的文本在显示时是否自动折行功能。其使用语法如下： Object.WordWrap[=True或False] 其中True表示具有自动折行功能；False（默认值）表示没有自动折行功能。 4.1.2 常用事件和方法 一般很少使用标签事件，标签的方法中常用的只有Move，其基本语法如下： Move left,top,width,height 其中left，top，width，height分别表示移动目的位置的坐标和大小。left为必要参数，其他三个为可选参数。 4.1.3 应用例子 目的：设计一个窗体说明标签的基本应用方法。 首先创建本章工程，在其中添加一个窗体，在该窗体中放置一个标签Label1。该标签的基本属性如下：
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属性的图形。
VB常用控件属性
VB常用控件属性 4.1 标签 标签是VB中最简单的控件，用于显示字符串，通常显示的是文字说明信息。但不能编辑标签控件。 使用标签的情况很多，通常用标签来标注本身不具有Caption属性的控件。例如，可用标签为文本框、列表框、组合框等控件来添加描述性的标签。还可编写代码改变标签控件的显示文本以响应运行时的事件。例如，若应用程序需要用几分钟处理某个操作，则可用标签显示处理情况的信息。 4.1.1 常用属性 标签的属性很多，下面介绍几个常用的属性。 （1）Alignment属性 设置标签中文本的对齐方式。其使用语法如下： Object.Alignment[=值] 其中的“值”可以为0，1或2。0(默认值)表示左对齐；1表示右对齐；2表示居中。 （2）AutoSize属性 设置控件是否能够自动调整大小以显示所有的内容。其使用语法如下： Object.AutoSize[=True或False] （3）BackStyle属性 设置标签的背景样式。其使用语法如下： Object.BackStyle[=值] 其中的“值”可以为0或1。1(默认值)表示是不透明的；0表示是透明的。 （4）BorderStyle属性 设置标签的边框样式。其使用语法如下： Object.BorderStyle[=值] 其中的“值”可以为0或1。0(默认值)表示无边框；1表示单线边框。 （5）Caption属性 设置标签的文本内容。其使用语法如下： Object.Caption[=字符串] （6）WordWrap属性 设置标签的文本在显示时是否自动折行功能。其使用语法如下： Object.WordWrap[=True或False] 其中True表示具有自动折行功能；False（默认值）表示没有自动折行功能。 4.1.2 常用事件和方法 一般很少使用标签事件，标签的方法中常用的只有Move，其基本语法如下： Move left,top,width,height 其中left，top，width，height分别表示移动目的位置的坐标和大小。left为必要参数，其他三个为可选参数。 4.1.3 应用例子 目的：设计一个窗体说明标签的基本应用方法。 首先创建本章工程，在其中添加一个窗体，在该窗体中放置一个标签Label1。该标签的基本属性如下： Name Label1 Caption "中华人民共和国" BorderStyle 1
表单设计的对象属性及常见例题
表单设计的对象属性及常见例题 1.表单（FORM） 属性 说明 默认值 Caption 表单标题栏上的文本 Form1 Closable 指定是否可以通过单击关闭按钮关闭表单 .T. MaxButton 表单是否有最大化按钮 .T. MinButton 表单是否有最小化按钮 .T. Picture 表单的背景图片（可到C:\考试素材中找） (无) 2. 标签（LABEL） (1) Caption Caption属性用于设置对象的标题文本。Caption仅接收字符型数据。注意标题文本中有时会有冒号，不能省略，例如“数A:”，不能只输入“数A”。 (2) FontName FontName属性用于设置标签标题文本的字体。如黑体、楷体、隶书等。 (3) FontSize FontSize属性用于设置标签标题文本的字号（字体大小）。 (4) WordWrap WordWrap属性值为逻辑值，用于设置当标签的AutoSize属性值为假（.F.）时，中文标题文本超宽时是否自动换行显示。WordWrap属性值为真（.T.）时自动换行，为假（.F.）时不换行。 3. 命令按钮（COMMAND） 在设置Caption属性时，可以将其中的某个字符作为访问键，方法是在该字符前插入一个反斜杠和一个小于号（\<）。例如将命令按钮的Caption属性值设置为“计算（\ 计算机等级考试二级VFP常用属性列表 1．ActiveColumn 返回一个整数，表明表格控件中包含活动单元的列编号。应用于表格。 2．Activecontrol 引用对象上的活动控件。应用于容器，表单，页面，_SCREEN，工具栏。3．ActiveForm 引用表单集或_SCREEN对象中活动的表单对象。应用于表单，表单集，_SCREEN。4．ActivePage 返回页框对象中活动页面的页码。应用于页框。 5．Alignment 指定与控件相关的文本的对齐方式。应用于复选框，列，组合框，编辑框，标头，标签，选择按钮，微调，文本框。 6．AlloeAddNew 指定是否可以从一个表格中将新记录添加到表中。应用于表格。 7．AlwaysOnTop 避免其他窗口覆盖表单窗口。应用于表单，_SCREEN。 8．AutoActivate * 指定如何激活OLE容器控件。应用于OLE绑定型控件，OLE容器控件。 9．AutoCenter 指定表单对象第一次显示于Visual FoxPro主窗口时，是否自动居中放置。应用于表单，_SCREEN。 10．*AutoCloseTables 指定由数据环境指定的表或视图是否在表单集、表单或报表释放时关闭。应用于数据环境。11．AutoSize 指定控件是否依据其内容自动调节大小。应用于复选框，命令按钮，命令组，标签，OLE 绑定型控件，OLE容器控件，选项按钮，选项组。 12．BackColor 指定用于显示对象中文本和图形的背景色或前景色。应用于复选框，列，组合框，命令组，容器对象，控件对象，编辑框，表单，表格，标头，标签，选项按钮，选项组，页面，屏幕，形状，微调，文本框，工具栏。 13．ForeColor 同BackColor。应用于复选框，命令按钮，列，组合框，容器对象，控件对象，编辑框，表单，表格，标头，标签，选项按钮，页面，屏幕，微调，文本框，工具栏。14．BorderColor 指定对象的边框颜色。应用于组合框，命令组，容器对象，控件对象，图象，线条，列表框，选项组，页框，形状，文本框。 15．BorderStyle 指定对象的边框样式。应用于命令组，编辑框，表单，图象，标签，线条，选项组，_SCREEN，形状，文本框。 16．BorderWidth 指定一个控件的边框宽度。应用于容器对象，控件对象，线条，页框，形状。 17．Bound VB基本控件的属性，方法经及事件 VB基本控件的属性，方法经及事件 VB基本控件的属性，方法经及事件 所有控件都具有的属性： 1、Name: 表示在代码中用来标识一个控件的名字。 2、Enabled: 表示一个控件是否可以响应一个事件，即该控件可不可用。 值为true: 可以响应；值为false: 不可以看见。 3、Visible: 表示一个控件是否可见。值为true:可以看见；值为false: 不可以看见。所有控件都有具有的事件： 1、KeyDown : 当用户按下键盘上一个键时发生的。 2、KeyUp : 在用户松开键盘上按下的键时发生的。 3、KeyPress : 在Key Down和Key Up事件之间发生。 4、MouseDown : 在鼠标被按下时触发的。 5、MouseUp ：在用户松开鼠标键时发生的。 6、Click ：在用户单击鼠标左键时发生的。 7、DblClick ：在用户双击鼠标时发生的。 一、窗体（Form） 属性： 1、Caption: 表示窗体标题栏的文字。 2、BorderStyle: 一般情况下为默认值，若更改为下列值： 1）值为0：没有窗体标题栏 2）值为1：窗体运行之后不能改变大小 3、WindowState: 设置窗体的大小。 3）值为0：窗体正常大小 4）值为1：窗体最小化 值为2：窗体最大化 4、BackColor: 表示窗体的背景颜色 事件： 1、Initialize（初始化事件）: 在窗体加载和显示之前触发，这个事件只触一次。 2、Load（加载事件）: 用来完成窗体显示之前需要完成的动作。 3、Activate/Deactivate (激活/非激活事件)：是用户在同一个应用程序的两个或多个窗体之间移动时触发的。 4、QueryUnload（条件卸载事件）: 决定窗体是如何关闭的。 触发QueryUnload事件时Unload 的参数和因素有： 1）VbFormControlMenu值为0 ：选中窗体控件菜单中的Close命令。 2）VbFormCode值为1 ：从代码中调用Unload 语句。 3）VbAppWindows值为2 ：终止当前的Windows操作系统。 4）VbFormMDIForm值为4 ：因为终止MDI父窗体而导致MDI子窗体的终止。 5、Terminate(终止事件):在窗体的所有实例从内存中清除时发生，只触发一次。方法： 1、Load:加载窗体，但不在屏幕上显示 2、Unload:卸载窗体，既从屏幕上也从内存中清除窗体。 3、Show:加载窗体并在屏幕上显示窗体。Show分为： 一、在表单窗口单击右键，选择“代码”，在“过程”下拉列表框中选择“Init”，在下部代码窗口输入以下代码： Public 首记录,末记录 GO BOTTOM 末记录= recno() GO TOP 首记录= recno() Thisform.第一条.enabled = .F. Thisform.上一条.enabled = .F. 二、在表单中加入四个命令按钮控件，把它们的Caption属性依次改为“第一条”、“上一条”、“下一条”、“最后一条”，Name属性也依次改为“第一条”、“上一条”、“下一条”、“最后一条”，并分别为它们输入Click过程代码。【第一条】click事件代码 IF recno() = 末记录 Thisform.下一条.enabled=.t. &&使【下一条】按钮可用 Thisform.最后一条.enabled=.t. &&使【最后一条】按钮可用 ENDIF GO TOP Thisform.第一条.enabled=.f. &&使【第一条】按钮不可用 Thisform.上一条.enabled=.f. &&使【上一条】按钮不可用 Thisform.refresh 【上一条】click事件代码 IF recno() = 末记录 Thisform.下一条.enabled=.t. &&使【下一条】按钮可用 Thisform.最后一条.enabled=.t. &&使【最后一条】按钮可用 ENDIF SKIP -1 IF recno() = 首记录 Thisform.第一条.enabled=.f. &&使【第一条】按钮不可用 Thisform.上一条.enabled=.f. &&使【上一条】按钮不可用 thisform.refresh messagebox("已经是第一条纪录！",0,"纪录情况") ENDIF thisform.refresh 【下一条】click事件代码 IF recno() = 首记录 Label控件 Label 控件主要用于在窗体中显示提示信息，常与Text控件一起使用。 属性： Caption 表示标签的内容。 例：Label1.Caption="N&ame:" 控件在窗体中显示Name:,&号跟的字母是快捷键字母，即当我们按下Alt+A时，Label1的Click事件将会发生。 这种快捷键定义方法对于菜单和许多其它控件同样适用。 Font 表示控件的字体。 ForeColor 表示控件的当前颜色。 Enabled 表示控件是否使能。 =True 使能。 =False 禁止(控件显示为灰色)。 Visible 表示控件是否可见 =True 可见。 =False 不可见。 Top,Left,Width,Height 表示控件在窗体中的位置和尺寸。 事件： Click 当点击或按下快捷键时发生，常用于使和它一起使用的Text控件获得输入焦点。 例： Private Sub Label1_Click() Text1.SetFocus End Sub Text控件 Text控件接受用户的输入的字符串数据。 属性： Text 表示用户输入的内容。 例：Label1.Caption=Text1.Text 将Text1控件接收用户输入的数据通过Label1控件显示出来。 SelStart 表示用户选中一段文字的起始位置。第一个字符位置为0。SelLength 表示用户选中文字的长度。 SelText 表示用户选中文字的内容。 例：0123456789 这时：SelStart=5,SelLength=4,SelText="5678" MultiLine 表示是否是多行输入。 =True 是多行输入。 =False 不是多行输入(缺省) 。 ScrollBars 多行情况下是否需要滚动条。 =0 没有。 =1 有水平。 =2 有垂直。 =3 水平、垂直都有。 Password 表示口令字符。Text属性返回用户输入数据，屏幕上显示该字符。方法： SetFocus 使当前控件获得输入交点。 事件： KeyPress 当在控件上按下按键时发生。 Private Sub Text1_KeyPress(KeyAscii As Integer) End Sub KeyAscii 表示用户按键的ASCII码，如果在事件中将它改为0，则认为没有按键。 例：编写只允许输入数字的Text控件。 Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii 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秒时，该字符串将显示在对象下面的小矩形框中。如果用图形作为对象的标签，使用此属性可以减少解释对象的文字。 VB内部控件属性解释 控件在VB程序设计中扮演重要的角色，它是VB程序的基本组成部分。合理恰当地使用各种不同的控件，以及熟练掌握各个控件的属性设置，是进行VB程序设计的基础。另外控件应用的好坏直 接影响应用程序界面的美观性和操作的方便性。本章详细介绍VB的内部控件的使用方法。 4.1 标签 标签是VB中最简单的控件，用于显示字符串，通常显示的是文字说明信息。但不能编辑标签控件。 使用标签的情况很多，通常用标签来标注本身不具有Caption属性的控件。例如，可用标签为文本框、列表框、组合框等控件来添加描述性的标签。还可编写代码改变标签控件的显示文本以响 应运行时的事件。例如，若应用程序需要用几分钟处理某个操作，则可用标签显示处理情况的信息。 4.1.1 常用属性 标签的属性很多，下面介绍几个常用的属性。 （1）Alignment属性 设置标签中文本的对齐方式。其使用语法如下： Object.Alignment[=值] 其中的“值”可以为0，1或2。0(默认值)表示左对齐；1表示右对齐；2表示居中。 （2）AutoSize属性 设置控件是否能够自动调整大小以显示所有的内容。其使用语法如下： Object.AutoSize[=True或False] （3）BackStyle属性 设置标签的背景样式。其使用语法如下： Object.BackStyle[=值] 其中的“值”可以为0或1。1(默认值)表示是不透明的；0表示是透明的。 （4）BorderStyle属性 设置标签的边框样式。其使用语法如下： Object.BorderStyle[=值] 其中的“值”可以为0或1。0(默认值)表示无边框；1表示单线边框。 （5）Caption属性 设置标签的文本内容。其使用语法如下： Object.Caption[=字符串] （6）WordWrap属性 设置标签的文本在显示时是否自动折行功能。其使用语法如下： Object.WordWrap[=True或False] 其中True表示具有自动折行功能；False（默认值）表示没有自动折行功能。 4.1.2 常用事件和方法 一般很少使用标签事件，标签的方法中常用的只有Move，其基本语法如下： Move left,top,width,height 其中left，top，width，height分别表示移动目的位置的坐标和大小。left为必要参数，其他三个为可选参数。 4.1.3 应用例子 目的：设计一个窗体说明标签的基本应用方法。 VB常用控件的方法详解.txt3努力奋斗，天空依旧美丽，梦想仍然纯真，放飞自我，勇敢地飞翔于梦想的天空，相信自己一定做得更好。4苦忆旧伤泪自落，欣望梦愿笑开颜。5懦弱的人害怕孤独，理智的人懂得享受孤独VB常用控件的方法详解 BASIC是属于高级程序语言的一种，英文名称的全名是"Beginner's All-Purpose Symbolic Instruction Code"，取其首字字母简称"BASIC"，就名称的含意来看，是「适用于初学者的多功能符号指令码」，是一种在计算机发展史上应用最为广泛的程序语言。 微软公司也在MS-DOS时代即推出Quick BASIC，在Windows开始流行的时候，微软公司推出Visual Basic for Windows成为Windows作业环境一枝独秀的易学易用程序语言。 Visual Basic是开发 Microsoft Windows 应用程序的最快方法。不论是对 Microsoft Windows 应用程序的专业开发者还是初学者来说，Visual Basic 都是一套不可多得的快速开发应用程序。它提供的控件可以轻松的"画"出应用程序的友好界面，使软件的开发工作不再枯燥无味。 在VisualBasic语言中，控件是用户界面的基本要素，是进行可视化程序设计的重要基础，它不仅关系到界面是否友好，还直接关系到程序的运行速度以及整个程序的好坏。每个控件都具有它的属性、方法和事件，要开发一个好的程序，不仅需要掌握控件的属性和事件，也要掌握它的方法。控件具有很多相同的方法，各个控件也有其特有的一些方法。 VisualBasic中的控件分为两种，即标准控件（或部控件）和ActiveX控件。部控件是工具箱中的"常驻"控件，始终出现在工具箱里，而ActiveX控件是扩展名为.ocx的文件（在Windows\System文件夹里），它是根据变成需要添加到工具箱里的。 在一般情况下，工具箱里只有标准控件，为了把ActiveX控件添加到工具箱里，可按以下步骤执行： (1)在菜单里选择"工程-部件"，弹出"部件"对话框； (2)在对话框中选择"控件"选项卡，显示ActiveX控件列表； (3)在列表框中找到需要添加的控件名称，单击控件名称左侧的复选框； (4)使用同样的方法选择需要添加的其它控件； (5)单击"确定"按钮，即可将所选ActiveX控件添加到工具箱里。 第一章、标准控件的方法 1.01 窗体(Form)方法 1.02 文本框控件(Text)的方法 1.03 标签控件(Label)的方法 1.04 框架控件(Frame)的方法 1.05 命令按钮控件(Command)的方法 1.06 复选钮控件(Check)的方法 1.07 单选钮控件(Option)的方法 1.08 组合框控件(Combo)的方法 1.09 列表框控件(List)的方法 1.10 滚动条控件(HScrollBar和VScrollBar)的方法 1.11 文件系统(File System)控件的方法 1.12 形状控件(Shape)的方法 1.13 直线控件(Ling)的方法 1.14 图片框控件(Picture)的方法 1.15 图象控件(Image)的方法 1.16 数据控件(Data)的方法 第九章控件综合试题 一、填空题 1．在图片框上放置的控件称为图片框的(子)对象，而窗体是图片框的(父)对象。 2．窗体的“名称”(Name)属性只能在(属性窗口中)设置。 3．在程序中设置窗体Form1的Caption属性为"主窗体"，使用的赋值语句是(Form1.Caption="主窗体")。 4．当窗体的Enabled属性为(True)时，指定窗体响应事件。 5．窗体的Unload事件是在QueryUnload事件发生之(后)发生。 6．程序中，把当前窗体移动到屏幕左上角使用的方法为(Move0,0)。 7．在窗体Form1中坐标为(1600,800)的位置上输出字符串“Visual Basic 6.0”使用的语句为(Form1.Currentx=1600)、(Form1.Currenty=800)、和(Form1.Print "VisualBasic6.0")。 8．若使文本框有边框，需设置BorderStyle属性的值为(1)。 9．在程序运行期间，用户可以用文本框显示信息。文本框接收输入的内容的属性是(Text)。10．若使文本框内能够接受多行文本，则要设置Multiline属性的值为(True)。 11．要把图形文件“C:\sample\diannt.jpg”装载到图片框Picture1上，使用的语句为(Picturel.Picture=LoadPicture("C:\sample\diannt.jpg"))。12．若使图片框自动调整大小以适应装入的图形，则要设置Autosize属性的值为(True)。 13．除了在程序使用LoadPicture函数装载图形外，还可以在设计阶段通过修改(Picture)属性装载图形。 14．若程序中要把一些文本内容输出到图片框PictureBox，应使用(Print)方法。 15．当单选按钮OpdonButton的Value属性为(False)时，表示该单选按钮处于未选中状态。 16．若使命令按钮Command1重新生效，则使用的赋值语句为(Command1.Enabled=True)。17．若使命令按钮不能接收和响应任何事件，可以设置Visible属性的值为(False)。 18．只有控件对象的Enabled和Visible属性值都为(True)时，该控件对象才能接受焦点。19．Tab顺序是由建立控件时的(先后顺序)确定的。 20．设置框架Frame上的文本内容需要使用(Caption)属性。 21．在框架上可以设置一组相关控件，这些控件作为框架的(子)控件，它们具有总体的激活/屏蔽特性。 22．若屏蔽框架上的控件对象，则需设置(Enabled)属性的值为False。 23．列表框ListBox中项目的序号从(0)开始，到(Listcount-1)结束。 24．要显示列表框List1中序号为3项目内容，语句为(PrintList1.List(3))。 25．向组合框Combo2添加序号为5，内容为“计算机学院”的项目，使用的语句为(Combo2.Addltem"计算机学院"，5)。 26．要删除组合框Combo1序号为3的项目，使用的语句为(Combo1.ReMoveltem 3)。27．使用滚动条ScrollBar时，若要设置当用鼠标单击两个滚动箭头之间区域的滚动幅度，需要使用(LargeChange)属性。 28．若要设置水平或垂直滚动条的最小值，需要使用(Min)属性。 29．计时器Timer每经过一个由InterVal属性指定的时间间隔就会触发一次(Timer)事件。30．若要使计时器每0.5钞钟触发一次Timer，事件，则要把InterVal属性值设置为(500)。 二、选择题 4、1标签 标签就是VＢ中最简单得控件,用于显示字符串，通常显示得就是文字说明信息。但不能编辑标签控件. 使用标签得情况很多，通常用标签来标注本身不具有Ｃaｐtiｏn属性得控件。例如，可用标签为文本框、列表框、组合框等控件来添加描述性得标签。还可编写代码改变标签控件得显示文本以响应运行时得事件。例如，若应用程序需要用几分钟处理某个操作,则可用标签显示处理情况得信息。 4。１。1 常用属性 标签得属性很多,下面介绍几个常用得属性。 （１)Aliｇnmeｎｔ属性 设置标签中文本得对齐方式。其使用语法如下: Objecｔ、Aｌignｍｅnt［=值] 其中得“值”可以为0,1或2。0（默认值）表示左对齐；1表示右对齐；2表示居中。（２）AutoＳｉｚe属性 设置控件就是否能够自动调整大小以显示所有得内容。其使用语法如下: Ｏｂｊｅct、AutoSizｅ［=Trｕｅ或Ｆalsｅ］ (3)BａｃkＳｔｙle属性 设置标签得背景样式.其使用语法如下： Ｏbｊｅｃt、BackＳtyle[=值］ 其中得“值”可以为０或1。１（默认值）表示就是不透明得；0表示就是透明得。 （4）ＢｏｒderＳtyle属性 设置标签得边框样式。其使用语法如下： Oｂjeｃt、BorderStyｌe[=值］ 其中得“值”可以为0或1。0(默认值）表示无边框;１表示单线边框。 （5）Captｉoｎ属性 设置标签得文本内容。其使用语法如下： Objeｃｔ、Ｃａpｔion[=字符串］ (6)WorｄWraｐ属性 设置标签得文本在显示时就是否自动折行功能。其使用语法如下: Obｊect、WoｒdWrap［＝True或False] 其中Trｕｅ表示具有自动折行功能；Falｓe（默认值)表示没有自动折行功能。 4.１.2常用事件与方法 一般很少使用标签事件,标签得方法中常用得只有Ｍｏve，其基本语法如下： Move ｌefｔ，top,width，heiｇｈt 其中lｅｆt,tｏp，ｗidth,height分别表示移动目得位置得坐标与大小.leｆt为必要参数，其她三个为可选参数。 ４.1．3 应用例子 目得：设计一个窗体说明标签得基本应用方法。 首先创建本章工程，在其中添加一个窗体，在该窗体中放置一个标签Label1。该标签得基本属性如下: ＮameＬabｅｌ1 Caｐtioｎ＂中华人民共与国" BorderStyle 1 BａｃｋCｏloｒ＆H00FF８0８0（蓝色） VB中各控件的常用属性1.01、窗体(FORM)的常用属性 1.02、标签控件(Lable)的常用属性 1.03、文本框控件(TextBox)的常用属性 1.05、命令按钮控件(CommandButton)的常用属性 1.06、复选框控件(CheckBox)的常用属性 1.08、组合框控件(ComboBox)常用属性1.09、列表框控件(ListBox)的常用属性 1.10、水平滚动条控件(HScrollBar)和垂直滚动条控件(VScrollBar)的常用属性 1.11、定时器控件的常用属性 1.12、文件系统控件的常用属性 文件控件的说明: 1、当选择新的驱动器后，应用ChDrive 语句更新当前驱动器，语法如下： ChDrive Drive1. Drive 此属性只能在程序代码中设置、访问，而不能在属性窗口中设置。 2、把驱动器列表框的Drive 属性赋给目录列表框的Pdth 属性，语法如下： Dir1. Path = Drive1. Drive 3、当选择新的目录后，应用ChDir 语句更新当前目录，语法如下： ChDir Dir1. Path 文件列表框的Path 属性不能在属性窗口中设置，只能在程序代码中设置。 4、如果要显示当前目录中的所有文件，语法如下: File1. Path = Dir1. Path 5、文件列表框的Pattern 属性用于设置要显示的文件类型。他可以在程序代码中设置，也可以在属性窗口中设置，此属性支持分号分隔的列表。如在程序代码中设置，语法如下： File1. Pattern = " * . 扩展名；* . 扩展名；．．．．．．" 1．下列控件中没有Caption属性的是________。 A）框架B）列表框C）复选框D）单选按钮 2．复选框的Value 属性为1 时，表示________。 A）复选框未被选中B）复选框被选中 C）复选框内有灰色的勾D）复选框操作有误 3．用来设置斜体字的属性是________。 A）FontItalic B）FontBold C）FontName D）FontSize 4．将数据项“China”添加到列表框List1中成为第二项应使用________语句。 A）List1.AddItem “China”,1 B）List1.AddItem “China ”, 2 C）List1.AddItem 1,“China”D）List1.AddItem 2,“China ” 5．引用列表框List1最后一个数据项，应使用________语句。 A）List1.List(List1.ListCount）B）List1.List(ListCount) C）List1.List(List1.ListCount-1）D）List1.List(ListCount-1) 6．假如列表框List1有四个数据项，那么把数据项“China”添加到列表框的最后，应使用________语句。 A）List1.AddItem 3,“China ” B）List1.AddItem “China ”, List1.ListCount-1 C）List1.AddItem “China ”, 3 D）List1.AddItem “China”，List1.ListCount 7．执行了下面的程序后，列表框中的数据项有________。 Private Sub Form_Click() For i = 1 to 6 List1.AddItem i Next i For i = 1 to 3 List1.RemoveItem i Next i End Sub A）1，5，6 B）2，4，6 C ）4，5，6 D）1，3，5 8．如果列表框List1中没有选定的项目，则执行 List1.RemoveItem List1.ListIndex 语句的结果是________。 A）移去第一项B）移去最后一项 C）移去最后加入列表中的一项D）以上都不对 9．如果列表框List1中只有一个项目被用户选定，则执行 Debug.Print List1.Selected(List1.ListIndex）语句的结果是________。 A）在Debug窗口输出被选定的项目的索引值 B）在Debug窗口输出True C）在窗体上输出被选定的项目的索引值 D）在窗体上输出True 10．在窗体上画一个名称为List1的列表框，一个名称为Label1的标签，列表框中显示若干城市的名称。但单击列表框中的某个城市名时，该城市名从列表框中消失，并在标签中显示出来。下列能正确实现上述操作的程序是______。 A）Private Sub List1_Click()VFP常用属性(表单)
VB6.0基本控件的属性
vfp按钮命令
VB常用控件
VB命令按钮常用属性
VB内部控件属性解释
VB常用控件的方法详细讲解
vb常用控件__练习题(含答案)
vb中常用控件及其功能
VB中各控件的常用属性
vb常用控件习题(含答案)