Module "portes des étoiles"
Description
Voici un module capable de générer une porte des étoiles styles StraGate "SG1" ou "Atlantis"
Voila les options : X_Centre As Long, 'Donne la position du centre (Coordoné X)
Y_Centre As Long, 'Donne la position du centre (Coordoné X)
Rayon As Long, 'Donne le rayon du centre
DSGColor As Long, 'Donne la couleur des cercles
DPicture As PictureBox, 'La PictureBox dans laquelles on dessine la stargate
Optional DCHColor = &HC0C0C0, 'Donne la couleur les chevrons
Optional DAngle = 5, 'l'Angle pour fair tourner les "cases à glyph"
Optional Engage As Integer = 0, 'Engage donne le nombre de chevron engagé
Optional Non_Eng = &H808000, 'Donne la couleur de l'interieur les chevrons non engagé
Optional Eng = &HFFFF80 'Donne la couleur de l'interieur les chevrons engagé
Et bien d'autre à découvrir ...
Voila le zip
Voila les options : X_Centre As Long, 'Donne la position du centre (Coordoné X)
Y_Centre As Long, 'Donne la position du centre (Coordoné X)
Rayon As Long, 'Donne le rayon du centre
DSGColor As Long, 'Donne la couleur des cercles
DPicture As PictureBox, 'La PictureBox dans laquelles on dessine la stargate
Optional DCHColor = &HC0C0C0, 'Donne la couleur les chevrons
Optional DAngle = 5, 'l'Angle pour fair tourner les "cases à glyph"
Optional Engage As Integer = 0, 'Engage donne le nombre de chevron engagé
Optional Non_Eng = &H808000, 'Donne la couleur de l'interieur les chevrons non engagé
Optional Eng = &HFFFF80 'Donne la couleur de l'interieur les chevrons engagé
Et bien d'autre à découvrir ...
Source / Exemple :
j'ai enlevé le code le temps de le comenter !
Conclusion :
Voila le zip
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.