vb 实用函数
转自:http://www.pconline.com.cn/pcedu/empolder/gj/vb/0506/644702.html
Time
返回系统时钟的当前时间。
Date
返回系统时钟的当前日期。
Now
返回代表当前日期和时间的编码值。该函数经常用作其它系统时钟函数的参数。
Hour(Time)
返回指定时间的小时部分（0到23）。
Minute(Time)
返回指定时间的分钟部分（0到59）。
Second(Time)
返回指定时间的秒部分（0到59）。
Day(Date)
返回月份中的日期数（1到31）。
Month(Date)
返回日期中的月份（1到12）。
Year(Date)
返回日期中的年度。
Weekday(Date)
返回日期中代表一周中的星期几。
Abs(n)
返回n的绝对值。
Atn(n)
返回n的反正切值，以弧度为单位。
Cos(n)
返回n的余弦值，以弧度为单位。
Exp(n)
返回e的n次方。
Rnd(n)
产生0到1之间的一个随机数。
Sgn(n)
n小于0时返回-1，n等于0时返回0，n大于0时返回1。
Sin(n)
返回n的正弦值，以弧度为单位。
Sqr(n)
返回n的平方根。
Str(n)
把数值值转换成字符串。
Tan(n)
返回n的正切值，以弧度为单位。
Val(n)
把字符串转换为数值值。
Int(n)
返回数字的整数部分。8.4-->9
Fix(n)
返回数字的整数部分。8.4-->8
以上函数在VB6和VBScript中都适用，在。NET里面要在前面加上相应的命名空间，如System.Math.Cos()，Microsoft.VisualBasic.Hour()。
数据类型转换函数：
转换函数
将表达式转换成
CBool
Boolean
CByte
Byte
CCur
Currency '只在VB7.0以下有效
CDate
Date
CDbl
Double
CInt
Integer
CLng
Long
CSng
Single
CStr
String
CVar
Variant ‘只在VB7.0以下有效
CVErr
Error '只在VB7.0以下有效
若想了解Visual Basic正在使用哪种变量类型，可使用 VarType 函数。
字符串处理函数
关键字
说明
示例
Ucase
将字符串中的字母改为大写
Ucase("Kim")返回KIM
Lcase
将字符串中的字母改为小写
Lcase("Kim")返回kim
Len
确定字符串的长度（以字符为单位）
Len("Mississ")返回7
Right
返回字符串右部指定个数的字符
Right("Budapest",3)返回pes
Left
返回字符串左部指定个数的字符
Left("Budapest",4)返回Buda
Mid
从某一指定起始点开始返回字符串中指定个数的字符
Mid("Sommers", 4, 3) 返回mer
InStr
从一个较大字符串中查找另一个字符
start% = InStr("bob
相关文档：
通过调用CreateDataSetfromXml取得XML数据
Imports System.Xml
Public Const FILE_CONFIG = "MZZ.xml"
Public Const PATH_CONFIG = "\XML\"
Dim dstXML As DataSet
Dim tblXML_DB As DataTable
Dim dtCod As New DataTable
Dim strSQL As String = ""
clsPublic ......
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Const EWX_LOGOFF = 0
Private Const EWX_SHUTDOWN = 1
Private Const EWX_REBOOT = 2
Private Const EWX_FORCE = 4
Private closeTime As String
Sub AdjustTokenPrivilegesForNT()
......
VB显示透明FLASH效果
演示效果：
代码如下：
公共声明区域
Option Explicit
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetW ......
主窗体代码：
'打开网页
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
'复制文件
Private Declare Fu ......
