Discussion :

[GuiJenn34]

Bonjour,

Pouvez-vous me dire dans ce fichier comment faire pour intégrer les FaceId dans le Code.

Je sais que ça se stiue dans le module :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Public Type Erg1
    Iindex          As Long
    Itxt            As String
    Icheck          As Boolean
    ISiCheck        As Long
    ISiUnCheck      As Long
    IEnabled        As Boolean
    Ikey            As Variant
    Iflag           As Long
End Type

Et dans le module de classe :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Public Sub AddLigne(Index As Long, Txt As String, Optional Check As Boolean, Optional Enabled As Boolean = True, Optional Key As Variant = 0&, Optional ByVal SiCheck As Long = 0&, Optional ByVal BmpCheck As Long = 0&)
'   ajoute une ligne au tableau MemoMenuF
Dim i As Long
    On Error Resume Next
 
    i = UBound(MemoMenuF) + 1
    If Err <> 0 Then ReDim MemoMenuF(0): i = 1
    ReDim Preserve MemoMenuF(i)
 
'   Mémorise la ligne
    With MemoMenuF(i)
        .Iindex = Index
        .Itxt = Txt
        .Icheck = Check
        .ISiCheck = SiCheck
        .IEnabled = Enabled
        .Ikey = Key
        .Iflag = DetermineFlag(MemoMenuF(i))
    End With
End Sub

Merci pour votre aide.
Bien Cdt.

PopUpMenu v2.xls