Soyez le premier à donner votre avis sur cette source.
Vue 3 402 fois - Téléchargée 395 fois
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
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.