[VB.net 2005] DrawRectangle

**PoZZyX** · 05/05/2006, 08h58

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 :

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

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

AP · 05/05/2006, 09h08

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

Code :

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

1
2
3
4
5

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

**PoZZyX** · 05/05/2006, 09h28

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)

AP · 05/05/2006, 10h53

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

**PoZZyX** · 05/05/2006, 11h13

mais je pourrais pas cliquer a travers ?

**PoZZyX** · 05/05/2006, 13h30

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

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
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 :

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

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