作者fumizuki (蒙面加菲狮)
看板Visual_Basic
标题Re: 滑鼠的click事件
时间Thu Mar 22 06:40:52 2007
※ 引述《hiphoptomo (tomo)》之铭言：
: 请问各位
: 我现在写的是 123.aspx.vb
: 我想利用web form 里面有滑鼠的click来产生事件
: 例如: 像是把滑鼠移到textbox中点一下,旁边的label内容值改变 (click触发)
: 但是我真的不知道该怎麽写??
: -------------------------------
: Public Class WebForm1
: Inherits System.Web.UI.Page (最最前头的宣告,不过要是用click,需要改哪边吗??)
: 那我应该把这样触发事件放在哪个物件下面写呢?? textbox里头 or 另外的一个副函式??
: 请各位大大帮帮忙....谢谢
TextBox 好像没有提供 click 事件，所以要自己加入 javascript 或 vbscript...
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
Handles Me.Load
Dim sc As String
'javascript 范例
sc = "javascript:"
sc &= "document.getElementById('" & Label1.ClientID & "').innerText"
sc &= "=new Date();"
TextBox1.Attributes.Add("onclick", sc)
'vbscript 范例
sc = "vbscript:"
sc &= "document.getElementById('" & label1.ClientID & "').innerText"
sc &= "=now()"
TextBox2.Attributes.Add("onclick", sc)
End Sub
输出的 html 原始码就是
<input name="TextBox1" type="text" id="TextBox1"
onclick="javascript:document.getElementById('Label1').innerText=new Date();" />
<input name="TextBox2" type="text" id="TextBox2"
onclick="vbscript:document.getElementById('Label2').innerText=now()" />
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住，半点痴情遗留殊不易，██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多凄凄惨惨的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 123.194.224.174