Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Combo box problem
Message
 
 
À
21/11/2006 18:17:14
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Divers
Thread ID:
01171591
Message ID:
01171609
Vues:
8
>I didn't state my problem clearly. Nothing drops down when I click the down arrow on the box. It acts as if the list were empty.

Can you modify following test code to demonstarte your problem? It works for me.
PUBLIC oform1

oform1=NEWOBJECT("form1")
oform1.Show
RETURN

DEFINE CLASS form1 AS form

	DoCreate = .T.
	Caption = "Form1"
	Name = "Form1"

	ADD OBJECT combo1 AS combobox WITH ;
		Height = 24, ;
		Left = 67, ;
		Top = 84, ;
		Width = 240, ;
		Name = "Combo1"

	ADD OBJECT command1 AS commandbutton WITH ;
		Top = 180, ;
		Left = 145, ;
		Height = 27, ;
		Width = 84, ;
		Caption = "Exit", ;
		Name = "Command1"

	PROCEDURE combo1.Init
		This.AddItem("One")
		This.AddItem("Two")
		This.AddItem("Three")
	ENDPROC

	PROCEDURE command1.Click
		Thisform.Release()
	ENDPROC

ENDDEFINE
--sb--
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform