在VB代码中调用JavaScript ClientSidePage 代码实例
来源:互联网 发布:苹果mac输入法不显示 编辑:程序博客网 时间:2024/05/11 23:05
Public Class ClientSidePage
Inherits System.Web.UI.Page
Public Sub DisplayAlert(ByVal message As String)
RegisterClientScriptBlock(Guid.NewGuid().ToString(), _
"<script language=""JavaScript"">" & GetAlertScript(message) & "</script>")
End Sub
Public Function GetAlertScript(ByVal message As String) As String
Return "alert('" & message.Replace("'", "/'") & "');"
End Function
Public Sub GiveFocus(ByVal c As Control)
RegisterClientScriptBlock("CSP-focus-function", _
"<script language=""JavaScript"">" & vbCrLf & _
"function CSP_focus(id) {" & _
" var o = document.getElementById(id); if (o != null) o.focus(); " & _
"}" & vbCrLf & _
"</script>")
RegisterStartupScript("CSP-focus", "<script language=""JavaScript"">CSP_focus('" & c.ClientID & "');</script>")
End Sub
Public Sub DisplayPopup(ByVal url As String, ByVal options As String)
RegisterStartupScript(Guid.NewGuid().ToString(), _
"<script language=""JavaScript"">" & GetPopupScript(url, options) & "</script>")
End Sub
Public Function GetPopupScript(ByVal url As String, ByVal options As String) As String
Return "var w = window.open(""" & _
url & """, null, """ & options & """);"
End Function
Public Sub CloseWindow(Optional ByVal refreshParent As Boolean = False)
RegisterClientScriptBlock("CSP-close-popup", "<script language=""JavaScript"">" & GetCloseWindowScript(refreshParent) & "</script>")
End Sub
Public Function GetCloseWindowScript(Optional ByVal refreshParent As Boolean = False) As String
Dim script As String
If refreshParent Then
script &= "window.opener.location.reload();"
End If
Return "self.close();"
End Function
Protected Sub RegisterOnchangeScript()
If Not IsClientScriptBlockRegistered("CSP-onchange-function") Then
RegisterClientScriptBlock("CSP-onchange-function", "<script language=""JavaScript"">" & _
"var isDirty= false;" & vbCrLf & _
"function CSP_checkForChange(msg) {" & vbCrLf & _
" if (isDirty) return confirm(msg); else return true;" & vbCrLf & _
"}" & vbCrLf & _
"</script>")
End If
End Sub
Public Sub MonitorChanges(ByVal c As WebControl)
RegisterOnchangeScript()
If TypeOf c Is CheckBox Or TypeOf c Is CheckBoxList Or TypeOf c Is RadioButtonList Then
c.Attributes("onclick") = "isDirty = true;"
Else
c.Attributes("onchange") = "isDirty = true;"
End If
End Sub
Public Sub ConfirmOnExit(ByVal c As WebControl, ByVal message As String)
RegisterOnchangeScript()
c.Attributes("onclick") = "return CSP_checkForChange('" & message.Replace("'", "/'") & "');"
End Sub
Public Sub ConfirmOnChange(ByVal ddl As DropDownList, ByVal message As String)
'Register the script block
If Not IsStartupScriptRegistered("CSP-ddl-onchange") Then
RegisterStartupScript("CSP-ddl-onchange", _
"<script language=""JavaScript"">" & _
"var CSP_savedDDLID = document.getElementById('" & ddl.ClientID & "').value;" & vbCrLf & _
"function resetDDLIndex() {" & vbCrLf & _
" document.getElementById('" & ddl.ClientID & "').value = CSP_savedDDLID;" & vbCrLf & _
"}" & vbCrLf & _
"</script>")
End If
ddl.Attributes("onchange") = "if (!confirm('" & message.Replace("'", "/'") & "')) resetDDLIndex(); else "
End Sub
End Class
- 在VB代码中调用JavaScript ClientSidePage 代码实例
- 在java中调用javascript代码
- 在VB中怎样调用外部文件中的代码
- 在JAVA程序中直接执行JAVASCRIPT代码(简单调用实例)
- VB.NET中调用bcp代码
- 在asp代码中调用javascript编写的函数
- 在代码中调用Xib
- 使用vb调用vba在word中插入图片的代码
- 在javascript中利用window.external调用C++代码,调用VC函数
- javascript 无刷新 上传 在java 中调用javascript 代码 的回调函数
- 在C#中调用VB.NET函数实例
- vb.net视觉--vb.net代码实例
- VC中调用JavaScript的代码片段
- VC中调用JavaScript的代码片段
- ASP.NET中JavaScript 调用后台代码
- WPF中使用webbrowser调用javascript代码
- android 中ionic JavaScript调用原生代码
- Cordova中JavaScript/TypeScript调用原生代码
- 急救120
- 安全通信
- 缓冲区溢出的原理和实践(Phrack)
- 在Hibernate中实现复杂的数据映射
- 孙子兵法
- 在VB代码中调用JavaScript ClientSidePage 代码实例
- Quake源代碼分析(草稿).1
- 明天国庆节 ^.^
- 毕业两三年
- 选择
- Eclipse 快捷键(一)
- Eclipse 快捷键(二)
- “家,不是讲理的地方”—— 一份没出席婚礼的家长的致辞
- 使用eclipse+Struts Studio 怎样进行程序调试