VB2010 – Problème avec la méthode OnPaint d’un contrôle
Question
-
Bonjour à tous,
Au chapitre « Peinture et rendu personnalisés des contrôles » et à la rubrique «Contrôles dessinés par l'utilisateur » de l’aide de Visual Basic 2010, il est dit que pour modifier l’apparence graphique d’un contrôle il fallait substituer la méthode OnPaint de la classe de base par une expression du type :
Protected Overrides Sub OnPaint(pevent As System.Windows.Forms.PaintEventArgs)
MyBase.OnPaint(pevent)
…
End Sub
Tout cela semble simple mais si j’applique cette procédure à un contrôle « Button », voici ce qui arrive :
- En premier lieu le bouton n’a subi aucune transformation graphique, c’est le bouton original auquel je voudrais soustraire l’interface graphique d’origine pour la remplacer par une de mon choix.
- En second lieu j’ai appliqué une modification graphique à l’apparence du bouton en suivant la procédure indiquée ci-dessus, mais je constate que l’interface graphique d’origine est toujours présente alors que je pensais que celle-ci serait remplacée par la nouvelle ! Qu’ai-je mal interprété dans ce processus ?
- Enfin, en dernier lieu le bouton ainsi modifié ne se redessine pas après un redimensionnement du formulaire. Là aussi je pensais que ce processus était automatique. Peut-être est-ce lié au problème précédemment rencontré ?
Voilà, si une personne connait une solution ou bien avait une lecture à me conseiller je lui en serais gré. Merci d’avance
Voici le code que j’ai tapé pour obtenir ces résultats :
Public Class Form1
Sub New()
InitializeComponent()
Me.Text = "Rendu graphique d'un bouton"
Me.SetBounds(250, 20, 300, 150)
Me.Cursor = Cursors.Hand
Me.BackColor = Color.White
Me.SizeGripStyle = Windows.Forms.SizeGripStyle.Show
Me.ResizeRedraw = True
AddHandler Me.MouseDoubleClick, AddressOf Me.Close
' Initialisation du bouton
Dim b As New ButtonWithModifiedUI
Me.Controls.Add(b)
b.Size = New Size(150, 100)
b.Location = New Point(Me.ClientSize.Width / 2 - b.Width / 2, Me.ClientSize.Height / 2 - b.Height / 2)
b.BackColor = Color.LightGray
b.Text = "Bouton"
End Sub
End Class
Class ButtonWithModifiedUI
Inherits Button
Protected Overrides Sub OnPaint(pevent As System.Windows.Forms.PaintEventArgs)
MyBase.OnPaint(pevent)
Call OnPaintButton(pevent)
End Sub
Private Sub OnPaintButton(pevent As System.Windows.Forms.PaintEventArgs)
Dim sf As New StringFormat
sf.Alignment = StringAlignment.Center
sf.LineAlignment = StringAlignment.Center
pevent.Graphics.FillEllipse(Brushes.LightSalmon, pevent.ClipRectangle)
pevent.ClipRectangle.Inflate(-1, -1)
pevent.Graphics.DrawEllipse(Pens.Gray, pevent.ClipRectangle)
pevent.Graphics.DrawString("ButtonWithModifiedUI", New Font("Arial", 10), Brushes.Brown, pevent.ClipRectangle, sf)
End Sub
End Class
Bonnes fêtes de fin d’année à tous
Cordialement
SL
- Modifié Santa Lina mardi 30 décembre 2014 09:56
Toutes les réponses
-
Bonjour à tous,
Pour résoudre le problème de distorsion de l’image du bouton, j’ai créé un délégué avec une méthode Invoke pour appeler la méthode OnPaint du Control. Mais je rencontre un problème au niveau de l’initialisation de l’objet PaintEventArgs, celui-ci prend deux arguments obligatoires qui sont en lecture seule et je n’ai pas trouvé la méthode pour programmer ces arguments ! Peut-être que cette méthode n’est pas la bonne ?
Voici l’erreur telle qu’elle se présente :
Voici le code du processus:
Delegate Sub OnPaintDelegate(ByVal e As PaintEventArgs)
Private Sub Form1_Resize(sender As Object, e As System.EventArgs) Handles Me.Resize
' Redessine le boutton
Dim fr As New OnPaintDelegate(AddressOf b.OnPaintButton)
Dim pe As New PaintEventArgs With {.Graphics , .clipRect }
fr.Invoke(pe)
End SubPar ailleurs, j’ai remarqué que lors du survol du bouton par une autre fenêtre celui-ci n’était pas redessiné. Comment corriger ce problème ?
Par avance je remercie toutes les personnes qui pourront me donner leur avis.
Bonne fête de fin d’année
Cordialement
SL
- Modifié Santa Lina mercredi 31 décembre 2014 12:45
