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 ~

Fonction : DumpFenetre
Cette fonction permet récupérer l'ensemble des contrôles d'une feuille ainsi que leurs valeurs, pratique comme complément d'une gestion d'erreur.
(Consulté 18699 fois.)

Private Function DumpFenetre(frmDump As Form) As String
' Parcours l'ensemble des contrôles d'une fenêtre et
' retourne une chaîne contenant leur nom ainsi que leur valeur.
' Types de contrôle pris en compte : TextBox, ListBox
Dim stTmp As String
Dim
ctlTmp As Control
Dim lgFor As Long, lgTmp As Long
' Gestion d'erreur pour les contrôles indexés
On Error Resume Next
' Nom de la fenêtre courante
stTmp = "*** Fenêtre : " & frmDump.Name & vbCrLf
For Each ctlTmp In frmDump
   
If TypeOf ctlTmp Is TextBox Then
       
lgTmp = ctlTmp.Index
       
' En cas d'erreur, le contrôle courant n'est pas indexé
       
If Err.Number = 0 Then
           
stTmp = stTmp & ctlTmp.Name & "(" & lgTmp & ") : " & _
                    ctlTmp.Text & vbCrLf
       
Else
           
stTmp = stTmp & ctlTmp.Name & " : " & ctlTmp.Text & vbCrLf
       
End If
       
' Initialise la gestion d'erreur
       
Err.Clear
   
ElseIf TypeOf ctlTmp Is ListBox Then
       
' Parcours l'ensemble de la liste courante
       
For lgFor = 0 To ctlTmp.ListCount - 1
            stTmp = stTmp & ctlTmp.Name & "(" & lgFor & ") : " & _
                    ctlTmp.List(lgFor) & vbCrLf
       
Next lgFor
   
End If
Next
stTmp = stTmp & "*** Fin (" & frmDump.Name & ")" & vbCrLf
' Retourne le texte
DumpFenetre = stTmp
End Function

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