class= " lineNumbers " de
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 :
79 :
80 :
81 :
82 :
83 :
84 :
85 :
86 :
87 :
88 :
89 :
90 :
91 :
92 :
93 :
94 :
95 :
96 :
97 :
98 :
99 :
100 :
101 :
102 :
103 :
104 :
105 :
106 :
107 :
108 :
109 :
110 :
111 :
112 :
113 :
114 :
115 :
116 :
117 :
118 :
119 :
120 :
121 :
122 :
123 :
124 :
125 :
126 :
127 :
128 :
129 :
130 :
131 :
132 :
133 :
134 :
135 :
136 :
137 :
138 :
139 :
140 :
141 :
142 :
143 :
144 :
145 :
146 :
147 :
148 :
149 :
150 :
151 :
152 :
153 :
154 :
155 :
156 :
157 :
158 :
159 :
160 :
161 :
162 :
163 :
164 :
165 :
166 :
|
class= de
id= " codeSnippet829500 " class= " de ' écrit par le schale (expert-échanger ou [email protected])
Importations System.Drawing.Drawing2D
frmRubberband public de classe
Const RubberLine = 0
Const RubberRect = 1
Solide de Const = 0
Const se précipite = 1
Faible StartPt comme point
Faible DrawToPt comme point
Faible LastPt comme point
Faible dwg comme booléen = faux
Faible Rubberband en tant que booléen = RubberLine
Faible Linestyle comme nombre entier = solide
Faible MyPen en tant que nouveau stylo (Color.FromArgb (128, Color.Black), 1)
Le frmRubberband_Paint secondaire privé (expéditeur de ByVal comme System.Object, ByVal e comme System.Windows.Forms.PaintEventArgs) manipule MyBase.Paint
Faible g comme graphiques = e.Graphics
Faible MyBrush en tant que nouveau SolidBrush (Color.FromArgb (128, 0, 0, 0))
Avec g
'MyBrush.Color = Color.FromArgb (128, Color.Red)
'.FillEllipse (MyBrush, 50, 50, 100, 50)
'MyBrush.Color = Color.FromArgb (128, Color.Green)
'.FillEllipse (MyBrush, 100, 75, 100, 50)
'MyBrush.Color = Color.FromArgb (128, Color.Blue)
'.FillEllipse (MyBrush, 150, 100, 100, 50)
'MyBrush.Color = Color.FromArgb (128, Color.White)
'.FillEllipse (MyBrush, 200, 120, 100, 50)
.FillEllipse (Brushes.Red, 10, 10, 100, 50)
.FillEllipse (Brushes.Green, 60, 60, 100, 50)
.SmoothingMode = SmoothingMode.AntiAlias
.FillEllipse (Brushes.Blue, 110, 110, 100, 50)
.FillEllipse (Brushes.White, 160, 160, 100, 50)
Extrémité avec
Sous-marin d'extrémité
Le frmRubberband_MouseDown secondaire privé (expéditeur de ByVal comme System.Object, ByVal e comme System.Windows.Forms.MouseEventArgs) manipule MyBase.MouseDown
StartPt.X = e.X
StartPt.Y = e.Y
DrawToPt = StartPt
LastPt = StartPt
pbxRubberband.Show ()
le dwg = rectifient
Sous-marin d'extrémité
Le frmRubberband_MouseMove secondaire privé (expéditeur de ByVal comme System.Object, ByVal e comme System.Windows.Forms.MouseEventArgs) manipule MyBase.MouseMove
Si dwg alors
DrawToPt.X = e.X
DrawToPt.Y = e.Y
pbxRubberband.Show ()
RedrawRubberBand ()
Finir si
Finir le sous-marin
'=======================================================================
'= si les peintures de rubberband au-dessus de n'importe quelles commandes sur la forme, retournent =
'= mode de conception, droite - cliquer dessus le rubberband et choisir SEND_TO_BACK. =
'=======================================================================
RedrawRubberBand secondaire privé ()
Faible xStart, yStart, xEnd, yEnd comme nombre entier
Avec le pbxRubberband
Si DrawToPt.X < puis StartPt.X
. Gauche = DrawToPt.X
. Largeur = StartPt.X - DrawToPt.X
xStart = 0
xEnd =. Largeur - 1
Autrement
. Gauche = StartPt.X
. Largeur = DrawToPt.X - StartPt.X
xStart =. Largeur - 1
xEnd = 0
Finir si
Si DrawToPt.Y < puis StartPt.Y
. Dessus = DrawToPt.Y
. Taille = StartPt.Y - DrawToPt.Y
yStart = 0
yEnd =. Taille - 1
Autrement
. Dessus = StartPt.Y
. Taille = DrawToPt.Y - StartPt.Y
yStart =. Taille - 1
yEnd = 0
Finir si
. Régénérer ()
Si Rubberband = puis RubberLine
.CreateGraphics.DrawLine (MyPen, xStart, yStart, xEnd, yEnd)
Autrement 'dessiner un RubberRectangle
Si chkbxShadedRectangle.Checked alors
.CreateGraphics.FillRectangle (MyPen.Brush, 0, 0. Largeur - 1. Taille - 1)
Autrement
.CreateGraphics.DrawRectangle (MyPen, 0, 0. Largeur - 1. Taille - 1)
Finir si
Finir si
Finir avec
LastPt = DrawToPt
Sous-marin d'extrémité
Le frmRubberband_MouseUp secondaire privé (expéditeur de ByVal comme System.Object, ByVal e comme System.Windows.Forms.MouseEventArgs) manipule MyBase.MouseUp
DrawToPt.X = e.X
DrawToPt.Y = e.Y
dwg = faux
Sous-marin d'extrémité
Le btnLine_Click secondaire privé (expéditeur de ByVal comme System.Object, ByVal e comme System.EventArgs) manipule btnLine.Click
Rubberband = RubberLine
RedrawRubberBand ()
Sous-marin d'extrémité
Le btnRectangle_Click secondaire privé (expéditeur de ByVal comme System.Object, ByVal e comme System.EventArgs) manipule btnRectangle.Click
Rubberband = RubberRect
RedrawRubberBand ()
Sous-marin d'extrémité
Le btnSolidLine_Click secondaire privé (expéditeur de ByVal comme System.Object, ByVal e comme System.EventArgs) manipule btnSolidLine.Click
MyPen.DashStyle = DashStyle.Solid
RedrawRubberBand ()
Sous-marin d'extrémité
Le btnDashedLine_Click secondaire privé (expéditeur de ByVal comme System.Object, ByVal e comme System.EventArgs) manipule btnDashedLine.Click
MyPen.DashStyle = DashStyle.Dash
RedrawRubberBand ()
Sous-marin d'extrémité
Secondaire privé updnLineWidthSelect_ValueChanged (expéditeur de ByVal comme System.Object, ByVal e comme System.EventArgs) manipule updnLineWidthSelect.ValueChanged
MyPen.Width = updnLineWidthSelect.Value
RedrawRubberBand ()
Sous-marin d'extrémité
Secondaire privé chkbxShadedRectangle_CheckedChanged (expéditeur de ByVal comme System.Object, ByVal e comme System.EventArgs) manipule chkbxShadedRectangle.CheckedChanged
RedrawRubberBand ()
Sous-marin d'extrémité
'Le pbxRubberband_Click secondaire privé (expéditeur de ByVal comme System.Object, ByVal e comme System.EventArgs) manipule pbxRubberband.Click
'pbxRubberband.Hide ()
'Sous-marin d'extrémité
Classe d'extrémité
|
