Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
MS web Ctrl works with createobject not Do form
Message
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Contrôles ActiveX en VFP
Versions des environnements
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP SP2
Database:
Visual FoxPro
Divers
Thread ID:
00984648
Message ID:
00985841
Vues:
37
>Thanks. I had done a search but couldn't find it.
>
>So any reason why on page2 of the page frame the object never finishes loadin eventhough I'm simply calling oBrowser.Navigate("About:Blank")?
>

It seems to work fine if you make the second page active before navigation. For some reason it doesn't like to load on background.
Thisform.LockScreen = .T.
Thisform.pageframe1.ActivePage = 2

WITH Thisform.pageframe1.page2.cntbrowser1.olecontrol1.object
	.Navigate("about:blank")	
	lnStartSeconds = SECONDS()
	DO WHILE .ReadyState <> 4 ;
			AND (SECONDS()-lnStartSeconds <= 10 )
		DOEVENTS
	ENDDO	
	
	IF .ReadyState <> 4
		WAIT WIND .ReadyState 
	ENDIF	
	
	.Document.Open()
	.Document.Write(lcHtml)	
	.Document.Close()		
	
	lnStartSeconds = SECONDS()
	DO WHILE .ReadyState <> 4 ;
			AND (SECONDS()-lnStartSeconds <= 1 )
		DOEVENTS
	ENDDO	
	IF .ReadyState <> 4
		WAIT WIND .ReadyState 
	ENDIF	
ENDWITH

Thisform.pageframe1.ActivePage = 1
Thisform.LockScreen = .F.

RETURN
--sb--
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform