Discussion :

[steakos78]

Bonjour,
alors voici le problème :
Je créée des traits avec cette méthode :

Code :

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

1
2
3
4
5
Public Sub graph()
Dim g as graphics = Me.CreateGraphics
mypen.Width=2
g.DrawLine(mypen, 0,630,1678,630)
End Sub

Cependant je le réutilise dans plusieurs pages, donc j'aurais souhaité le mettre dans un module ...
Problème on ne peut pas mettre de 'me' dans un module, et si je mets cette procédure en 'Public' dans une autre page, cela ne marche pas non plus.
J'ai trouvé comme solution de créer une classe, mais sans succès.
Si quelqu'un aurait une solution ...
Merci.

[mactwist69]

Ou se trouve la procédure CreatGraphics ?

Si elle est dans ton module, pas besoin de 'Me'

[steakos78]

Et bien ma procédure graph peut se trouver dans n'importe quelle page, peu importe.
Mais CreateGraphics est une méthode donc demande obligatoirement quelque chose devant le '.'
Donc si je ne mets pas de 'Me' ou de nom de feuille, cela ne marche pas.
De même si je mets le nom d'une feuille, les traits seront tracés seulement dans la feuille...

[Pol63]

me désigne l'instance de la classe dans laquelle le code s'exécute actuellement
en tapant me. ca te propose tous les membres de la classe
un module n'est pas une classe, donc tu ne peux pas faire me.
de plus tu as déjà pu faire me.Creategraphics car là où tu l'avais tapé, tu était sur un form et form a une méthode creategraphics, mais cette méthode n'est pas fait pour etre appelée de n'importe où, elle ne créé d'ailleurs pas un graphics, mais fournit un graphics lié au form

il y a des constructeurs shared sur la classe graphics
si c'est un graphics lié à une image c'est par exemple
dim g as graphics = graphics.fromimage(monbitmap)

si tu veux un graphics lié à un control, il faut demander le control en paramètre de ta méthode

[Geo2A]

Bonjour,

Creategraphics est une méthode relative à un contrôle (picturebox par exemple).
L'idée est donc de définir une classe avec une propriété de type graphics en lecture écriture. La ou les méthode de cette classe utiliseront l'objet graphics encapsulé, et l'affectation de cette propriété ce fera en fonction des besoins et du contrôle associé.

Exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
Public Class Mdc
 
Private mG As Graphics
    Public Property G() As Graphics
        Get
            Return mG
        End Get
        Set(ByVal value As Graphics)
            mG = value
        End Set
    End Property
Public Sub New(ByVal pict As PictureBox)
        mPicture = pict
        mG = mPicture.CreateGraphics
    End Sub
 
End Class
 
 
Private Sub FormGenerale_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
 
        mMDC = New Mdc(PictureBox1)
 
 
    End Sub
 
Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
        If mMDC Is Nothing Then Exit Sub
 
        mMDC.G = e.Graphics
' ici les méthodes de dessin
 
        mMDC.G = PictureBox1.CreateGraphics
    End Sub

[steakos78]

Problème résolu !
J'ai laissé la procédure dans le module mais cette fois je lui envoie la feuille en paramètre comme ceci

Code :

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

1
2
3
4
5
6
7
8
 
Public Sub graph (byval o as object)
Dim g as graphics = o.CreateGraphics
mypen.Width = 2 
With g
.DrawLine(mypen, ..., ..., ..., ...)
End With
End Sub

En l'appelant ainsi dans les Form

Code :

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

1
2
 
graph(Me)

Voilà j'espère que ça pourra aider d'autres personnes