这样不行吗?
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label1.Attributes.Add("onclick", "LABCLK()")
End Sub
Function labClk()
TextBox1.Text = "33"
End Function
说网页上有错误
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label1.Attributes.Add("onclick", "labclk()")
End Sub
<HEAD>
<title>WebForm1</title>
<meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.1">
<meta name="CODE_LANGUAGE" content="Visual Basic .NET 7.1">
<meta name="vs_defaultClientScript" content="JavaScript">
<meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
<script language="javascript">
Function labClk()
TextBox1.Text = "33"
End Function
</script>
</HEAD>
将如下代码放入.cs文件中
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label1.Attributes.Add("onclick", "labclk()")
End Sub
将如下代码放入对应的.aspx文件的<head>标记中
<script language=javascript>
Function labClk()
TextBox1.Text = "33"
End Function
</script>
问题解决。(我已测试并成功。)