作者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