Tracer une ligne sur un picturebox ou imprimer

**Finouli68** · 01/01/2012, 20h18

Bonjour,
je débute avec la programation en visualbasic. Je m'aide du cours qui est en postit du forum et qui est tres interessant.

Je viens vous demander des explications sur ce que je souhaiterais faire:

- J'ai créé un module qui permet de tracer une ligne :

Code :

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

1
2
3
4
5
Module MOD_tracer
    Sub tracer(ByVal g)
        g.DrawLine(Pens.Blue, 0, 0, 500, 300)
    End Sub
End Module

- En cliquant sur le bouton 1, je trace la ligne dans la picturebox PB1 :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Newbitmap As Bitmap = New Bitmap(500, 300)
        Dim g As Graphics = Graphics.FromImage(Newbitmap)
 
        Call tracer(g)
 
        PB1.Image = Newbitmap
    End Sub

- En cliquant sur le bouton 2, j'aimerai imprimer sur une feuille la ligne. J'ai donc rajouté un printdocument1 :

Code :

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

1
2
3
4
5
6
7
8
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Call tracer(g)
    End Sub
 
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        PrintDocument1.Print()
    End Sub

C'est sur ce point ou je bloque : Le logiciel ne veut pas lancer le module : Le nom "g" n'est pas déclaré. Mon probleme est que je ne comprends pas comment je dois déclarer g pour une impression avec l'imprimante par defaut.

Merci de vos réponses.

**MABROUKI** · 01/01/2012, 22h30

bonjour Finouli68.
IL examiner ta logique de code.
operation 1: tu as creer une Sub qui dessine un graphisme sur un bitmap.
operation 2: tu affiches ce bitmap dans un picturebox.
operation 3: mais au fait imprimer quoi ?.
Probablement le bitmap ou l'image du picturebox.C'est pareil dirais-tu.
Mais si j'appele la sub tracer je vais refaire le travail.
Alors imprimons le bitmap(ou le picturebox.image c'est pareil) ,il n' y a rien à modifier pratiquement:

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
37
 
 
 
Public Class Form1
	'declarer  ton Newbitmap dans la porte classe pour qu'il soit 
	'accessible dans Event PrintPage
	Private Newbitmap As Bitmap
 
	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		Newbitmap = New Bitmap(500, 300)
		Dim g = Graphics.FromImage(Newbitmap)
 
		Call tracer(g)
 
		Me.PictureBox1.Image = Newbitmap
	End Sub
 
	Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
		PrintDocument1.Print()
 
	End Sub
	Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
 
		'Si Newbitmap ne contient aucun graphisme retour 
		If Newbitmap Is Nothing Then Return
 
		' Dessine le Newbitmap
		e.Graphics.DrawImage(Newbitmap, e.Graphics.VisibleClipBounds)
 
		' c'est la derniere page .
		e.HasMorePages = False
 
 
	End Sub
 
 
End Class

Une 2eme methode "expeditive" consiste à eliminer le bouton 1
et le remplacer par une sub Utilite mais c'est pour les gens partisan du moindre effort:
code:

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 Form2
	'declarer  ton Newbitmap dans la porte classe pour qu'il soit 
	'accessible dans Event PrintPage
	Private Newbitmap As Bitmap
	'replace le button1
	Private Sub Utilite()
		Newbitmap = New Bitmap(500, 300)
		Dim g = Graphics.FromImage(Newbitmap)
 
		Call tracer(g)
 
		Me.PictureBox1.Image = Newbitmap
	End Sub
	'quand on clique sur button2 on trace et imprime d'un seul "coup" 
	Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
		Utilite()
		PrintDocument1.Print()
 
	End Sub
	Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
 
		'Si Newbitmap ne contient aucun graphisme retour 
		If Newbitmap Is Nothing Then Return
 
		' Dessine le Newbitmap
		e.Graphics.DrawImage(Newbitmap, e.Graphics.VisibleClipBounds)
 
		' c'est la derniere page .
		e.HasMorePages = False
 
 
	End Sub
 
 
End Class

bon code.....................

**Finouli68** · 02/01/2012, 20h17

Bonsoir,

merci pour votre réponses.

J'ai bein compris la méthode pour faire copier à l'imprimante le dessin de la picturebox.

Mais en fait ce que je voulais faire, c'est
- soit tracer la ligne du module sur la picturebox en cliquant sur un bouton (donc ça ça marche tres bien)

- Soit tracer la ligne du module sur l'imprimante par defaut de windows en cliquant sur un bouton.

c'est pour ça que j'ai crée le module.

En résumé :

Si je clique sur bouton 1, ce que le module contient est dessiné sur le picturebox.

Si je clique sur le bouton 2, ce que le module contient est imprimé.

**Pol63** · 02/01/2012, 22h17

sur un évènement la variable e contient souvent des trucs utiles pour l'évènement
pour l'évènement printpage, e contient un graphics, celui que tu cherches

Code :

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