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