Discussion :

[flodu91]

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 , j'ai donc trouvé ce code qui fonctionne trés trés bien :

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
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 , pourriez-vous m'aiguiller sur ce que je devrai ajouter ??

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

[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)

[flodu91]

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

Si je mets :

Code :

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

1
2
ElseIf TypeOf ctrl Is Picturebox Then
????

Je ne sais pas comment m'y prendre, je ne peut pas mettre :

Code :

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

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

[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é

[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é 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,

[Pol63]

Code :

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

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