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

仍然按下按钮点击图片错误
未捕获的TypeError：对象＃没有方法'showVbHelloWorld'

抱歉我的代码格式不均匀...我是stackoverflow的新手......

Answer 1

以下链接显示了如何操作：Call VB method from JavaScript

它基本上说有两种方式，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

你必须把这个陈述

form_load

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

内

UPDATE village
SET riverdepth = riverdepth - (10000 / COUNT(villagename))
WHERE countrycode(
SELECT countrycode
FROM country
WHERE countryname = 'italy')

看到这个网站： - http://www.codeproject.com/Articles/35373/VB-NET-C-and-JavaScript-communication

从javascript调用vb.net函数

2 个答案: