ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Forum AtoutFox : Re: interactiveChange d'un objet combobox   

Sujet

rss Flux RSS des derniers messages

Vous devez vous identifier pour pouvoir poser une question ou répondre.

ven. 25 décembre 2015, 11h33
eddymaue
atoutfox.public.association

Re: interactiveChange d'un objet combobox

* ceci fonctionne pourtant

Public loForm1
m.loForm1 = CreateObject("form1")
m.loForm1.Show()

**************************************************
*-- Form: form1 (l:\owner\eddy\documents\visual foxpro
projects\test_combo.scx)
*-- ParentClass: form
*-- BaseClass: form
*-- Time Stamp: 12/25/15 11:23:09 AM
*
DEFINE CLASS form1 AS form

Top = 0
Left = 0
Height = 413
Width = 619
DoCreate = .T.
Caption = "Form1"
Name = "Form1"

ADD OBJECT combo1 AS combobox WITH ;
ColumnCount = 0, ;
ColumnWidths = "", ;
RowSourceType = 6, ;
RowSource = "csr1.c1", ;
FirstElement = 1, ;
Height = 24, ;
Left = 84, ;
NumberOfElements = 0, ;
SpecialEffect = 1, ;
Top = 72, ;
Width = 108, ;
Name = "Combo1"

ADD OBJECT text1 AS textbox WITH ;
Height = 23, ;
Left = 264, ;
Top = 84, ;
Width = 100, ;
Name = "Text1"

PROCEDURE Load
* Auteur Eddy Maue ;o)
#define GoTo1 locate
Create cursor csr1 ( c1 c(10), c2 c(10), c3 c(10))

For i = 1 to 20
Insert into csr1 ( c1 , c2 , c3) values
(Sys(2015),Sys(2015),Sys(2015))
EndFor

Select csr1
Goto1

ENDPROC

PROCEDURE combo1.InteractiveChange
thisform.text1.Value = this.DisplayValue
ENDPROC

ENDDEFINE
*
*-- EndDefine: form1
**************************************************

Dans son message précédent, MILCENT Bernhart a écrit :
> Bonjour à tous
> Joyeux noel,
>
> J'ai un combobox qui a comme controlsource une propriété de formulaire (
> thisform.nMaison ) lorsque je change sa valeur avec la souris la méthode
> interactive change () lance une méthode requer()
>
> ce qui est étarnge c'est que la valeur de thisform.nMaison n'est toujours
> pas "actée" ou validée...! ce sera uniquement le cas dans le lostFocus()
>
> ce comportement ne m'arrange pas.
> Comme avoir une modification de la valeur dans le interactivechange ?
> assign ? bindevent ? .....
>
> merci d'avance pour L'"aide.
>
> bernhart

--
Merci de partager avec moi votre immense savoir que je me ferai plaisir
d'absorber...
il va de soi que je vais vous en laisser un peu
Politesse et savoir vivre oblige ;0)
Permalink : http://www.atoutfox.org/nntp.asp?ID=0000017000
20 088 messages dans le forum • Liste complète des messages

Publicité

Les pubs en cours :


www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2024.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3