博文
Visual Basic 属性、方法和事件一(2005-12-10 14:34:00)
摘要：
Visual Basic 属性、方法和事件一
作者：佚名 文章来源：不详 点击数：
3 更新时间：2005-11-26
- style="padding-top:5px">
属性、方法和事件概述
Visual Basic 的窗体和控件是具有自己的属性、方法和事件的对象。可以把属性看作一个对象的性质，把方法看作对象的动作，把事件看作对象的响应。日常生活中的对象，如小孩玩的气球同样具有属性、方法和事件。气球的属性包括可以看到的一些性质，如它的直径和颜色。其它一些属性描述气球的状态（充气的或未充气的）或不可见的性质，如它的寿命。通过定义，所有气球都具有这些属性；这些属性也会因气球的不同而不同。
气球还具有本身所固有的方法和动作。如：充气方法（用氦气充满气球的动作），放气方法（排出气球中的气体）和上升方法（放手让气球飞走）。所有的气球都具备这些能力。
气球还有预定义的对某些外部事件的响应。例如，气球对刺破它的事件响应是放气，对放手事件的响应是升空。
如果能对气球编程的话，Visual Basic 代码将如下所示。其作用是设置气球的属性：
Balloon.Color = Red
Balloon.Diameter = 10
Balloon.Inflated = True
注意代码的语法，首先是对象 (Balloon)，接着是属性 (Color)，然后是赋值(Red)。重复这条语句，但是，换一个不同的值，就可以改变气球的颜色。属性也可以在程序设计阶段在“属性”窗口中设置。
调用气球的方法是这样的：
Balloon.Inflate
Balloon.Deflate
Balloon.Rise 5
它的语法与属性的语法相似，对象（一个名词）后面紧跟着方法（一个动词）。在第三个例子中有一个附加项，称为一个参数，表示气球上升的高度。一些方法有一个或多个参数，它们对执行的动作做进一步的描述。
气球对一个事件的响应如下所示：
Sub Balloon_Puncture()
......
Visual Basic 属性、方法和事件二(2005-12-10 14:32:00)
摘要：
Visual Basic 属性、方法和事件二
作者：佚名 文章来源：不详 点击数：
7 更新时间：2005-11-26
-
单击按钮执行操作
使用户与应用程序交互的最简便的方法是给用户提供一个按钮。可以用Visual Basic 提供的 CommandButton 控件，或利用包含图形的 Image 控件，如一个图标，来创建自己的“按钮”。
使用 CommandButton
大多数 Visual Basic 应用程序都有 CommandButton，使用户通过简单的敲击按钮来执行操作。当用户选中按钮时，不仅会执行相应操作，还会使该按钮看上去象被按下并释放一样。无论何时，只要用户单击按钮，就会调用 Click 事件过程。将代码写入 Click 事件过程，执行想要执行的动作。
在程序执行时，有多种方法可以选中 CommandButton ：
用鼠标单击按钮。
按 TAB 键把焦点移到相应按钮上，然后按 SPACE 键或 ENTER 键选中该按钮。参阅本章后面的“焦点概述”。
按 CommandButton 的快捷键（ALT +下划线的字符）。
在代码中设 CommandButton 的 Value 属性为 True。 cmdClose.Value = True
在代码中调用 CommandButton 的 Click 事件。 cmdClose_Click
如果该 CommandButton 是窗体的缺省命令按钮，既使将焦点移到其它不是 CommandButton 的控件上，按下回车键也会选中该按钮。在设计时，通过设置某按钮的 Default 属性为 True ，指定它为窗体的缺省CommandButton 。
如果该 CommandButton 是窗体的缺省的取消按钮，即使把焦点移到其它控件上，也能通过按 ESC 键选中该按钮。在设计时，通过设置某按钮的 Cancel 属性为 True，指定它为窗体的缺省的取消按钮。 所有这些操作都使 Visual Basic 调用 Click 事件过程。
“测试按钮”应......
Visual Basic 属性、方法和事件三 (2005-12-10 14:25:00)
摘要：
Visual Basic 属性、方法和事件三
作者：佚名 文章来源：不详 点击数：
8 更新时间：2005-11-26
-
为用户提供选择的控件
大多数应用程序需要向用户提供选择，如简单的“Yes/No”选项、或者从包含成百个可能性的列表中进行选择。Visual Basic 包含几种用于提供选择的标准控件。下列表格总结了这些控件及其用途。
用 CheckBox 选择单个选项
CheckBox 表明一个特定的状态是选定 (on) 还是清除 (off)。在应用程序中使用 CheckBox 为用户提供了“True/False”或“yes/no”的选择。因为CheckBox 彼此独立工作，所以用户可以同时选择任意多个 CheckBox。例如，在图 3.9 中，可同时选定粗体和斜体。
CheckBox 应用程序
这个例子使用一个 CheckBox 来决定文本用普通字体还是用斜体字显示。关于此例的工作版本,请参阅应用程序示例 Controls.vbp 中的 Check.frm。如图 3.10 所示，此应用程序有一个 TextBox，一个 Label，一个CommandButton 和两个 CheckBox。
下表列出了应用程序中的对象的属性设置。
选定粗体或斜体时，CheckBox 的 Value 属性值设置为 1 ，不选定时为 0。缺省 Value 值为 0，所以除非改变 Value 属性值，否则第一次显示时不会选定 CheckBox。可以用常量 vbChecked 和 vbUnchecked 表示数值 1 和0。
check box 应用程序中的事件
当单击 CheckBox 时，会发生 CheckBox 的 Click 事件。此事件过程测试是否选定 CheckBox（即是否 Value = vbChecked）。如果选定，通过设置 Font对象的 Bold 或 Italic 属性，将文本转换为粗体或斜体；该 Font 对象是由TextBox 的 Font 属性返回的。
Private Sub chkB......
Visual Basic 属性、方法和事件五(2005-12-10 14:23:00)
摘要：
Visual Basic 属性、方法和事件五
作者：佚名 文章来源：不详 点击数：
8 更新时间：2005-11-26
-
Images 应用程序中的事件
Image 应用程序对事件的响应如下：
1.每一个 Image 控件的 Click 事件使 Shape 控件的 Left 属性与它自己的 Left 属性相同，并将图形移到 Image 的顶端。
2.调用 PictureBox 的 Cls 方法清除 StatusBar 的当前标题。
3.调用 PictureBox 的 Print 方法在 StatusBar 上打印新标题。
Image 控件 Click 事件的代码如下：
Private Sub imgHeart_Click()
shpCard.Left = imgClub.LeftpicStatus.Cls
picStatus.Print "Selected: Club"
shpCard.Visible = True
End Sub
注意，Click 事件代码中第一行利用 = 操作符为 Shape 控件的 Left 属性赋一个值 (让它等于 Image 控件的 Left 属性)。下面两行调用方法，因而不需要操作符。在第三行中，值 ("Selected: Club") 是 Print 方法的一个参数。
该应用代码中还有一行很重要；它在 Form Load 事件中。
shpCard.Visible = False
将 Shape 控件的 Visible 属性设为 False，Shape 控件被隐藏起来直至单击第一幅 Image。
在 Image 控件 Click 事件的最后一步将 Visible 属性设为True。
详细信息 关于属性、方法和事件详细信息，请参阅第五章“编程基础”。
附加控件
Visual Basic 工具箱还包含几个其它的标准控件。有些控件可用来处理外部数据库中的大量数据。有些控件可用来访问 Windows......
Visual Basic 属性、方法和事件四(2005-12-10 14:20:00)
摘要：
Visual Basic 属性、方法和事件四
作者：佚名 文章来源：不详 点击数：
10 更新时间：2005-11-26
使用 ScrollBar 作为输入设备
滚动条通常与 TextBox 或窗口一起使用，但有时也可作输入设备。因为ScrollBar 控件可按比例指示当前位置，所以可以单独使用以控制程序输入，如控制声音音量或调整图片颜色。HScrollBar（水平）和 VScrollBar（垂直）控件是独立的，它有自己的事件、属性和方法集。ScrollBar 控件与附属于TextBox、ListBox、ComboBox 或 MDI 窗体的内部 ScrollBar 不同。（TextBox 和 MDI 窗体具有 ScrollBars 属性，可增加或删除附属于控件的 ScrollBar。）
现在 Windows 界面提示行支持 Slider 控件作为输入设备而不用ScrollBar。关于 Slider 控件的例子，请参阅 Windows 95 的控件面板。VisualBasic 的专业版和企业版中包含一个 Windows 95 风格的 Slider 控件。
详细信息 关于 ScrollBar 控件的详细信息，请参阅第七章“使用 VisualBasic 的标准控件”。
显示图片和图形的控件
因为 Windows 是图形用户界面，所以在应用程序上界面显示图形图像的方法十分重要。Visual Basic 包含四个控件以简化与图形有关的操作，它们是PictureBox 控件、Image 控件、Shape 控件和 Line 控件。
Image、Shape 和 Line 控件有时被称作轻量图形控件。它们需要较少的系统资源，因此比 PictureBox 控件显示得快并且包含 PictureBox 中可用的属性、方法和事件的子集。每一个控件都适用于一个特定的目的。
使用 PictureBox 控件
PictureBox 控件的主要作用是为用户显示图片。实际显示图片由 Picture 属性决定。Picture 属性包括被显示的图片的文件名（及可选的路径名）。
注意 窗体对象也具有 Pictur......
Richtextbox控件中插入jpg格式的图片和数学公式(2005-11-26 19:13:00)
摘要：Richtextbox控件中插入jpg格式的图片和数学公式
编号：QA004508
建立日期: 2001年12月26日 最后修改日期：2002年4月28日
所属类别： Visual Basic - Windows 9x控件
------------------------------------------------------------------------------
操作系统：win98 or win me
编程工具：vb6
问题：我想在richtextbox控件中插入图片，当插入bmp格式时，r......
一段精简的使用ADODB.Stream读写"大字段"的VB代码!(2005-11-26 19:12:00)
摘要：一段精简的使用ADODB.Stream读写"大字段"的VB代码!
'一段精简的读写"大字段"的代码,使用 ADODB.Stream
'Objects: Form1、Picture1
'引用 Microsoft ActiveX Data Objects 2.5 Libary
'或 Microsoft ActiveX Data Objects 2.6 Libary
Dim TempFileName As String
TempFileName = App.Path & "\TempFile.tmp"
Dim adoConnection As New ADODB.Connection
Dim adoRecordset As New ADODB.Recordset
adoConnection.Open "Provider=Mi......
数据库学习:在数据库中存取文件(2005-11-26 17:21:00)
摘要：
数据库学习:在数据库中存取文件
出处：PConline
[ 2004-04-01 13:27:36 ]
作者： zjcxc/CSDN
责任编辑：linjixiong
marqueesHeight2=18;
stopscroll2=false;
icefable3.scrollTop=0;
with(icefable3){
style.width=0;
style.height=marqueesHeight2;
style.overflowX="visible";
style.overflowY="hidden";
noWrap=true;
onmouseover=new Function("stopscroll2=true");
onmouseout=new Function("stopscroll2=false");
}
preTops=0; currentTops=0; stoptimes=0;
function init_srolltext2(){
icefable4.innerHTML="";
icefable4.innerHTML+=icefable3.innerHTML;
icefable3.innerHTML=icefable4.innerHTML+icefable4.innerHTML;
setInterval("scrollUp2()",50);
}
function scrollUp2(){
if(stopscroll2==true) return;
currentTops+=1;
if(currentTops==19)
{
stoptimes+=1;
currentTops-=1;
if(stoptimes==50)
{
currentTops=0;
stoptimes=0;
}
}
else {
preTops=icefable3.scrollTop;
icefable3.scrollTop+=1;
if(preTops==icefable3.scro......
VB如何读写SQL的image字段：(2005-11-26 17:17:00)
摘要：VB如何读写SQL的image字段：
示例 1： 将 SQL Server Image 列中的数据保存到硬盘文件中
该示例代码将打开在 pubs 数据库的 pub_info 表中的记录集，并将存储在第一条记录 logo 列中的二进制图像数据保存到硬盘文件中，如下所示：
新建一个标准 EXE Visual Basic 工程。
在工程菜单上，单击选择引用，然后设置一个到 Microsoft ActiveX Data Objects 2.5 Object Library 的引用。
将 CommandButton 控件放在 Form1 上。
在该窗体的常规声明段中作如下声明：
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim mstream As ADODB.Stream
将下面的代码剪切并粘贴到添加到该窗体的 CommandButton 所对应的 Click 事件中：
Set cn = New ADODB.Connection
cn.Open "Provider=SQLOLEDB;data Source=<name of your SQL Server>;
Initial Catalog=pubs;User Id=<Your Userid>;Password=<Your&......
Adodb.Stream 组件的使用说明(2005-11-26 12:14:00)
摘要：
Adodb.Stream 组件的使用说明
Adodb.Stream是ADO的Stream对象,提供存取二进制数据或者文本流,从而实现对流的读、写和管理等操作.
有下列方法：
Cancel 方法
使用方法如下
Object.Cancel
说明：取消执行挂起的异步 Execute 或 Open 方法的调用。
Close 方法
使用方法如下
Object.Close
：关闭对像
CopyTo 方法
使用方法如下
Object.CopyTo(destStream,[CharNumber])
说明：将对像的数据复制，destStream指向要复制的对像，CharNumber为可选参数，指要复制的字节数，不选为全部复制。
Flush 方法
使用方法如下
Object.Flush
说明：
LoadFromFile 方法
使用方法如下
Object.LoadFromFile(FileName)
说明:将FileName指定的文件装入对像中,参数FileName为指定的用户名。
Open&n......