Public Shared Sub OpenPopUp(ByVal opener As System.Web.UI.WebControls.WebControl, ByVal PagePath As String, ByVal windowName As String)
Dim clientScript As String
clientScript = "window.open('" & PagePath & "','" & windowName & "');return false;"
opener.Attributes.Add("onClick", clientScript)
End Sub
Protected Sub ibtnPrint_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ibtnPrint.Click
OpenPopUp(ibtnPrint, ("PrintOrder.aspx?OrderId=" & lblOrderId.Text), "My Order")
End Sub
|