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, 11h44
eddymaue
atoutfox.public.association

Re: interactiveChange d'un objet combobox

Petite correction j'ai ajouté Thisform.nMaison au controlsource du
combo et ca fonctionne ici

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"
  nMaison = 0


  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",;
    Controlsource="Thisform.nMaison"


  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
**************************************************


eddymaue avait écrit le 2015-12-25 :
> avec un exemple de code ce serait plus facile
>
> amha il n'y a pas de raison que thisform.nMaison ne se mette pas a jours
>
> a+ eddy

--
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=0000017004
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