Afficher un image dans un toolstrip via un module

Signaler
Messages postés
130
Date d'inscription
jeudi 22 décembre 2005
Statut
Membre
Dernière intervention
23 novembre 2011
-
Messages postés
2814
Date d'inscription
mardi 15 avril 2003
Statut
Membre
Dernière intervention
2 juin 2020
-
Bonjour,

J'aimerais ajouter une image à un toolstrip via un module mais ca ne fonction pas.

Ca fonctione bien pour ma form principal (frmMain) mais ca ne fonctionne pas pour toutes autres form (Ex. ici: frmClients)

Est-ce que j'ai une erreur de code ou est-ce que je m'y prend mal!!


Merci!


Procédure:

1 - Je lance l'application et j'appel mon module
2 - je met mes images dans mon toolstrip de ma form principal (frmMain)
3 - je met mes images dans mon toolstrip de mon autre form (frmClients)


'Code du module
        Dim appStyleLink As String = appPath + "\themes" + defStyle + ""
        Dim appStyleIcon As String = appPath + "\themes" + defStyle + "\icons"
        Dim button As Integer
        '===============;
        '   FRMMAIN     ;
        '===============;
        With frmMain

            'toolstrip

            For button = 0 To .ToolStrip1.Items.Count - 1
                .ToolStrip1.Items(button).Image = Bitmap.FromFile(appStyleLink + Estyle.ReadString("main", "toolstripimg" + CStr(button + 1)))
                .ToolStrip1.Items(button).ToolTipText = Estyle.ReadString("main", "toolstriptext" + CStr(button + 1))
            Next button


        End With
        '===================;
        '   frmClients      ;
        '===================;
        With frmClients
            .Show()
            '.Visible = False

            'Main icon
            Dim frmclientsIcon As New Icon(appStyleIcon + Estyle.ReadString("clients", "mainicon"))
            .Icon = frmclientsIcon
            button = 0
            For button = 0 To .ToolStrip2.Items.Count - 1
                .ToolStrip2.Items(button).Image = Bitmap.FromFile(appStyleLink + Estyle.ReadString("clients", "toolstrip2img" + CStr(button + 1)))
                .ToolStrip2.Items(button).ToolTipText = Estyle.ReadString("clients", "toolstrip2text" + CStr(button + 1))
            Next button
            
            .Visible = True
            .Close()
        End With


Contenu du fichier ini
[main]
toolstripimg1=info.png
toolstriptext1=Information sur les jeux
toolstripimg2=users.png
toolstriptext2=Clients

[clients]
mainicon=users.ico
toolstrip2img1=magnifier.png
toolstrip2text1=Rechercher un client
toolstrip2img2=plus.png
toolstrip2text2=Ajouter un client
toolstrip2img3=minus.png
toolstrip2text3=Supprimer un client

4 réponses

Messages postés
130
Date d'inscription
jeudi 22 décembre 2005
Statut
Membre
Dernière intervention
23 novembre 2011

Bonjour,

je voulais faire un petit up et m'assurer qu'il ne manquais pas d'info
Messages postés
2814
Date d'inscription
mardi 15 avril 2003
Statut
Membre
Dernière intervention
2 juin 2020
34
Salut,

Pourquoi fermes-tu la frmClients ? Si tu utilise ".Close", celle-ci sera déchargé, utilise ".Hide"

Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer.
Messages postés
130
Date d'inscription
jeudi 22 décembre 2005
Statut
Membre
Dernière intervention
23 novembre 2011

merci ...
ca ne fonction qu'une fois mais au moins tu m'a permis de découvrir que mon approche pour ce module étais TRÈS inefficace....

je vais le retravailler au complet...
Messages postés
2814
Date d'inscription
mardi 15 avril 2003
Statut
Membre
Dernière intervention
2 juin 2020
34
Tu devrais gérer cela par formulaire, au load de celui-ci.

Pour éviter de saisir plusieurs fois les répertoires, tu peux utiliser les paramètres d'application, ce qui te permettra d'avoir une variable globale et d'éventuellement laisser le choix du répertoire à l'utilisateur.

Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer.