Ajouter des "Apparences" et picturebox dans mon impression de panel

Version imprimable

Bonjour à tous les développeurs ;)

Je me suis mi à la programmation il y a peu et j'ai créé une petite application ou je souhaites imprimer un panel avec un autoscrollbar.

Mon panel contient uniquement des "labels" et des "picturebox", certains label possèdent un backcolor

Avec un peu de recherche sur mon amis google :P, j'ai donc trouvé ce code qui fonctionne trés trés bien :

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
Static page As Integer = 1
 
        Dim startPosition As Integer = (page - 1) * PrintDocument1.DefaultPageSettings.Bounds.Height
 
        Static maxPages As Integer = 0
 
        If page = 1 Then
 
            For Each ctrl As Control In Me.Panel1.Controls
 
                If TypeOf ctrl Is TextBox Or TypeOf ctrl Is Label Or TypeOf ctrl Is PictureBox Then
 
                    ctrl.Tag = Int((ctrl.Top + ctrl.Height) / PrintDocument1.DefaultPageSettings.Bounds.Height) + 1
 
                    If CInt(ctrl.Tag) > maxPages Then maxPages = CInt(ctrl.Tag)
 
                End If
 
            Next
 
        End If
 
        For Each ctrl As Control In Me.Panel1.Controls
 
            If val(ctrl.Tag) = page Then
 
                Dim sf As New System.Drawing.StringFormat
 
                If TypeOf ctrl Is TextBox Then
 
                    If DirectCast(ctrl, TextBox).TextAlign = HorizontalAlignment.Right Then
 
                        sf.Alignment = StringAlignment.Far
 
                    Else
 
                        sf.Alignment = StringAlignment.Near
 
                    End If
 
                ElseIf TypeOf ctrl Is Label Then
 
                    If DirectCast(ctrl, Label).TextAlign = ContentAlignment.TopLeft Then
 
                        sf.Alignment = StringAlignment.Near
 
                    ElseIf DirectCast(ctrl, Label).TextAlign = ContentAlignment.TopRight Then
 
                        sf.Alignment = StringAlignment.Far
 
                    End If
 
                End If
 
 
                sf.FormatFlags = StringFormatFlags.NoClip
 
                e.Graphics.DrawString(ctrl.Text, ctrl.Font, New SolidBrush(ctrl.ForeColor), New RectangleF(ctrl.Left, ctrl.Top - startPosition, ctrl.Width + 50, ctrl.Height), sf)
 
            End If
 
        Next
 
        page += 1
 
        If page > maxPages Then
 
            e.HasMorePages = False
 
            page = 1
 
            maxpages = 0
 
        Else
 
            e.HasMorePages = True
 
        End If

Je n'arrive pas à prendre en compte les picturebox et le "BackColor" des labels 8O, pourriez-vous m'aiguiller sur ce que je devrai ajouter ??

Merci d'avance à tous ceux qui pourront m'aider :ccool:

23/07/2012, 15h10
Pol63

le For Each ctrl As Control In Me.Panel1.Controls fait que ca va faire un tour de boucle pour chaque controle

If TypeOf ctrl Is TextBox Then
fait un traitement pour les textbox, il y a le même pour label mais pas pour picturebox
sur la première boucle tu as bien rajouté or typeof ctrl is picturebox, il faut rajouter un elseIf dans la 2ème boucle pour le traitement des picturebox en s'inspirant des autres

pour la couleur de fond, il faut faire e.Graphics.fillrectangle(pct.backcolor, New RectangleF(ctrl.Left, ctrl.Top - startPosition, ctrl.Width + 50, ctrl.Height))
(ou un truc dans le genre je n'ai pas en tête les paramètres de fillrectangle, mais ca doit demander une couleur, et un rectangle à peindre de cette couleur)

Merci pour ta réponse Pol63 :ccool:
En fait je ne sais pas comment traiter les picturebox :-(

Si je mets :
Code:

1 2 ElseIf TypeOf ctrl Is Picturebox Then ????
Je ne sais pas comment m'y prendre, je ne peut pas mettre :
Code:

1 2 3 4 5 6 7 8 9 10 11 ElseIf TypeOf ctrl Is Picturebox Then If DirectCast(ctrl, Picturebox).TextAlign = ContentAlignment.TopLeft Then sf.Alignment = StringAlignment.Near ElseIf DirectCast(ctrl, Picturebox).TextAlign = ContentAlignment.TopRight Then sf.Alignment = StringAlignment.Far End If
A quoi correspond "pct" dans e.Graphics.fillrectangle(pct.backcolor, New RectangleF(ctrl.Left, ctrl.Top - startPosition, ctrl.Width + 50, ctrl.Height))
??? (car il n'est pas déclaré)

Merci pour ton aide

23/07/2012, 15h52
Pol63

un cours à lire :

http://plasserre.developpez.com/cours/vb-net/

visiblement tu ne comprends pas le code que tu utilises, et ca ne servirait à rien qu'on te donne le code qui marche ... ca ne t'apprendrait pas à développer ...

après avec quelques notions d'anglais et un peu de logique tu dois comprendre que TextAlign sert à définir l'alignement du text, et sur ton picturebox il n'y a pas de texte (enfin c'est rarement le cas ^^) il n'y a pas ce code à mettre
chaque partie du if sert à définir ce qu'il y a à faire pour le type de controle spécifié
23/07/2012, 18h44
flodu91

Crois moi que j'essaye de le comprendre puis-ce que cela fais maintenant 1 semaine que je cherche une solution pour pouvoir integrer mes picturebox :(
C'est pour cela que j'ai pris l'initiative de m'inscrire sur le forum pour essayer d'avance car je me retrouve face à un mur.

Comme je l'ai dis dans mon 1er message je n'ai pas developpé ce code moi même Pol63 car je débute... mais j'essaye tant bien que mal de trouver des solutions pour y integrer mes images....
Le petit programme que je developpe me tiens vraiment à coeur et j'éspère vraiment pouvoir réussir à le complementer afin d'obtenir ce que je cherche pour l'impression.

Le cour de Philippe je l'ai bien évidement lu et même plusieurs fois afin d'y intégrer les notions de base. Le cour est trés bien fait et balaye beaucoup de chose, mais crois moi que quand on démarre ce n'est pas forcément évident d'adapter ces exemples avec ce que l'on souahites obtenir....

Concernant les picturebox, j'avais bien compris avec le "textAlign" que cela n'avait rien à voir ^^ c'est bien pour cela que je l'ai précisé :P car je ne sais pas comment le traiter tout simplement.

Disons que j'apprends et assimile plus facilement avec des exemples concrêt et je ne me suis pas inscris pour que l'on me "mâche" le travail sinon il n'y a aucun interet... mais pourrait-tu sans me donner "le code qui marche" me guider un peu plus pour que je puisse avancer ???

Trés cordialement,

Code:

1
2
3
4
ElseIf TypeOf ctrl Is PictureBox Then
   dim couleur as system.Drawing.color =   directcast(ctrl,picturebox).backcolor
   dim sb as new solidbrush(couleur)
   ' dessiner un rectangle de le pinceau (brush en anglais) via fillrectangle

http://msdn.microsoft.com/fr-fr/libr...=vs.80%29.aspx

23/07/2012, 21h06
flodu91

d'aprés ce que je comprend je suis obligé de créé des "rectangles" contenant la couleur que je veux sur chaque position des label concerné ?? 8O

Je pensai qu'il y aurai une fonction récupérant la syntaxe des labels avec leur BackColor pour que les dimensions des labels qui sont définis en fonction des résultats obtenu varient avec la dimension

En gros je créé un rectangle de dimension quelques, si le résultat du label est plus grand que le rectangle cela ne sert à rien...
Est-bien cela ?
23/07/2012, 21h26
Pol63

DrawString dessine un string sur un conteneur graphique (écran ou imprimante), qu'il vienne d'un label ou non
pour faire un rectangle coloré c'est FillRectangle
il n'y a pas plus à cogiter

pour faire le drawstring ca récupère lalabel.text
pour faire le fillrectangle à toi de récupérer lecontrol.backcolor
27/07/2012, 08h38
flodu91

Merci beaucoup pour tous ces conseils je vais continué mes recherches:ccool: