Hit-Parade .VB Research Center . Compteur
Accueil ~  Code ~  Programmes ~  Api ~  Forum ~  Cours ~  Livres ~  Quiz ~  Annuaire
~ Edito ~
12/03/2006 @ 13:39
Depuis la dernière mise à jour (qui remonte à... oulala plusieurs mois), un petit ménage de printemps s'impose. Ca tombe bien, c'est presque la période.
Au menu, et progressivement sur les jours à venir, rafraîchissement de plusieurs fonctions et procédures, nouvelles APIs et nouveaux programmes.

~ Rechercher ~

  

~ Annuaire VB ~
 Rechercher un site :
  

~ Partenaires ~

Procédure : EffaceFeuille
Efface les valeurs de toutes les zones de texte et des listes déroulante d'une feuille.
(Consulté 18567 fois.)

Public Sub EffaceFeuille(frmFeuille As Form)
' Efface les valeurs de toutes les zones de texte et des listes déroulante d'une feuille
Dim cItem As Control
' On passe par tous les contrôles présents sur la feuille
For Each cItem In frmFeuille.Controls
' Si le contrôle est un zone de texte
   
If TypeOf cItem Is TextBox Then
' On efface son contenu
       
cItem.Text = ""
' Si le contrôle est une zone de liste,
 
  ElseIf TypeOf cItem Is ComboBox Then
' et si celle-ci est modifiable,
     
  If cItem.Style<>2 Then
' on efface son contenu,
       
    cItem.Text = ""
       
Else
' sinon on met son index à -1 (ce qui lui affecte une valeur vide)
       
    cItem.ListIndex = -1
       
End If
 
  End If
Next
End Sub

Visual Basic Research Center - (c) 2000/2002 -  Webmaster : docvb (chez) free (point) fr