Frm = Forum1

[eeyk]

ik heb een vraagje

Hoe kan ik via een niet bestaand forum Die pas word gemaakt bij een nieuw scherm

data opvragen

set frm as forum1

als je dit ziet snap je meschien al wat ik bedoel


als ik nou op een ander forum zet

form1.webbrowser1.locationurl

en form1 is dight en frm niet dan zeg die error hoe kan ik Zorgen dat
alles alle forumen die ik heb FRM ook zien

 

[That Guy]

ik snap geen #@&$^ van je post, maar wat ik er van snap:

hoe maak je je nieuwe form aan? (niet FORUM, FORM...)
als je het doet via zoiets:

set bla = new frmX

dan kan je

bla.control.propery

gebruiken

 

[eeyk]

hoe kan ik dan via een anderen form data op vragen van die FrmX

want als ik doe


FrmX.webbrowser1.locationurl = text2.text

dan geef die Runtime error 91 aan

 

[That Guy]

runtime error 91 = Object variable or With block variable not set

...

http://bytes.com/forum/thread13693.html
http://www.daniweb.com/forums/thread51526.html
(optioneel http://en.allexperts.com/q/Visual-Basic-1048/Run-Time-Error-91.htm)

bestaat frmX wel? Zo niet, moet je m eerst maken voordat je er iets van wilt.

 

[eeyk]

hij bestaad maar voor anderen De anderen Forms niet

 

[That Guy]

zip je files anders en zet je hier neer, want zo kan ik je verder niet helpen

 

[eeyk]

Nee dat doe ik niet ik zoek zelf wel oplossing dan

ik wil me project geheim houden tot die klaar is :thumb:

 

[That Guy]

-_-'
serieus...


maar laat maar. Weet je, je kan natuurlijk ook een demo projectje maken met alleen relevante code...

 

[eeyk]

je bedoeld dat je alleen het hooft scherm ziet waar die code staat?

 

[That Guy]

nee, ik bedoel dat ALS je je gehele project niet wilt uploaden, je een nieuwe maakt met alleen de code die het probeel veroorzaakt.

 

[eeyk]

dit is de code

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim frm As Form1
Set frm = New Form1
Set ppDisp = frm.WebBrowser1.Object
frm.Show

End Sub

hoe kan ik er vorzorgen dat Form1 en frm kan worden gelezen

dus in anderen form

if form1 then
text1.text = form1.webbrowser1.locationsurl
end if

if frm then
text1.text = frm.webbrowser1.locationsurl
end if

maar dat werkt totaal niet

 

[That Guy]

je code is scrambled en slaat nergens op?

Probeer dit

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Set ppDisp = frm.WebBrowser1.Object
ppdisp.webbrowser1.text1.text = "bla" [COLOR="SeaGreen"]'werkt wss niet?[/COLOR]
End Sub

maar na de ppDisp. weet ik het niet - dat moet je zelf ff uitvissen

 

[eeyk]

dit is niet wat ik bedoel

als ik via frm

form2 aanvraag en form2 heeft data nodig van form1 dan geef die meteen error

omdat die form1 niet vind alleen frm = form1 en toch vind die em niet
omdat ik het aan roep via

form1.webbrowser

en als ik aan roep via

frm.webbrowser

geef die error 91