Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Container-Control on top of webbrowser-control
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Classes - VCX
Divers
Thread ID:
01649485
Message ID:
01649490
Vues:
76
if i well understand your question you have a container with some controls and a browser
this is a code how to implement it in a container (in a form).
here i put one label and a browser in a container.
note: the browser not need to zorder() its always on top and trap the focus.
you can hide or make it visible.
you can as well position it in the container relatively to other objects.

Publi oform
oform=Newobject("yform")
oform.Show
Read Events
Retu

Define Class yform As Form
	Width=700
	Height=500
	Left=100
	Top=20
	ShowWindow=2
	Name="form1"

	Add Object Container1 As asup With ;
		left=36,;
		top=48,;
		width=505,;
		height=241,;
		name="container1"
       procedure destroy
           oform=null
          release oform
        clea events
      endproc
Enddefine

************

Define Class asup As Container
	Top = 36
	Left = 48
	Width = 505
	Height = 241
	BackStyle = 0
	BorderWidth = 0
	Name = "ctl"

	Add Object obrowser As OleControl With ;
		Oleclass="shell.explorer.2", ;
		Top = 12, ;
		Left = 0, ;
		Height = 72, ;
		Width = 96, ;
		Name = "oBrowser"


	Add Object label1 As Label With ;  &&or whatever...
	AutoSize = .T., ;
		FontSize = 16, ;
		Anchor = 768, ;
		Caption = "azaazazazazaza ", ;
		Height = 27, ;
		Left = 151, ;
		Top = 8, ;
		Width = 158, ;
		Name = "Label1"

	Procedure Init
	With This.obrowser
		.Navigate("www.atoutfox.org/")
		.Left=0
		.Top=.Parent.label1.Top+.Parent.label1.Height+1
		.Width=.Parent.Width
		.Height=.Parent.Height-.Top
	Endwith
	Endproc
    

Enddefine
*
*-- EndDefine: asup
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform