INTERFACE GRAPHIQUE SYMPA POUR DONNER DES IDÉES
NISANDSYSTEMS
Messages postés
146
Date d'inscription
vendredi 1 novembre 2002
Statut
Membre
Dernière intervention
13 décembre 2014
-
12 avril 2003 à 10:53
hubsm Messages postés 28 Date d'inscription mercredi 12 juin 2002 Statut Membre Dernière intervention 26 juin 2007 - 14 avril 2004 à 15:13
hubsm Messages postés 28 Date d'inscription mercredi 12 juin 2002 Statut Membre Dernière intervention 26 juin 2007 - 14 avril 2004 à 15:13
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/6708-interface-graphique-sympa-pour-donner-des-idees
https://codes-sources.commentcamarche.net/source/6708-interface-graphique-sympa-pour-donner-des-idees
14 avril 2004 à 15:13
Ton Code m'a modifié la couleur de toutes mes barres de titre en vert.
(je suis sous win200 - peut etre pas le probleme avec config xp)
pas cool :(
9 avril 2004 à 10:29
19 déc. 2003 à 20:14
(10/10 pour augmenter ta note,adrien)
12 avril 2003 à 12:46
Continue comme ca...
++
psycho [8)]
12 avril 2003 à 11:48
Je vais te les données:
Tu devrai utilisée une collection de controles pour les menus, aussi bien pour les labels que pour le menu, voici comment procédée:
*Tu renome tous tes labels de menu en lblMenu
*Tu renome toutes tes frames en fraMenu
*Tu veille a ce que la propriété index des labels de menu soit bien la même que leurs frame respectifs
*Tu supprime les evenements mousemove des labels que tu remplace par ce code:
Private Sub Lblmenu_MouseMove(index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
' ouverture d'un menu
For a = 0 To fraMenu.Count - 1
If a = index Then
fraMenu(a).Visible = True
Else
fraMenu(a).Visible = False
End If
Next a
End Sub
*Tu remplace l'événement mousemove de l'objet FORM par celui-ci:
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
' reinitiallise
For a = 0 To fraMenu.Count - 1
fraMenu(a).Visible = False
Next a
End Sub
Et là sa devrai marcher.
Voici ce que tu pourrai encore améliorer, mais la je n'aurai pas le temps:
*Mettre une barre jaune dérriere le menu séléctionnez: mais la propriété de BackColor de tous les menu en jaune et BackStyle a transparent, puis remplace form_mousemove et lblmenu_mousemove par ceux-ci:
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
' reinitiallise
For a = 0 To fraMenu.Count - 1
fraMenu(a).Visible = False
fraMenu(a).BorderStyle = 0
Next a
End Sub
Private Sub Lblmenu_MouseMove(index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
' ouverture d'un menu
For a = 0 To fraMenu.Count - 1
If a = index Then
fraMenu(a).Visible = True
fraMenu(a).BorderStyle = 1
Else
fraMenu(a).Visible = False
fraMenu(a).BorderStyle = 0
End If
Next a
End Sub
Alors pour une raison que j'ignore cela ne marche pas chez moi, a mon avie c ton SetSysColors qui merde.
Autre amélioration: place égualement une barre jaune dérriere les éléments du menu.
Voilà, a+
12 avril 2003 à 10:53
En + lorsque tu changes les colors barres de form, arrange toi pour
les réinitialiser.
Sinon beaucoup de boulot pour pas grand chose