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

Comment créer une liste déroulante avec police et couleur.   



L'auteur

Mike Gagnon
Canada Canada
Membre Simple
# 0000000025
enregistré le 14/10/2004

Gagnon Mike
Pointe Cla H9R 3K8
de la société Carver Technologies Inc.
Fiche personnelle


Note des membres
pas de note

Contributions > 20 - Trucs et Astuces

Comment créer une liste déroulante avec police et couleur.
# 0000000038
ajouté le 03/11/2004 14:21:28 et modifié le 03/11/2004
consulté 10020 fois
Niveau initié

Version(s) Foxpro :
VFP 9.0
VFP 8.0
VFP 7.0
VFP 6.0
VFP 5.0

Description
Comment créer une liste déroulante avec la possibilité de changer la police et ajouter de la couleur.
Code source :
PUBLIC oform1
oform1=CREATEOBJECT("form1")
oform1.Show
RETURN
DEFINE CLASS form1 AS form
    Top = 0
    Left = 0
    Height = 238
    Width = 468
    DoCreate = .T.
    Caption = "Form1"
    Name = "Form1"
   ADD OBJECT list1 AS listbox WITH ;
        RowSourceType = 9, ;
        RowSource = "P_list", ;
        Height = 181, ;
        Left = 60, ;
        Top = 24, ;
        Width = 265, ;
        Name = "List1"
    PROCEDURE Load
        PUBLIC P_list
        DEFINE POPUP P_list
        DEFINE BAR 1 OF P_LIST ;
          PROMPT "Item number 1 of the list";
          FONT "Tahoma",14 style "BI";
          COLOR , RGB(255,255,255,192,0,0)
        DEFINE BAR 2 OF P_LIST ;
          PROMPT "Item number 2 of the list";
          FONT "Tahoma",11 style "B"
        DEFINE BAR 3 OF P_LIST ;
          PROMPT "Item number 3 of the list";
          FONT "Arial",9 style "B";
           COLOR , RGB(255,255,255,192,255,0)
    ENDPROC
ENDDEFINE

Commentaires
le 29/11/2004, Luc a écrit :
C'est chouette et facile

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