Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Tabs at the bottom of a PageFrame?
Message
De
10/11/1999 22:01:25
 
 
À
10/11/1999 21:53:36
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Divers
Thread ID:
00289953
Message ID:
00289962
Vues:
25
Hi Folks

>>Is that true, can you tell me what's the way to do that.

Here's a neat class that does it with no code in an event, just a couple set properties:
**************************************************
*-- Class:        sidetabs (c:\vfptest\mgh.vcx)
*-- ParentClass:  container
*-- BaseClass:    container
*-- Time Stamp:   11/10/99 09:08:05 PM
*
DEFINE CLASS sidetabs AS container


	Width = 312
	Height = 169
	Name = "Container1"


	ADD OBJECT pageframe1 AS pageframe WITH ;
		ErasePage = .T., ;
		PageCount = 5, ;
		Top = 0, ;
		Left = 0, ;
		Width = 241, ;
		Height = 169, ;
		Tabs = .F., ;
		Name = "Pageframe1", ;
		Page1.Caption = "Page1", ;
		Page1.Name = "Page1", ;
		Page2.Caption = "Page2", ;
		Page2.Name = "Page2", ;
		Page3.Caption = "Page3", ;
		Page3.Name = "Page3", ;
		Page4.Caption = "Page4", ;
		Page4.Name = "Page4", ;
		Page5.Caption = "Page5", ;
		Page5.Name = "Page5"


	ADD OBJECT sidetabs.pageframe1.page1.label1 AS label WITH ;
		Caption = "Label1", ;
		Height = 17, ;
		Left = 8, ;
		Top = 8, ;
		Width = 40, ;
		Name = "Label1"


	ADD OBJECT sidetabs.pageframe1.page2.label1 AS label WITH ;
		Caption = "Label2", ;
		Height = 17, ;
		Left = 8, ;
		Top = 8, ;
		Width = 40, ;
		Name = "Label1"


	ADD OBJECT sidetabs.pageframe1.page3.label1 AS label WITH ;
		Caption = "Label3", ;
		Height = 17, ;
		Left = 8, ;
		Top = 8, ;
		Width = 40, ;
		Name = "Label1"


	ADD OBJECT sidetabs.pageframe1.page4.label1 AS label WITH ;
		Caption = "Label4", ;
		Height = 17, ;
		Left = 8, ;
		Top = 8, ;
		Width = 40, ;
		Name = "Label1"


	ADD OBJECT sidetabs.pageframe1.page5.label1 AS label WITH ;
		Caption = "Label5", ;
		Height = 17, ;
		Left = 8, ;
		Top = 8, ;
		Width = 40, ;
		Name = "Label1"


	ADD OBJECT optiongroup1 AS optiongroup WITH ;
		ButtonCount = 5, ;
		Value = 1, ;
		ControlSource = "thisform.pageframe1.activepage", ;
		Height = 168, ;
		Left = 240, ;
		Top = 0, ;
		Width = 72, ;
		Name = "Optiongroup1", ;
		Option1.Caption = "Option1", ;
		Option1.Value = 1, ;
		Option1.Height = 17, ;
		Option1.Left = 5, ;
		Option1.Style = 1, ;
		Option1.Top = 5, ;
		Option1.Width = 61, ;
		Option1.Name = "Option1", ;
		Option2.Caption = "Option2", ;
		Option2.Height = 17, ;
		Option2.Left = 5, ;
		Option2.Style = 1, ;
		Option2.Top = 24, ;
		Option2.Width = 61, ;
		Option2.Name = "Option2", ;
		Option3.Caption = "Option3", ;
		Option3.Height = 17, ;
		Option3.Left = 5, ;
		Option3.Style = 1, ;
		Option3.Top = 43, ;
		Option3.Width = 61, ;
		Option3.Name = "Option3", ;
		Option4.Caption = "Option4", ;
		Option4.Height = 17, ;
		Option4.Left = 5, ;
		Option4.Style = 1, ;
		Option4.Top = 62, ;
		Option4.Width = 61, ;
		Option4.Name = "Option4", ;
		Option5.Caption = "Option5", ;
		Option5.Height = 17, ;
		Option5.Left = 5, ;
		Option5.Style = 1, ;
		Option5.Top = 81, ;
		Option5.Width = 61, ;
		Option5.Name = "Option5"


ENDDEFINE
*
*-- EndDefine: sidetabs
**************************************************
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform