'Me' n'est pas valide dans un module

Version imprimable

26/01/2011, 10h13
steakos78

'Me' n'est pas valide dans un module
Bonjour,
alors voici le problème :
Je créée des traits avec cette méthode :
Code:

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.
26/01/2011, 11h10
mactwist69

Ou se trouve la procédure CreatGraphics ?

Si elle est dans ton module, pas besoin de 'Me'
26/01/2011, 13h19
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...
26/01/2011, 13h31
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

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:

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

26/01/2011, 16h13
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:

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:

1 2 graph(Me)
Voilà j'espère que ça pourra aider d'autres personnes