VB的个人小技巧.docx

VB的个人小技巧.docx

《VB的个人小技巧.docx》由会员分享，可在线阅读，更多相关《VB的个人小技巧.docx（17页珍藏版）》请在冰豆网上搜索。

VB的个人小技巧

1.图元的图片化BMP图片放在这个路径下C:

\ProgramFiles\MapInfo\MapX5.0\CUSTSYMB，还有要注意，图片只能是256色的。

32X32的

2.数据库的连接access

DimcnAsNewADODB.Connection

DimrsAsNewADODB.Recordset

DimstrAsString

str="provider=microsoft.jet.oledb.4.0;"&"persistsecurityinfo=false;datasource=C:

\DocumentsandSettings\Administrator\MyDocuments\test\test.mdb"

cn.Openstr

Setrs=NewADODB.Recordset

DimstrsqlAsString

strsl="select*fromtable1"

Setrs=cn.Execute（strsl）

Fori=0Tors.Fields.Count-1

Debug.Printrs.Fields（i）

Nexti

rs.Close

cn.Close

3Recordset的操作

属性

属性

描述

AbsolutePage

设置或返回一个可指定Recordset对象中页码的值。

AbsolutePosition

设置或返回一个值，此值可指定Recordset对象中当前记录的顺序位置（序号位置）。

ActiveCommand

返回与Recordset对象相关联的Command对象。

ActiveConnection

如果连接被关闭，设置或返回连接的定义，如果连接打开，设置或返回当前的Connection对象。

BOF

如果当前的记录位置在第一条记录之前，则返回true，否则返回fasle。

Bookmark

设置或返回一个书签。

此书签保存当前记录的位置。

CacheSize

设置或返回能够被缓存的记录的数目。

CursorLocation

设置或返回游标服务的位置。

CursorType

设置或返回一个Recordset对象的游标类型。

DataMember

设置或返回要从DataSource属性所引用的对象中检索的数据成员的名称。

DataSource

指定一个包含要被表示为Recordset对象的数据的对象。

EditMode

返回当前记录的编辑状态。

EOF

如果当前记录的位置在最后的记录之后，则返回true，否则返回fasle。

Filter

返回一个针对Recordset对象中数据的过滤器。

Index

设置或返回Recordset对象的当前索引的名称。

LockType

设置或返回当编辑Recordset中的一条记录时，可指定锁定类型的值。

MarshalOptions

设置或返回一个值，此值指定哪些记录被返回服务器。

MaxRecords

设置或返回从一个查询返回Recordset对象的的最大记录数目。

PageCount

返回一个Recordset对象中的数据页数。

PageSize

设置或返回Recordset对象的一个单一页面上所允许的最大记录数。

RecordCount

返回一个Recordset对象中的记录数目。

Sort

设置或返回一个或多个作为Recordset排序基准的字段名。

Source

设置一个字符串值，或一个Command对象引用，或返回一个字符串值，此值可指示Recordset对象的数据源。

State

返回一个值，此值可描述是否Recordset对象是打开、关闭、正在连接、正在执行或正在取回数据。

Status

返回有关批更新或其他大量操作的当前记录的状态。

StayInSync

设置或返回当父记录位置改变时对子记录的引用是否改变。

方法

方法

描述

AddNew

创建一条新记录。

Cancel

撤销一次执行。

CancelBatch

撤销一次批更新。

CancelUpdate

撤销对Recordset对象的一条记录所做的更改。

Clone

创建一个已有Recordset的副本。

Close

关闭一个Recordset。

CompareBookmarks

比较两个书签。

Delete

删除一条记录或一组记录。

Find

搜索一个Recordset中满足指定某个条件的一条记录。

GetRows

把多条记录从一个Recordset对象中拷贝到一个二维数组中。

GetString

将Recordset作为字符串返回。

Move

在Recordset对象中移动记录指针。

MoveFirst

把记录指针移动到第一条记录。

MoveLast

把记录指针移动到最后一条记录。

MoveNext

把记录指针移动到下一条记录。

?

NextRecordset

?

通过执行一系列命令清除当前Recordset对象并返回下一个Recordset

MovePrevious

把记录指针移动到上一条记录。

Open

打开一个数据库元素，此元素可提供对表的记录、查询的结果或保存的Recordset的访问。

Requery

通过重新执行对象所基于的查询来更新Recordset对象中的数据。

Resync

从原始数据库刷新当前Recordset中的数据。

Save

把Recordset对象保存到file或Stream对象中。

Seek

搜索Recordset的索引以快速定位与指定的值相匹配的行，并使其成为当前行。

Supports

返回一个布尔值，此值可定义Recordset对象是否支持特定类型的功能。

Update

保存所有对Recordset对象中的一条单一记录所做的更改。

UpdateBatch

把所有Recordset中的更改存入数据库。

请在批更新模式中使用。

事件

　　Note:

YoucannothandleeventsusingVBScriptorJScript（onlyVisualBasic,VisualC++,andVisualJ++languagescanhandleevents）.

事件

描述

EndOfRecordset

当试图移动到超过Recordset结尾的行时被触发。

FetchComplete

当异步操作中的所有记录均被读取后被触发。

FetchProgress

在异步操作期间被定期地触发，报告已读取多少记录。

FieldChangeComplete

Field对象的值更改被触发。

MoveComplete

Recordset中的当前位置更改后被触发。

RecordChangeComplete

一条记录更改之后被触发。

?

WillChangeField

?

在Field对象的值更改之前被触发

RecordsetChangeComplete

在Recordset更改之后被触发。

WillChangeRecord

在一条记录更改之前被触发。

WillChangeRecordset

在Recordset更改之前被触发。

WillMove

在Recordset中的当前位置更改之前被触发。

集合

集合

描述

Fields

指示在此Recordset对象中Field对象的数目。

Properties

包含所有Recordset对象中的Property对象。

Fields集合的属性

属性

描述

Count

返回fields集合中项目的数目。

以0起始。

例子：

countfields=rs.Fields.Count

Item（named_item/number）

返回fields集合中的某个指定的项目。

例子：

itemfields=rs.Fields.Item

（1）或者itemfields=rs.Fields.Item（"Name"）

Properties集合的属性

属性

描述

Count

返回properties集合中项目的数目。

以0起始。

例子：

countprop=rs.Properties.Count

Item（named_item/number）

返回properties集合中某个指定的项目。

例子：

itemprop=rs.Properties.Item

（1）或者itemprop=rs.Properties.Item（"Name"）

4vbfunction

function关键字指定一个函数/过程可以返回特定值，如：

publicFunctionYourNeed（Paramasinteger）asinteger

.......

.......

YourNeed=100

EndFunction

过程在最后返回100的值，如调用a=YourNeed（10）,则a=100。

而sub过程则无法返回值,如：

publicsubYourNeed（Paramasinteger）

.......

.......

YourNeed=100'此处语句虽然存在，但无效

Endsub

在其它过程调用subYourneed过程时，如a=Yourneed（100）编译器则报错。

CallYourNeed（Param）

5MDI窗体

MDI是多窗口的界面

你可以在工程里面添加一个MDI主窗体，其它窗体你只要修改一下其MDIChild属性=True就可以成为主窗体的子窗体啦！

子窗体可以在主窗体内部显示，非子窗体在主窗体外部显示。

例如你用photoshop时，可以打开多张图片，每一张图片相当于一个子窗体，而Photoshop相当于父窗体。

6窗口间传递参数

正确的调用窗体语句（窗体名对,且在工程内）:

form2.Show'显示窗体

Loadform2'装载窗体到内存

form2.Hide'窗体隐藏,仍在内存

Unloadform2'卸载窗体,不在内存中

其它:

只要被调用窗体名对,且在工程内,该窗体的任一控件的属性在语句中被提及,被调用窗体被装载窗体到内存,但窗体不显示,如在form1的按钮命令中

PrivateSubCommand1_Click（）

Form2.Label1.Caption="ABC"

EndSub

7利用word打印A4纸张

你和装有OFFICEWORD

dimwdapp

setwdapp=createobject（"word.application"）

dimdoc

setdoc=wdapp.documents.add（"d:

\abc.doc"）

wdapp.printout

doc.close

wdapp.quit

以上代码也可以用记事本保存为VBS文件,可以执行.

8查找和替换

DimwordObj

SetwordObj=CreateObject（"Word.Application"）

WithwordObj.Documents.Open（"d:

\abc.doc"）

'WORD文