[VB6] pb avec fonction paramétrée

Bonjour j'ai ecris ceci
[code]Function TraceVanne2Voies(ByVal longueur1 As Integer, ByVal longueur2 As Integer, ByVal hauteur1 As Integer, ByVal hauteur2 As Integer)
    ScaleMode = vbPixels        'dessine en pixel
    ForeColor = vbBlack         'couleur trait en noir
    Line (hauteur1, longueur1)-(hauteur2, longueur1)
    Line (hauteur1, longueur1)-(hauteur2, longueur2)
    Line (hauteur2, longueur1)-(hauteur1, longueur2)
    Line (hauteur1, longueur2)-(hauteur2, longueur2)
    FillStyle = vbFSSolid       'la forme dessiné est un solide
End Function[/code]
et j'aimerai par le biais de 2 commandbutton , sincrementé la valeur de longueur1  , et decrementé la valeur de longueur2
mais impossible d'acceder au variable longueur1 , longueur2 , pk ???

aidez moi
merci d'avance
amicalement lucas

Salut,

longueur1 et longueur2 sont des variables passées en paramètres, elles n'ont aucune existence en dehors de ta fonction (qui devrait plutôt être une procédure puisqu'elle ne renvoit rien).



Pour réaliser ce que tu souhaites, il te faut créer deux variables globales :


Si tu ne possèdes qu'un formulaire :
Dim maLongueur1 As Integer
Dim maLongueur2 As Integer
Dim maHauteur1 As Integer
Dim maHauteur2 As Integer

Si tu veux l'inclure dans un module :
Public maLongueur1 As Integer
Public maLongueur2 As Integer
Public maHauteur1 As Integer
Public maHauteur2 As Integer


Ensuite, la création des évenements Click sur boutons :


Private Sub CommandButton1_Click()
maLongueur1=maLongueur1+1
TraceVanne2Voies maLongueur1, maLongueur2, maHauteur1, maHauteur2
End Sub


Private Sub CommandButton1_Click()
maLongueur2=maLongueur2-1
TraceVanne2Voies maLongueur1, maLongueur2, maHauteur1, maHauteur2
End Sub

Sub TraceVanne2Voies(ByVal longueur1 As Integer, ByVal longueur2 As Integer, ByVal hauteur1 As Integer, ByVal hauteur2 As Integer)
    ScaleMode = vbPixels        'dessine en pixel
    ForeColor = vbBlack         'couleur trait en noir
    FillStyle = vbFSSolid       'la forme dessiné est un solide
    Line (hauteur1, longueur1)-(hauteur2, longueur1)
    Line (hauteur1, longueur1)-(hauteur2, longueur2)
    Line (hauteur2, longueur1)-(hauteur1, longueur2)
    Line (hauteur1, longueur2)-(hauteur2, longueur2)
End Sub


Manu

salut manu , j'ai saisi ca dans ma page de code

Option Explicit
Dim longueur1 As Integer
Dim longueur2 As Integer
Dim hauteur1 As Integer
Dim hauteur2 As Integer

Function TraceVanne2Voies(ByVal longueur1 As Integer, ByVal longueur2 As Integer, ByVal hauteur1 As Integer, ByVal hauteur2 As Integer)
    ScaleMode = vbPixels        'dessine en pixel
    ForeColor = vbBlack         'couleur trait en noir
    Line (hauteur1, longueur1)-(hauteur2, longueur1)
    Line (hauteur1, longueur1)-(hauteur2, longueur2)
    Line (hauteur2, longueur1)-(hauteur1, longueur2)
    Line (hauteur1, longueur2)-(hauteur2, longueur2)
    FillStyle = vbFSSolid       'la forme dessiné est un solide
End Function

Private Sub Command1_Click(Index As Integer)
    Select Case Index
        Case 0
        longueur1 = longueur1 + 2
        longueur2 = longueur2 - 2
        TraceVanne2Voies longueur1, longueur2, hauteur1, hauteur2
        Case 1
        longueur1 = longueur1 - 2
        longueur2 = longueur2 + 2
        TraceVanne2Voies longueur1, longueur2, hauteur1, hauteur2
    End Select
End Sub

Private Sub Form_Paint()   
    TraceVanne2Voies CInt(50), CInt(350), CInt(100), CInt(300)   ' donne des valeurs aux 4 variables à l'initialisation
End Sub

le soucis est que lorsque je clique sur mes command bouttons , rien ce passe ....

PS : comment faire pour transformer ma fonction en procédure ??

En fait mes variables longueur1 et longueur2 de ma fonction TraceVanne2Voies ne sont pas actualisé .....
et mes incrémentations , decrémentations commence à 0 , et normalement il devrait comencer a 50 et 350 ?????

help please

Bonjour

Quelles sont les propriétés de ta form ? (Auto Redraw, DrawMode,DrawStyle..)

Utilise plutôt :

[Cpp]
Private Sub Form_Load()   
    TraceVanne2Voies CInt(50), CInt(350), CInt(100), CInt(300)   ' donne des valeurs aux 4 variables à l'initialisation
End Sub
[/cpp]

Au lieu de

[cpp]
Private Sub Form_Paint()   
    TraceVanne2Voies CInt(50), CInt(350), CInt(100), CInt(300)   ' donne des valeurs aux 4 variables à l'initialisation
End Sub
[/cpp]

Tes variables longueur1, longueur2, ... n'étaient pas initialisées, tout simplement.

merci PCPT pour la correction.


Manu

je suggererais plutôt comme ça:

Private Sub TraceVanne2Voies()
    Me.Cls
    Me.Line (longueur1, hauteur1)-(longueur2, hauteur2), , B
End Sub


Daniel