Créateur de menus

Soyez le premier à donner votre avis sur cette source.

Vue 3 149 fois - Téléchargée 367 fois

Description

Crétateur de Menus

Source / Exemple :


Option Explicit

Private Sub Form_Load()
txtmenu.Text = "Zone de texte: " & vbCrLf & _
"La couleur de fond" & vbCrLf & _
"peut être modifiée."
txtmenu.BackColor = vbYellow

lblmenu.Caption = "Etiquette: " & vbCrLf & _
"Le style et la police" & vbCrLf & _
"sont variables."
lblmenu.Font.Name = "Courier New"
End Sub

Private Sub mnuQuitter_Click()
Unload Me
End Sub

Private Sub mnuzonedetexte_Couleur_click(index As Integer)
Dim I As Integer

'Active la coche
For I = 0 To 2
mnuzonedetexte_couleur(1).Checked = False
Next
mnuzonedetexte_couleur(index).Checked = True

Select Case index
Case 0
txtmenu.BackColor = vbYellow
Case 1
txtmenu.BackColor = vbCyan
Case 2
txtmenu.BackColor = vbMagenta
End Select
End Sub

Private Sub mnuetiq_police_click(index As Integer)
Dim I As Integer

'Active la coche à coté du style
If index < 4 Then
For I = 0 To 2
mnuEtiq_Police(I).Checked = False
Next
mnuEtiq_Police(index).Checked = True
End If

Select Case index
Case 0
lblmenu.Font.Name = "Courier New"
Case 1
lblmenu.Font.Name = "Symbol"
Case 2
lblmenu.Font.Name = "Times New Roman"
Case 4
 'Standard <--> Souligné
 
 lblmenu.Font.Underline = Not lblmenu.Font.Underline
 'Coche en <--> hors
 mnuEtiq_Police(4).Checked = Not mnuEtiq_Police(4).Checked
 End Select
End Sub

Private Sub txtmenu_Mouseup(button As Integer, _
shift As Integer, x As Single, y As Single)
'bouton droit ?
If button = vbRightButton Then
PopupMenu mnuzonedetexte, vbPopupMenuCenterAlign
End If
End Sub

Private Sub lblmenu_mouseup(button As Integer, _
shift As Integer, x As Single, y As Single)
'bouton droit ?
If button = vbRightButton Then
PopupMenu mnuetiquette, vbPopupMenuRightButton, , , mnuEtiq_Police(4)
End If
End Sub

Private Sub lblmenu_dblclick()
mnuetiq_police_click 4
End Sub

Conclusion :


Désolé si j'ai pris toute la place sur vbfrance, c parce que je voulais mettre tous mes prog à la fois!!! Je vous laisse la place lol, si vous avez des question laisser vos question, ou remarque, ou autre... http://www.steven007.fr.st ou steven007@caramail.com

Codes Sources

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.