INTERFACE GRAPHIQUE SYMPA POUR DONNER DES IDÉES

Commentaire de Stephman le 12/04/2003 11:48:42

NISANDSYSTEMS, si plutot que de critiqué tu donnais quelque conseil pour l'améliorer!!!

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+

Commentaire de Gandalf5798 le 19/12/2003 20:14:35

Pas mal du tout.....
(10/10 pour augmenter ta note,adrien)