Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Combobox highlight method
Message
De
01/08/2008 09:43:56
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Versions des environnements
Visual FoxPro:
VFP 9 SP2
OS:
Windows XP SP2
Database:
Visual FoxPro
Divers
Thread ID:
01335500
Message ID:
01335793
Vues:
14
>When you drop down a combobox, a list appears. When you move the mouse over the items in the list they are highlighted. Is there an event that occurs as the items are highlighted?

the only simple way is that to bind a popup ... and to use old FOX popup commands...
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 ;
		RowSourceType = 9, ;
		Height = 24, ;
		Left = 36, ;
		Top = 48, ;
		Width = 100, ;
		Name = "Combo1"


	PROCEDURE itementer
		LPARAMETERS Enter,Bar,Popup
		WAIT WINDOWS IIF(m.Enter,"Enter on","Exit from")+STR(m.bar)+"  "+m.Popup NOWAIT
	ENDPROC


	PROCEDURE Destroy
		WAIT CLEAR
                RELEASE POPUP F1CB1
	ENDPROC


	PROCEDURE combo1.Init
		DEFINE POPUP F1CB1 RELATIVE
		DEFINE BAR 1 OF F1CB1 PROMPT 'ITEM1' && PICTURE ...
		DEFINE BAR 3 OF F1CB1 PROMPT 'ITEM2' && PICTURE ...
		DEFINE BAR 7 OF F1CB1 PROMPT 'ITEM3' && PICTURE ...
		ON			POPUP F1CB1 _SCREEN.ActiveForm.ItemEnter(.T.,BAR(),POPUP()) && you can put this method into the como class
		ON	EXIT	POPUP F1CB1 _SCREEN.ActiveForm.ItemEnter(.F.,BAR(),POPUP()) && you can put this method into the como class
		this.RowSource = 'F1CB1'
	ENDPROC


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

Click here to load this message in the networking platform