從javascript調用vb.net函數

Question

我想做的是從javascript調用vb.net函數
這是我的HTML代碼。

<html xmlns="http://www.w3.org/1999/xhtml">

<head>
    <title>Untitled
        Page
    </title>
    <script
    src="jquery.js"></script>
        <script
        type="text/javascript">
            $(function(){
            $("button").click(showVbHelloWorld)
            function
            showVbHelloWorld()
            {
            window.external.showVbHelloWorld();
            }
            })

            </script>
</head>

<body>
    <button>A</button>

</body>

</html>

這是我的vb.net代碼

Imports System
Imports System.Windows.Forms
Imports System.Security.Permissions

<PermissionSet(SecurityAction.Demand, Name:="FullTrust")> 

<System.Runtime.InteropServices.ComVisibleAttribute(True)>

<Microsoft.VisualBasic.ComClass()> 

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, _

        ByVal e As System.EventArgs) Handles Button1.Click

    Me.WebBrowser1.ObjectForScripting = Me

End Sub

Public Sub showVbHelloWorld()

    MsgBox("Hello")

End Sub

End Class

仍然在按鈕上單擊im geting錯誤
未捕獲的TypeError：對象＃沒有方法'showVbHelloWorld'

抱歉我的代碼格式不均勻...我是stackoverflow的新手......

Answer 1

這是一個顯示如何操作的鏈接：從JavaScript調用VB方法

它基本上說有兩種方式，Ajax或Postback。 這是回發方法：

aspx文件：

<script type="text/javascript">
 <!--
 function callServersideFunction()
 {
  var someValueToPass = 'Hello server';

 __doPostBack('CustomPostBack', someValueToPass);
 }
 // -->
 </script>

aspx.vb文件：

Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
  ' Insure that the __doPostBack() JavaScript method is created...
  Me.ClientScript.GetPostBackEventReference(Me, String.Empty)


 If Me.IsPostBack Then
   Dim eventTarget As String
   Dim eventArgument As String

  If ( (Me.Request("__EVENTTARGET") Is Nothing)
    eventTarget = String.Empty
   Else
    eventTarget = Me.Request("__EVENTTARGET"))
   If ( (Me.Request("__EVENTARGUMENT") Is Nothing)
    eventArgument = String.Empty
   Else
    eventArgument = Me.Request("__EVENTARGUMENT"))

  If eventTarget = "CustomPostBack" Then
    Dim valuePassed As String = eventArgument
    ' Call your VB method here...
   End If
  End If
 End Sub

Answer 2

你必須發表這個聲明

Me.WebBrowser1.ObjectForScripting = Me

在form_load

Private Sub form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
    Me.WebBrowser1.ObjectForScripting = Me
End Sub

看到這個網站： - http://www.codeproject.com/Articles/35373/VB-NET-C-and-JavaScript-communication

從javascript調用vb.net函數

問題描述

2 個解決方案

解決方案1
3 2013-10-01 14:37:49

解決方案2
1 2016-03-09 11:35:47

從javascript調用vb.net函數

問題描述

2 個解決方案

解決方案1 3 2013-10-01 14:37:49

解決方案2 1 2016-03-09 11:35:47

解決方案1
3 2013-10-01 14:37:49

解決方案2
1 2016-03-09 11:35:47