Here is the code from the button click from the first form to open the
second form.
Private Sub BTNSlctMvFrm_Cl ick(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles BTNSlctMvFrm.Cl ick
Dim str As String = "<script language
=javascript>{wi ndow.open('user selectionform.a spx?formname1=F orm1.TBXMvFr
mRm&formname2=F orm1.TBXMvFrmFl r&formname3=For m1.TBXMvFrmBldg &formname4=F
orm1.TBXMvFrmSt &formname5=Form 1.TBXMvFrmLNm&f ormname6=Form1. TBXMvFrmFNm'
,"
str += " 'UserSelection' ,'menubar=no,re sizable=no,
toolbar=no,scro llbars=no,top=1 00,left=300,hei ght=400,width=3 00');}</scri
pt>"
RegisterStartup Script("adf", str)
End Sub
Here is the code from the button click on the second form to close it
and post the info back to fields on the first.
Private Sub BtnCnfmMv_Click (ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles BtnCnfmMv.Click
Try
Dim Str As String = "<script language=""java script"">"
Str = Str & "window.opener. " &
HttpContext.Cur rent.Request.Qu eryString("form name1") & ".value = '" &
DDLRm.SelectedV alue & "';"
Str = Str & "window.opener. " &
HttpContext.Cur rent.Request.Qu eryString("form name2") & ".value = '" &
DDLFlr.Selected Value & "';"
Str = Str & "window.opener. " &
HttpContext.Cur rent.Request.Qu eryString("form name3") & ".value = '" &
DDLBldg.Selecte dValue & "';"
Str = Str & "window.opener. " &
HttpContext.Cur rent.Request.Qu eryString("form name4") & ".value = '" &
DDLSite.Selecte dValue & "';"
Str = Str & "window.opener. " &
HttpContext.Cur rent.Request.Qu eryString("form name5") & ".value = '" &
Trim(DDLMvNm.Se lectedValue.Sub string(0,
DDLMvNm.Selecte dValue.IndexOf( ","))) & "';"
Str = Str & "window.opener. " &
HttpContext.Cur rent.Request.Qu eryString("form name6") & ".value = '" &
Trim(DDLMvNm.Se lectedValue.Sub string(DDLMvNm. SelectedValue.I ndexOf(",")
+ 2)) & "';window.close ();"
Str = Str & "</script>"
LiteralRm.Text = Str
Catch ex As Exception
Response.Write( ex.Message)
End Try
End Sub
I want to be able to open ANOTHER window from the second window, if
nothing more than to place a graphic box on it and show a graphic. Help
please.
Evan Kontos |
EK*****@comtekc add.com
27 Whitehall St. | 3rd Floor | New York, NY 10004
Tel 212.480.8166 | Fax 212.480.8167 | Personal Fax 786.513.0295
www.comtekcadd.com
*** Sent via Developersdex
http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!