相反，通过使用Validate事件，您能防止焦点移动到另一个控件直到验证规则被满足需要注意的是，请您不要运行产生的vbs病毒然后我们使用“Quit”方法关闭Word实例

下面举个实例来加以说明，希望大家可以从中得到启示

以上sql语句看上去没有任何的语法错误，往往令人不知所措还有另外的一种处理方法就是：在常量声明时就进行相应类型的定义，代码如下：->ConstONEAsDouble=1->

And、Or和Xor：让我们来优化表达式

要检测一个整数值的最高有效位是否有数值，通常要使用如下的代码(有二种情况：第一组If判断表明对Integer类型，第二组对Long类型)：

->IfintValueAnd&H8000Then

'mostsignificantbitisset

EndIf

IflngValueAnd&H80000000Then

'mostsignificantbitisset

EndIf->

但由于所有的VB变量都是有符号的，因此，最高有效位也是符号位，不管处理什么类型的数值，通过下面的代码就可以实现检测目的：

->IfanyValue<0Then

'mostsignificantbitisset

EndIf->

另外，要检测2个或者更多个数值的符号，只需要通过一个Bit位与符号位的简单表达式就可以完成

'

SetobjArgs=WScript.Arguments

IfobjArgs.Count>0Then

IfMsgBox("本程序仅支持GB2312到UTF-8的转换"&vbCrLf&"如果您所拖动的文件里有别的格式的文件请点“取消”",vbOKCancel+vbExclamation+vbDefaultButton2,"郑重提醒!!!")=vbOKThen

ForI=0ToobjArgs.Count-1

FileUrl=objArgs(I)

CallWriteToFile(FileUrl,ReadFile(FileUrl,"gb2312"),"utf-8")

Next

EndIf

Else

MsgBox"请将您要转换的“gb2312文件”拖到这个文件上"&vbCrLf&"程序会将它们自动转换为utf-8文件",vbInformation,"柳永法温馨提示："

EndIf

'-------------------------------------------------

'函数名称:ReadFile

'作用:利用AdoDb.Stream对象来读取各种格式的文本文件

'----------------------------------------------------

FunctionReadFile(FileUrl,CharSet)

DimStr

Setstm=CreateObject("Adodb.Stream")

stm.Type=2

stm.mode=3

stm.charset=CharSet

stm.Open

stm.loadfromfileFileUrl

Str=stm.readtext

stm.Close

Setstm=Nothing

ReadFile=Str

EndFunction

'-------------------------------------------------

'函数名称:WriteToFile

'作用:利用AdoDb.Stream对象来写入各种格式的文本文件

'参数:FileUrl-文件相对路径;Str-文件内容;CharSet-编码格式(utf-8,gb2312.....)

'----------------------------------------------------

FunctionWriteToFile(FileUrl,Str,CharSet)

Setstm=CreateObject("Adodb.Stream")

stm.Type=2

stm.mode=3

stm.charset=CharSet

stm.Open

stm.WriteTextStr

stm.SaveToFileFileUrl,2

stm.flush

stm.Close

Setstm=Nothing

EndFunction

'以下是代码(放在一个Command按钮下面)

DimoAppAsOutlook.Application

DimoNameSpaceAsNameSpace

DimoFolderAsMAPIFolder

DimoMailItemAsObject

DimsMessageAsString

SetoApp=NewOutlook.Application

SetoNameSpace=oApp.GetNamespace("MAPI")

SetoFolder=oNameSpace.GetDefaultFolder(olFolderInbox)

ForEachoMailItemInoFolder.Items

WithoMailItem

IfoMailItem.Attachments.Count>0Then'?

oMailItem.Attachments.Item(1).SaveAsFile"C:\Temp\OutlookAttachments"&oMailItem.Attachments.Item(1).filename

MsgBoxoMailItem.Attachments.Item(1).DisplayName&"wassavedas"&oMailItem.Attachments.Item(1).filename

EndIf

EndWith

NextoMailItem

SetoMailItem=Nothing

SetoFolder=Nothing

SetoNameSpace=Nothing

SetoApp=Nothing

作者：LewisCornick

邮箱：l_cornick@hotmail.com

网址：->

rem文章标题：利用vbs类实现css按钮

rem作者：yanek

rem联系：aspboy@263.net

ClassCssButton

PublicName

PublicBackColor

PublicBorderColor

PublicFont

PublicFontColor

PublicWidth

PublicText

PublicUrl

PublicMouseOverColor

PublicFunctionGenerateStyleTag()

'CreatetheSTYLEtag

DimstrStyle

strStyle=""&vbCrLf&_

""&vbCrLf&_

""

GenerateStyleTag=strStyle

EndFunction

PublicFunctionGenerateButtonTag()

DimstrHTML

strHTML="

"onMouseOver=""this.className='buttonover"&Name&"';"""&_

"onMouseOut=""this.className='buttontext"&Name&"';"">"&_

vbCrLf&""&vbCrLf&Text&vbCrLf&"