Modifier une photo

Question

Salut. Voil&#224; je suis en train de faire un logiciel de foot, et mon soucis, c'est pour la page cr&#233;er un club. Sur cette page est r&#233;serv&#233; un petit rectangle avec un maillot blanc a l'int&#233;rieur. Comment faire pour que l'utilisateur modifie lui meme les couleurs du maillot (couleurs, banderoles, &#233;critures) lors de l'ex&#233;cution du programme. Alors je sais pas quel composant faut utiliser, et quel est le code &#224; mettre. Merci

gallyhc · Answer

Bonjour,

Voici un bout de code que je viens de te faire pour le maillot en lui m&#234;me. Il permet de le mettre a la taille que tu le veux et de change les coucleurs. 

Pour le moment tu as besoin d'une form "Form1" et d'un Command "Command1".

Ce code permet d'avoir un maillot simple en vectorielle et donc plus facile a modifier.

' TYPE UTILISISE PAR LA FUNCTION "GDI32.DLL".
Private Type POINTAPI
    X                                           As Long                 ' Position X de la souris.
    Y                                           As Long                 ' Position Y de la souris.
End Type


' DECLARATION DE LA FUNCTION "POLYGONE"
Private Declare Function Polygon Lib "gdi32.dll" (ByVal hdc As Long, lpPoint As POINTAPI, ByVal nCount As Long) As Long


Private Sub setCreateMaillot(ByVal sngZOOM As Single)
' DECLARATION DES VARIABLES.
    Dim lngI                    As Long
    Dim tpaTemps(&H0 To &HD)    As POINTAPI


' DATA DE CREATION DU MAILLOT.
    tpaTemps(&H0).X = 29
    tpaTemps(&H0).Y = 1
    tpaTemps(&H1).X = 51
    tpaTemps(&H1).Y = 1
    tpaTemps(&H2).X = 62
    tpaTemps(&H2).Y = 12
    tpaTemps(&H3).X = 73
    tpaTemps(&H3).Y = 1
    tpaTemps(&H4).X = 96
    tpaTemps(&H4).Y = 1
    tpaTemps(&H5).X = 123
    tpaTemps(&H5).Y = 16
    tpaTemps(&H6).X = 111
    tpaTemps(&H6).Y = 41
    tpaTemps(&H7).X = 95
    tpaTemps(&H7).Y = 33
    tpaTemps(&H8).X = 102
    tpaTemps(&H8).Y = 85
    tpaTemps(&H9).X = 22
    tpaTemps(&H9).Y = 85
    tpaTemps(&HA).X = 30
    tpaTemps(&HA).Y = 32
    tpaTemps(&HB).X = 14
    tpaTemps(&HB).Y = 40
    tpaTemps(&HC).X = 2
    tpaTemps(&HC).Y = 15
    tpaTemps(&HD).X = 29
    tpaTemps(&HD).Y = 1


' ZOOM POUR AGRANDIR LA TAILLE DU MAILLOT.
    For lngI = &H0 To &HD
        tpaTemps(lngI).X = tpaTemps(lngI).X * sngZOOM
        tpaTemps(lngI).Y = tpaTemps(lngI).Y * sngZOOM
    Next lngI


' CHANGEMENT DES COULEURS DU MAILLOT.
    Form1.ForeColor = RGB(255, 0, 0)
    Form1.FillColor = RGB(255, 255, 0)
    
' CREATION GRAPHIQUE DU MAILLOT.
    Call Polygon(Form1.hdc, tpaTemps(&H0), UBound(tpaTemps()))


End Sub


Private Sub Command1_Click()
' DECLARATION DES VARIABLES.
    Dim sngI                    As Single


' FAIT UN ZOOM SUR LE MAILLOT.
    For sngI = &H0 To &H4 Step 0.02
        Form1.Cls
        Call setCreateMaillot(sngI)
        DoEvents
    Next sngI


End Sub


Private Sub Form_Load()
' AFFICHAGE DU MAILLOT SUR LA FORM1.
    Call setCreateMaillot(4)


End Sub

@++
[Gally Home Corp]

gallyhc · Answer

Re, 

Au fait met ta form &#224; "AutoRedraw = True" 

@++
[Gally Home Corp]

Modifier une photo

2 réponses

Discussions similaires