[VB.net 2005] DrawRectangle

Bonjour,
Je vous soumet aujourd hui encore en cette belle matinée un nouveau problème de débutant que je suis.

J'essaie de dessiner un rectangle via code (y a un moyen de dessiner un rectangle vide, donc transparent au milieu, via le mode design ?)

Voila mon code :

Code:

---

1 2 3 4 5 6 7 8 9

Imports System.Drawing ... PrivateSub frm_dossier_Shown(ByVal sender AsObject, ByVal e As System.EventArgs) HandlesMe.Shown Dim g As Graphics g = Me.CreateGraphics g.DrawRectangle(New Pen(Color.Black), 5, 5, 200, 200) EndSub

---

et une erreur il doit y avoir étant donné que mon rectangle ne s'affiche pas :(

Ai-je commis une faute grave ???

Merci d'avance pour votre aide

- surcharge le paint de ta form
- dans les paramètres, tu auras un e
- prends le e.graphics pour dessiner

Code:

---

1 2 3 4 5

PrivateSub Form1_Paint(ByVal sender AsObject, ByVal e As System.Windows.Forms.PaintEventArgs) HandlesMyBase.Paint e.Graphics.DrawRectangle (...) EndSub

---

Ok ça marche

merci bien pour ton aide.

Autre question, est-ce possible de dessiner un rectangle au premier plan ??? (donc au dessus des autres controles)

je pense que si tu dessines ton rectangle dans un controle (picturebox?) qui se trouve en premier plan, ca devrait marcher

oui c'est possible.
Le plus simple est de faire un control perso qui affiche ton rectangle

mais je pourrais pas cliquer a travers ?

J'ai essayer de commencer une fonction qui afficherais 4 lignes (haut, bas, gauche, droite) pour que je puisse cliquer à travers :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

PublicSub encadrer(ByVal ctr_left AsInteger, ByVal ctr_top AsInteger, ByVal ctr_width AsInteger, ByVal ctr_height AsInteger) Dim haut AsNew PictureBox Dim trait As Graphics Dim haut_gauche AsNew Point(ctr_left, ctr_top) Dim haut_droite AsNew Point(ctr_left + ctr_width, ctr_top) haut.Left = ctr_left haut.Top = ctr_top haut.Width = ctr_width haut.Height = 1 trait = haut.CreateGraphics trait.DrawLine(New Pen(Color.Black), haut_gauche, haut_droite) haut.BringToFront() EndSub

---

Code:

---

1 2 3 4 5

PrivateSub frm_dossier_Paint(ByVal sender AsObject, ByVal e As System.Windows.Forms.PaintEventArgs) HandlesMe.Paint encadrer(Me.lst_sexe.Left - 1, Me.lst_sexe.Top - 1, Me.lst_sexe.Width + 1, Me.lst_sexe.Height + 1) EndSub

---

mais cela ne me donne rien, une idée pourquoi ???

merci pour votre aide

oui encadrer doit travailler avec le graphics que t'as passé paint

mais en faisant avec e je pourrais aussi mettre au premier plan ???

Tu veux faire quoi exatement ? (et que doit faire ton appli?)

encadrer une combox (qui est en flat (donc bordure transparente)) comme ça on a l'impression que c'est comme les autres controles flat. j'ai essayé de mettre dessous, mais ça fait pas bien parce qu'il y a toujours un pixel blanc entre la combo et la bordure.

ah ok! Mais là tu allais faire une erreur d'architecture. si tu veux modifier la combobox, il est beaucoup plus propre de faire un controle dérivé den combobox et de surcharger les méthodes que tu veux modifier.
regarde ici tu devrais y trouver ton bonheur
http://www.codeproject.com/vb/net/flatcombobox.asp