首先在画面上拖两个Button (btnY,btnN)宽度设为0(注意不要把visible属性设为False)然后调用下边的方法 ,弹出对话框的时候,点【确定】就会进入到btnY的click事件里,点【取消】就进入到btnN的click事件里,
有Updatapanel的时候第一个参数是这个Updatapanel 没有的话第一个参数传Nothing就可以了,第二个参数是当前画面,第三个参数就是要在对话框上显示的提示消息了。
Imports System.Text
Imports System.Web.UI
![](https://www.cnblogs.com/Images/OutliningIndicators/ExpandedBlockStart.gif)
Public Class MessageBoxClass MessageBox
![](https://www.cnblogs.com/Images/OutliningIndicators/ExpandedSubBlockStart.gif)
Public Shared Sub ShowYN()Sub ShowYN(ByVal objUpdate As System.Web.UI.UpdatePanel, ByVal objPage As System.Web.UI.Page, ByVal strMsg As String, ByVal btnY As System.Web.UI.Control, ByVal btnN As System.Web.UI.Control)
Dim strScript As String = "<script> if (confirm('" & strMsg & "')==true){document.getElementById('" & btnY.ClientID & "').click();}else{document.getElementById('" & btnN.ClientID & "').click();}</script>"
If objUpdate Is Nothing Then
'没有updatapanel的情况
objPage.Page.ClientScript.RegisterStartupScript(objPage.GetType(), "", strScript)
Else
'有updatapanel的情况
ScriptManager.RegisterStartupScript(objUpdate, objPage.GetType(), "updateScript", strScript, False)
End If
End Sub
End Class