VB 可用指令,函数_索引表.doc

更多源码 VB 可用指令、函数 索引表 1、Abs 求绝对值 ●适用于VB、VBA、VBScript。●用法：传回值 = Abs(数值) ○VB与VBA： Private Sub Command1_Click() Dim HerVal As Integer HerVal = 345 MyVal = Abs(HerVal) End Sub●MyVal的值为345。 　Private Sub Command1_Click() Text1.Text = 5679 MyVal = Abs(Val(Text1.Text)) End Sub●MyVal的值为5679 　Private Sub Command1_Click() MyVal = Abs(12345) Debug.Print Abs(-12345) End Sub●于Debug对话框内打出12345 ○vbScript： script language=vbscript Dim MyVal MyVal = InputBox(请输入数值) document.write Abs(MyVal) /script 2、ActiveControl 得到焦点的对象 ●适用于VB。●用法：变量 = 对象.ActiveControl.属性●用法：对象.ActiveControl.属性 = 资料 ○VB： Private Sub Command1_Click() MsgBox Form1.ActiveControl.Name End Sub 　 Private Sub Command1_Click() MsgBox Screen.ActiveControl.Left : Screen.ActiveControl.Top End Sub 　 Private Sub Command1_Click() Me.ActiveControl.Caption = 我得到焦点 End Sub 　 Private Sub Timer1_Timer Me.Caption = Focus: Screen.ActiveControl.Name End Sub 3、ActiveForm 得到焦点的表单 ●如果你的程序是以MDI的方式为诉求，AvtiveForm这个方法将提功你更多的便利。●适用于VB。●用法：变量 = 对象.ActiveForm.属性●用法：对象.ActiveForm.属性 = 资料 ○VB： Private Sub Command1_Click() MsgBox Screen.ActiveForm.Name End Sub 　 Private Sub Command1_Click() Screen.ActiveForm.Command1.Caption = 我的窗体得到焦点 End Sub 　 Private Sub Timer1_Timer For N = 0 To Forms.Count - 1 If Forms(N).hWnd = Screen.ActiveForm.hWnd Then Form1.Label1.Caption = 得到焦点的窗体序号： N Next End Sub 4、Array 指定数组 ●我们有一些相关的资料要传给某变量，使其成为一个数组时，我们使用Array。用法：变量=Array(资料1，资料2，......，资料n) ●适用于VB、VBA、VBScript。●用法：未定义变量 = Array(资料1,资料2,...,资料n) ○VB与VBA： Private Sub Command1_Click() MyVal = Array(0, 1, 2, 3, 4, 5, 6, 7, 8) For I = 0 To 8 Print MyVal(I) Next End Sub 　 Private Sub Command1_Click() Dim Total As Integer MyVal = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) For I = 0 To 9 Total = Total + MyVal(I) Next End Sub ○vbScript： script language=vbscript Dim MyAry,n MyAry = Array(1,2,3,4,5,6,7,8,9) for n = 2 to 6 document.write MyAry(n) next /script 5、App 得知程序信息 ●适用于VB●用法：传回值 = App.属性 ○VB： ●得知程