FAQ LibreOffice et Apache OpenOfficeConsultez toutes les FAQ

Nombre d'auteurs : 10, nombre de questions : 359, dernière mise à jour : 15 juillet 2017 Ajouter une question

Bienvenue sur la FAQ, elle a été réalisée pour répondre aux questions concernant les suites bureautiques Apache OpenOffice (AOO) et LibreOffice (LibO).

Si vous souhaitez participer pour l'améliorer, pour proposer vos contributions ou si vous constatez des erreurs dans cette page, n'hésitez-pas !!! Participez.

Sommaire →Programmation OBasic →Les boîtes de dialogue BASIC →Les cases à cocher: CheckBox (1)

Comment identifier le statut d'une case à cocher ?

Comment identifier le statut d'une case à cocher ?

Code vb :

Sélectionner tout

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub StatutCheckBox 
  Dim oCheck As Object 
  
  'Définit la case à cocher dans la boîte de dialogue 
  oCheck = oDialog1.getControl("CheckBox1") 
  
  'Vérifie le statut: 
  Select Case oCheck.State 
    Case 0 
      'Attribue un texte dans le Label de la case à cocher 
	  oCheck.Label = "Décoché" 
	  MsgBox "Décoché" 
  
    Case 1    
	  oCheck.Label = "Coché" 
	  MsgBox "Coché" 
  
    Case 2 
    'La propriété "Statut triple" doit être paramétrée à vrai 
      'Pour attribuer ce statut par macro, utilisez: 
      'oDialog1.getControl("CheckBox1").Model.TriState = True 
	 oCheck.Label = "Null" 
	 MsgBox "Null" 
  
  End Select 
End Sub

Une autre possibilité en utilisant le gestionnaire d'évènement:

Code vb :

Sélectionner tout

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub StatutCheckBox_V02(Event As Object)  
  Dim oCheck As Object 
  
  oCheck = Event.Source 
  
  'Vérifie le statut: 
  Select Case oCheck.State 
    Case 0 
      'Attribue un texte dans le Label de la case à cocher 
	  oCheck.Label = "Décoché" 
	  MsgBox "Décoché" 
  
    Case 1    
	  oCheck.Label = "Coché" 
	  MsgBox "Coché" 
  
    Case 2 
    'La propriété "Statut triple" doit être paramétrée à vrai 
      'Pour attribuer ce statut par macro, utilisez: 
      'oDialog1.getControl("CheckBox1").Model.TriState = True 
	 oCheck.Label = "Null" 
	 MsgBox "Null" 
  
  End Select 
End Sub

Mis à jour le 26 août 2013

Proposer une nouvelle réponse sur la FAQ

Ce n'est pas l'endroit pour poser des questions, allez plutôt sur le forum de la rubrique pour ça

Titre de la question

Réponse à la question

Liens sous la question

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2024 Developpez Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.