style

Bonjour,

comment doit'on faire pour affecter en code un style a un bouton ???

si je mets : Button.Style = 1
j'ai le message : impossible d'affecter une propriété en lecture seule

pour info je fais cette affectation lors de la création dynamique d'un bouton

                    Dim Button As CommandButton
                    Set Button = Controls.Add("VB.CommandButton", "cmd" & (i))
                    Button.Width = CmdModif.Width
                    Button.Height = CmdModif.Height
                    Button.Top = lblclef(i).Top
                    Button.Left = CmdModif.Left
                    Button.Picture = CmdModif.Picture
                    Button.Visible = True
                   
                    Button.Style = 1

merci d'avance pour votre aide

Salut,

C'est une propriété que tu ne peux que modifier en mode dévellopement, d'ailleurs le message d'erreur est bien clair...

Tu définis d'abord ton style de boutons(1 = graphitical), puis en code tu fais :

Button.Picture = LoadPicture("C:\CheminDeTonImage")

A+
Exploreur

 Linux a un noyau, Windows un pépin

 

merci de ta reponse


oui mais la comme c'est du dynamique
je n'ai aucun moyen de le créer en mode graphique ???

Bonjour,
tu peux aussi changer directement le style du bouton avec l'API windows :

'partie déclarations
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Const BS_OWNERDRAW = &HB&, GWL_STYLE = -16

Private Sub CreerBouton()
  Dim Button As CommandButton
  Set Button = Controls.Add("VB.CommandButton", "MonBouton")
  'Change le style du bouton
  SetWindowLong Button.hWnd, GWL_STYLE, GetWindowLong(Button.hWnd, GWL_STYLE) Or BS_OWNERDRAW
  'Définit une image (obligatoire, sinon le bouton est mal dessiné)
  Set Button.Picture = CmdModif.Picture
  Button.Visible = True
End Sub

merci beaucoup pour votre aide
voila le code que j'ai utilisé

                    Set ButModif = Controls.Add("VB.CommandButton", "cmd" & (i))
                    With ButModif
                        .Width = CmdModif.Width
                        .Height = CmdModif.Height
                        .Top = lblclef(i).Top
                        .Left = CmdModif.Left
                        SetWindowLong ButModif.hWnd, GWL_STYLE, GetWindowLong(ButModif.hWnd, GWL_STYLE) Or BS_OWNERDRAW
                        .Picture = CmdModif.Picture
                        .ToolTipText = CmdModif.ToolTipText
                        '.Style = msoButtonCaption
                        .Visible = True
                    End With
                    Set ButModif.Container = fraPlanning

cela fonctionne bien
en effet lorsque j'ouvre le formulaire j'ai bien tous mes boutons avec l'image que j'ai selectionnée
cependant lorsque je clique sur un bouton celui-ci disparait !!!!!

les boutons s'affichent dans une frame !!!

Oui, c'est vrai, avec plusieurs boutons ça ne marche pas  C'est possible de contourner le problème avec du subclassing (pour empêcher VB de recevoir l'événement LostFocus). Rajoute un module standard avec ce code :

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetProp Lib "user32" Alias "GetPropA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Private Declare Function SetProp Lib "user32" Alias "SetPropA" (ByVal hwnd As Long, ByVal lpString As String, ByVal hData As Long) As Long
Private Declare Function RemoveProp Lib "user32" Alias "RemovePropA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Const GWL_WNDPROC = -4, WM_DESTROY = &H2, WM_SETFOCUS = &H7

Public Sub Subclass(hwnd As Long)
  Dim OldProc As Long
  'Capture tous les événements reçus par le bouton
  OldProc = SetWindowLong(hwnd, GWL_WNDPROC, AddressOf WinProc)
  SetProp hwnd, "OLDWPROC", OldProc
End Sub

Private Function WinProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
  Dim OldProc As Long
  OldProc = GetProp(hwnd, "OLDWPROC")
  If uMsg = WM_DESTROY Then 'Fait le ménage avant la fermeture
    SetWindowLong hwnd, GWL_WNDPROC, OldProc
    RemoveProp hwnd, "OLDWPROC"
  End If
  'Tous les événements sont transmis à vb sauf WM_SETFOCUS
  If uMsg <> WM_SETFOCUS Then WinProc = CallWindowProc(OldProc, hwnd, uMsg, wParam, lParam)
End Function

Puis dans le code de création du bouton

  With ButModif
    ...
    Subclass .hwnd
  End With

Bon, finalement, la solution de Kristof_Koder avec les groupes de contrôles était beaucoup plus simple...

effectivement c'est beaucoup plus simple

de plus j'ai mis le code directement dans le bouton et il s'affect automatiquement

merci beaucoup pour votre aide

@+

encore un petit detail

il y a un moyen pour obtenir le numero du bouton créé ???

Pour obtenir le numéro du nouveau bouton avec le code de Kristof_Koder ? Juste après l'instruction Load btnGraphique(...), il faut mémoriser btnGraphique.Count-1 (quantité qui augmente à chaque nouveau bouton). J'espère que ça répond à la question, sinon je ne vois pas de quoi il s'agit.