Creation auto d'un objet

Description

ahah l'aveugle est de retour toujours dans la lignée je m'emmerde voila un petit code à 0,5 euro pour les gars comme moi ki s'emmerdent

Source / Exemple :


Private Sub Form_Activate()

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''d'abord on fait copier coller sur un objet pour definir un groupe de controle et : ''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Dim i As Integer 'on declare sa valeur

For i = 1 To 9 ' on repete 9 fois l'operation ou plus

Load Text1(i) ' on charge nos boite en mémoire

Text1(i).Top = Text1(i - 1).Top + 500 ' on les place les unes en dessous des autres

Text1(i).Visible = True ' on les rends visible

Next i ' on fini la boucle et hop

End Sub

Conclusion :


ca peut toujours servir pour un jeu ou autre (nombre de player ...) et en plus y'a le zip !! ca merite bien un 4/10 ca non ?

Codes Sources

A voir également

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.