Les Snippets

Connexion

DONNER UNE VALEUR DANS L'ENSEMBLE D'UN MÊME TYPE DE CONTROLE

Niveau requis pour utiliser/comprendre cette source : 1 ( Débutant )
Créé le 30/12/2007 16:14:13 et initié par us_30 [Liste]
Vue : 3611
Catégorie(s) : Trucs & Astuces, Control, UserControl
Langages dispo pour ce code :
- VBA
- VB6



Langage : VBA
Date ajout : 30/12/2007
Posté par us_30 [Liste]
Property Let TypeControl(oObjet As Object, NameControl As String, _
            NamePropriete As String, ValuePropriete As Variant)
' DONNE UNE VALEUR A UNE PROPRIETE A L'ENSEMBLE D'UN TYPE DE CONTROLE
Dim cTypeControl As Control
For Each cTypeControl In oObjet.Controls
    If StrComp(TypeName(cTypeControl), NameControl, vbTextCompare) = 0 Then
        CallByName cTypeControl, NamePropriete, VbLet, ValuePropriete 
    End If
Next
Set cTypeControl = Nothing
End Property

' TEST ' ' Mettre une Frame (frame1) dans une userform (UserForm1) ' Remplir la Frame et l'UserForm avec des checkbox et textbox ' Mettre 2 boutons Private Sub CommandButton1_Click() 'Seules les éléments de Userform1.Frame1 sont concernés '(on pourrait aussi écrire Me.Frame1 si Me = Userform1) 'Coche toutes les checkbox TypeControl(UserForm1.Frame1, "checkbox", "value") = 1 'Rempli toutes les textbox TypeControl(UserForm1.Frame1, "textbox", "text") = "Frame1" End Sub Private Sub CommandButton2_Click() ' Me = toute la Userform1 'Vide les checkbox et les textbox TypeControl(Me, "checkbox", "value") = 0 TypeControl(Me, "textbox", "text") = vbNullString End Sub
Remarque :
TypeControl peut s'appliquer à tous les contrôles contenus dans une Userform chargée ou non.
Langage : VB6
Date ajout : 01/01/2008
Posté par us_30 [Liste]
Property Let TypeControl(oObjet As Object, NameContainer As String, NameControl As String, _ 
            NamePropriete As String, ValuePropriete As Variant) 
' DONNE UNE VALEUR A UNE PROPRIETE A L'ENSEMBLE D'UN TYPE DE CONTROLE 
 
Dim cTypeControl As Control 
 
For Each cTypeControl In oObjet.Controls 
    If StrComp(TypeName(cTypeControl), NameControl, vbTextCompare) = 0 Then 
        If NameContainer = vbNullString Then 
            CallByName cTypeControl, NamePropriete, VbLet, ValuePropriete 
        Else 
            On Error Resume Next 
            If StrComp(cTypeControl.Container, NameContainer, vbTextCompare) = 0 Then 
                If Err = 0 Then CallByName cTypeControl, NamePropriete, VbLet, ValuePropriete 
            End If 
        End If 
    End If 
Next 
 
Set cTypeControl = Nothing 
 
End Property
Remarque :
pour l'utiliser :
TypeControl(Me, vbNullString, "picturebox", "picture") = Nothing
TypeControl(Me, "", "checkbox", "value") = 0
TypeControl(Me, "Frame1", "Textbox", "Text") = vbNullString

On mettra vbnullstring ou "", pour que tous les contrôles de la feuille soient modifiés. On indiquera le "Conteneur", (Frame1), pour modifier que ceux contenus dans ce dernier.

Snippets en rapport avec : Control, Valeurs



Codes sources en rapport avec : Control, Valeurs

{Visual Basic, VB6, VB.NET, VB 2005} BACKGROUNDVIDEO.OCX
Comment mettre simplement un fond de fenêtre ou contrôle en vidéo (comme les DreamScenes sous Vista....

{Visual Basic, VB6, VB.NET, VB 2005} YATHZEE AVEC UN CONTROL "DÉ"
Voici un jeu de Yathzee assez agréable (je trouve) qui utilise un control "Dé" (fournit dans le Zip)...

{Visual Basic, VB6, VB.NET, VB 2005} OCX DE CARTE À JOUER AVEC PLEINS DE PROPRIÉTÉS UTILES
Cet OCX est tout simplement un controle "Carte" que vous pourrez utiliser si vous voulez créer un je...

{Visual Basic, VB6, VB.NET, VB 2005} MM CHECKBOX .NET V.2009 V4
Avec l'accord de Mayzz, code source original : http://www.vbfrance.com/code.aspx?ID=50771 Je post...

{Visual Basic, VB6, VB.NET, VB 2005} MM CHECKBOX .NET V.2009
C'est un contrôle basé sur une source existante de m_simohamed (en vb6) Voir ici => http://www.vb...

{Visual Basic, VB6, VB.NET, VB 2005} MM CHECKBOX .NET
Un simple contrôle sans prétentions, il fait référence à une source existante de m_simohamed. Cod...

{Visual Basic, VB6, VB.NET, VB 2005} GESTION PETIT COMPTE TITRE
Petit programme que j'ai essayé de faire pour mon compte personnel avec pas mal d'idée venant de vou...

{Visual Basic, VB6, VB.NET, VB 2005} LABEL ET IMAGE DANS TEXTBOX
une petite classe qui améliore la TextBox on ajoute un background label et une background picture ...

{Visual Basic, VB6, VB.NET, VB 2005} CONTROLE IMAGE ZOOM/DÉZOOM
Un petit control permettant de zoomer / dézoomer ainsi que de déplacer l'image, le tout à la souris....

{C# / C#.NET} LIBRAIRIE TRÈS COMPLETTE DE CONTROLS WINFORMS PERSONNALISÉS
Voici la dernière monture de ma librairie winform. Celle-ci contient une bonne trentaines de control...