十．為控制項加入JavaScript
1.讓按鈕在Submit之前做些Client事情
'加上一個 onClinetClickCommand()
'如果此屬性值存在，則當按鈕 Click 的時候，不處理 postback，
'而改成執行此段 JavaScript 程式
Dim _BeforePostbackCommand As String
<Bindable(True), Category("Appearance"), DefaultValue(""), Description("按下按鈕後，Postback前，要執行的 JavaScript")> Property BeforePostbackCommand() As String
Get
Return _BeforePostbackCommand
End Get
Set(ByVal Value As String)
_BeforePostbackCommand = Value
End Set
End Property
'加入 JavaScript
If Me.BeforePostbackCommand <> "" Then
JavaScript = Me.BeforePostbackCommand & ";" & Me.Page.GetPostBackEventReference(Me, "")
output.AddAttribute("onclick", "javascript:" & JavaScript) '加上 onclick=BeforePostbackCommand
End If
3.讓按鈕支援Msgbox(Yes/No)的判斷
'加上一個 onClickConfirmMessage()
'如果此屬性值存在，則當按鈕 Click 的時候，不處理 postback，
'而改成執行此段 JavaScript 程式
Dim _onClickConfirmMessage As String
<Bindable(True), Category("Appearance"), DefaultValue(""), Description("按下按鈕時，要顯示的確認訊息")> Property onClickConfirmMessage() As String
Get
Return _onClickConfirmMessage
End Get
Set(ByVal Value As String)
_onClickConfirmMessage = Value
End Set
End Property
If Me.onClickConfirmMessage <> "" Then
'加上確認
JavaScript = "if (window.confirm('" & Me.onClickConfirmMessage & "')==true) {" & JavaScript & "};"
End If