vb的函数调用

Posted 2023-04-25

参考技术A Private Function Fun(I As String)
I = "123"
End Function

Private Sub Command1_Click()
Dim x As String
Call Fun(x)
'call fun((x))
Debug.Print x
End Sub

byref表示该参数按地址传递 byval按值传递 如果FUN函数参数前置空则默认byref按地址传递
按地址传递 如果参数在函数内有改变数值 那么调用的变量也会随之改变
单个参数变量外加（）则按byval值传递
如果是将所有参数变量外加（）是为了让 function函数有返回值可以调用如：
Private Sub Command1_Click()
Debug.Print Fun(1)
End Sub
Private Function Fun(a As Integer) As Integer
a = a + 1
Fun = a
End Function

你可以试试我第一个的函数过程 2种调用方式有何不同结果 不懂再问本回答被提问者采纳

vbscript 从vb.net后面的代码调用javascript函数

ScriptManager.RegisterStartupScript(Me, Page.GetType, "Script", "showServerMessage(""success"",""User Questions Updated"");", True)
<script>
        function showServerMessage(messageType, message) {

            switch (messageType) {
                case "info":
                    toastr["info"]("" + message + "");
                    break;
                case "success":
                    toastr["success"]("" + message + "");
                    break;
                case "error":
                    toastr["error"]("" + message + "");
                    break;
                default:
            }
        };
    </script>