相反,通过使用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@
网址:->
rem文章标题:利用vbs类实现css按钮
rem作者:yanek
rem联系:aspboy@
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&"
"&vbCrLf