Les boucles dans un seul source

Télécharger le projet
Commenter

Description

c'est quand même important d'expliquer à quoi sert votre code car le source contien tout les boucles ou meme projet

et ou meme facon et objet

profait le c'est comme meme bien

Source / Exemple : 


Private Sub Command2_Click()
Dim element As Object
For Each element In Controls
If TypeOf element Is TextBox Then
element.BackColor = vbBlue
End If
Next

End Sub

Private Sub Command3_Click()
Dim i As Integer
Dim s As String
For i = 0 To Me.Count - 1
s = s + Me.Controls(i).Name + vbLf
Next
MsgBox "nonbres d'objets dans la feuille est: " + vbLf + s
End Sub
Private Sub Command4_Click()
Dim i As Integer
Dim s As String
Do While i <= Me.Count - 1
s = s + Me.Controls(i).Name + vbLf
i = i + 1
Loop
MsgBox "voici la liste demande:" + vbLf + s
End Sub

Private Sub Command5_Click()
Dim i As Integer
Dim s As String
Do Until i = Me.Count
s = s + Me.Controls(i).Name + vbLf
i = i + 1
Loop
MsgBox "voici la liste demande:" + vbLf + s
End Sub

Private Sub Command6_Click()
Dim s As String
Dim element As Object
For Each element In Controls
s = s + element.Name + vbTab
Next
MsgBox s
End Sub

Conclusion :


et j vai pose des autre projet avec le temps ...et vraiment merci vbfrance
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.