Private Sub DataGrid1_EditCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.EditCommand
Dim ID As String = e.Item.Cells(0).Text()
Dim Url As String = "Edit.aspx?action=" + ID + ""
Dim sJSCode As New System.Text.StringBuilder
Dim JSCode As String = "focusid=setTimeout(" & "window.showModelessDialog('" + Url + "','','scroll:0;status:1;help:0;resizable:0')" & ",0000)"
'dim JSCode as String="window.open(url, "", "width=500,height=200,toolbar=no,location=no,status=no,menubar=no,scrollbars=no,resizable=no");"
sJSCode.Append(" <script language=""javascript"">" & vbCrLf)
sJSCode.Append(JSCode & vbCrLf)
sJSCode.Append(" </script>" & vbCrLf)
RegisterStartupScript("MyJSCode", sJSCode.ToString)
End Sub 用这个JS打开一个弹窗,在弹窗里一点确认按钮,窗体就会最大化,郁闷死了
Dim ID As String = e.Item.Cells(0).Text()
Dim Url As String = "Edit.aspx?action=" + ID + ""
Dim sJSCode As New System.Text.StringBuilder
Dim JSCode As String = "focusid=setTimeout(" & "window.showModelessDialog('" + Url + "','','scroll:0;status:1;help:0;resizable:0')" & ",0000)"
'dim JSCode as String="window.open(url, "", "width=500,height=200,toolbar=no,location=no,status=no,menubar=no,scrollbars=no,resizable=no");"
sJSCode.Append(" <script language=""javascript"">" & vbCrLf)
sJSCode.Append(JSCode & vbCrLf)
sJSCode.Append(" </script>" & vbCrLf)
RegisterStartupScript("MyJSCode", sJSCode.ToString)
End Sub 用这个JS打开一个弹窗,在弹窗里一点确认按钮,窗体就会最大化,郁闷死了
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货