vb 函数 及其解释

函数

1、trim（去掉空格）

Trim 函数 将两头空格全部去除。
eg：
MyString = " <-Trim-> " ’ 设置字符串初值。
TrimString = Trim(MyString) ’ TrimString = “<-Trim->”

2、ByVal | ByRef（值的传递方式）

ByVal 可选的。表示该参数按值传递。
ByRef 可选的。表示该参数按地址传递。ByRef 是 Visual Basic 的缺省选项。
eg:Function CalcSum(ByVal FirstArg As Integer）
按值传递 FirstArg

3、&（字符之间叠加）

Dim hh As String  'vb中不能同一行就赋值
Dim mm As String
   hh = "1":mm="2"
 '  hh&mm= "12"

4、call语句

下列示例示范如何使用 Call
 语句来将控制转移到子过程、内在函数、
 和动态链接库（DLL）过程，
' 调用一个子过程。
Call PrintToDebugWindow("Hello World")   
' 上面的语句将控制转移到下面的子过程。
Sub PrintToDebugWindow(AnyString)
   Debug.Print AnyString   ' 在“立即”窗口中显示。
End Sub

5、load (加载窗体)

load 加载到内存中(不显示)，直接执行 窗体的 form-load函数
show 会先加载 form-load函数，然后显示窗体

Private Sub Command3_Click()
Load Form1
End Sub

'窗体代码
Private Sub Form_Load()
Debug.Print "如果我是dj，你会爱我吗"
End Sub
' 结果只会生成一次，加载到内存中了

6、array函数(链表)

引入三个概念

Array:

 返回一个包含数组的 Variant。

Variant:

Variant 是一种特殊的数据类型，除了定长 String 数据及用户定义类型外，可以包含任何种类的数据

Option Base 语句:

如果设置为0，则不需要使用 Option Base 语句。
使用条件 ：则必须写在模块的所有过程之前。一个模块中只能出>现一次 Option Base，且必须位于带维数的数组声明之前。（放在最前面，且只能放一个 ）

Option Base 1   '将缺省的数组下标设为 1。 
**'一个窗体代码为一个模块** 

Private Sub Form_Load() 
'使用 LBound 函数来测试数组的下界。
Dim Lower
Dim MyArray(20), TwoDArray(3, 4)   '声明数组变量。
Dim ZeroArray(0 To 5)   '取代缺省的下标。

Lower = LBound(MyArray)   '返回 1。
Debug.Print Lower
Lower = LBound(TwoDArray, 2)   '返回 1（2代表二维）
Debug.Print Lower
Lower = LBound(ZeroArray)   '返回 0。
Debug.Print Lower  
End Sub

7、textbox( 控件)

让它运行时无法编辑 设置 locked 为false

8、Dir(查看文件是否存在)

Dir 函数用来检查某些文件或目录是否存在，
更多列子：自己查文档

Dim MyFile, MyPath, MyName
MyFile = Dir("C:\WINDOWS\WIN.ini")   ' 返回“WIN.INI” （如果该文件存在）。 

9、msgbox(提示窗)

语法：MsgBox(prompt[, buttons] [, title] [, helpfile, context])
解释：在对话框中显示消息，等待用户单击按钮，并返回一个 枚举值（按钮)

MsgBox(“提示”, vbYesNo) = vbYes

10、$（string声明字符）

我最开始没看出区别 ，差别为：加了$ 约等于提前声明一个 string 的 x

Private Sub Label1_Click()
  x$ = "123"
  Label1.Caption = x
End Sub

11、format（以某种指定格式输出）

概念:返回 Variant (String)，其中含有一个表达式，它是根据格式表达式中的指令来格式化的。
语法：Format(expression[, format[, firstdayofweek[, firstweekofyear]]])
详细说明见文档

MyStr = Format(MyTime, "h:m:s")   ' 返回 "17:4:23"。
MyStr = Format(MyTime, "hh:mm:ss AMPM")   ' 返回 "05:04:23 PM"。
MyStr = Format(MyDate, "dddd, mmm d yyyy")   ' 返回 "Wednesday, Jan 27 1993"。
' 如果没有指定格式，则返回字符串。