Discussion :

[jeirag]

Bonjour,

J'ai un petit problème avec un picturebox.
J'ai une fonction, que j'aimerai mettre dans un module, avec un picturebox nommé graph
Lorsque je lance l'application après avoir mis ma fonction dans un module (module1), j'ai une erreur sur graph.cls (qui efface le contenu du picturebox)

pouvez-vos m'aider ?
Cordialement merci.

[ucfoutu]

Bonjour,

Voilà 2 façons (il y en a d'autres) de procéder :

Une Form avec une pictureBoix nommée graph et 2 boutons de commande Command1 et command2 (chacun montrant une manière) :

Code pour la Form :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Command1_Click()
 toto graph
End Sub
 
Private Sub Command2_Click()
  tata Me
End Sub

Code dans un module .bas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Public Sub toto(titi As PictureBox)
  titi.Line (0, 0)-(1000, 1000)
  MsgBox "on va effacer cette ligne"
  titi.Cls
End Sub
 
Public Sub tata(f As Form)
  f.graph.Line (0, 0)-(1000, 1000)
  MsgBox "on va effacer cette ligne"
  f.graph.Cls
End Sub

[jeirag]

ça marche maintenant

merci pour la réponse