Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Container-Control on top of webbrowser-control
Message
General information
Forum:
Visual FoxPro
Category:
Classes - VCX
Miscellaneous
Thread ID:
01649485
Message ID:
01649490
Views:
75
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
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform