Fråga : Rubberbanding med den 2D rektangeln

Hälsningar och hälsningar: förmiddag för

I testar en rubberbandingmetod using 2D rektanglar i stället för drawreversiblerectangle, , sedan det finns ett lott mer alternativ med en rektangel. Emellertid jag vet inte nog om .NET-diagram för att lösa detta lite problem:

After som jag har dragit en rubberband, fodrar/rektangeln, mig lämnar på den onscreen för att ämna. När jag klickar för att starta another för att fodra eller rektangel, om jag väljer insida rektangeln (endera det osynliga rektangelinnehav fodra eller rubberbandrektangeln, ingenting händer. Musen klickar ignoreras, och jag vet inte why.

Apparently, rubberbanden anmärker har fångat musen. Jag försökte att tillfoga kodifierar till click<-/i>metoden för att rubberbanden ska dölja sig, men klicka för extrahjälp blev annoying.

Is där något annat som jag kunde göra för att avlägsna detta uppförande? förmiddag för

I using VS2005 w/VB.NET. BTW om någon kan använda någon del av mitt, kodifierar (liksom den är), dig är välkommen till it.

Thanks.

P.S.I som försöks för att överföra det helt, projekterar via VINANDET, men den File anknyter fungerar inte. Om du skulle något liknande detta, spara, svara här eller överför mig en e-post på [email protected]. (eller någon kunde berätta mig hur man upload spara här.), > för

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:

" codeBody " ' som är skriftlig vid schale (expert-utbyt eller [email protected]), Importer System.Drawing.Drawing2D Allmänhet klassificerar frmRubberband Const RubberLine = 0 Const RubberRect = 1 Const heltäckande = 0 Const rusar = 1 Dunkla StartPt som pekar Dunkla DrawToPt som pekar Dunkla LastPt som pekar Dunkel dwg som Boolean = falsk Dunkla Rubberband som Boolean = RubberLine Dunkla Linestyle som heltal = heltäckande Dunkla MyPen som nytt skrivar (Color.FromArgb (128, Color.Black), 1) Privat underfrmRubberband_Paint (den ByVal avsändaren som System.Object, ByVal e som System.Windows.Forms.PaintEventArgs) behandlar MyBase.Paint Dunkelt G som diagram = e.Graphics Dunkla MyBrush som nya SolidBrush (Color.FromArgb (128, 0, 0, 0)) Med 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) Avsluta med Avsluta suben Privat underfrmRubberband_MouseDown (den ByVal avsändaren som System.Object, ByVal e som System.Windows.Forms.MouseEventArgs) behandlar MyBase.MouseDown StartPt.X = e.X StartPt.Y = e.Y DrawToPt = StartPt LastPt = StartPt pbxRubberband.Show () dwg = True Avsluta suben Privat underfrmRubberband_MouseMove (den ByVal avsändaren som System.Object, ByVal e som System.Windows.Forms.MouseEventArgs) behandlar MyBase.MouseMove Om dwg därefter DrawToPt.X = e.X DrawToPt.Y = e.Y pbxRubberband.Show () RedrawRubberBand () Avsluta om Avsluta suben '======================================================================= '=, om rubberbanden målar över några, kontrollerar på bilda, går tillbaka = '= designfunktionsläget som är högert - klicka på rubberbanden och välj SEND_TO_BACK. = '======================================================================= Privata underRedrawRubberBand () Dunkel xStart, yStart, xEnd, yEnd som heltal Med pbxRubberband Om DrawToPt.X < StartPt.X därefter . Lämnat = DrawToPt.X . Bredd = StartPt.X - DrawToPt.X xStart = 0 xEnd =. Bredd - 1 Annars . Lämnat = StartPt.X . Bredd = DrawToPt.X - StartPt.X xStart =. Bredd - 1 xEnd = 0 Avsluta om Om DrawToPt.Y < StartPt.Y därefter . Överträffa = DrawToPt.Y . Höjd = StartPt.Y - DrawToPt.Y yStart = 0 yEnd =. Höjd - 1 Annars . Överträffa = StartPt.Y . Höjd = DrawToPt.Y - StartPt.Y yStart =. Höjd - 1 yEnd = 0 Avsluta om . Förnya () Om Rubberband = RubberLine därefter .CreateGraphics.DrawLine (MyPen, xStart, yStart, xEnd, yEnd) Annars 'dra en RubberRectangle Om chkbxShadedRectangle.Checked därefter .CreateGraphics.FillRectangle (MyPen.Brush, 0, 0. Bredd - 1. Höjd - 1) Annars .CreateGraphics.DrawRectangle (MyPen, 0, 0. Bredd - 1. Höjd - 1) Avsluta om Avsluta om Avsluta med LastPt = DrawToPt Avsluta suben Privat underfrmRubberband_MouseUp (den ByVal avsändaren som System.Object, ByVal e som System.Windows.Forms.MouseEventArgs) behandlar MyBase.MouseUp DrawToPt.X = e.X DrawToPt.Y = e.Y dwg = falskt Avsluta suben Privat underbtnLine_Click (den ByVal avsändaren som System.Object, ByVal e som System.EventArgs) behandlar btnLine.Click Rubberband = RubberLine RedrawRubberBand () Avsluta suben Privat underbtnRectangle_Click (den ByVal avsändaren som System.Object, ByVal e som System.EventArgs) behandlar btnRectangle.Click Rubberband = RubberRect RedrawRubberBand () Avsluta suben Privat underbtnSolidLine_Click (den ByVal avsändaren som System.Object, ByVal e som System.EventArgs) behandlar btnSolidLine.Click MyPen.DashStyle = DashStyle.Solid RedrawRubberBand () Avsluta suben Privat underbtnDashedLine_Click (den ByVal avsändaren som System.Object, ByVal e som System.EventArgs) behandlar btnDashedLine.Click MyPen.DashStyle = DashStyle.Dash RedrawRubberBand () Avsluta suben Privat updnLineWidthSelect_ValueChanged under (den ByVal avsändaren som System.Object, ByVal e som System.EventArgs) behandlar updnLineWidthSelect.ValueChanged MyPen.Width = updnLineWidthSelect.Value RedrawRubberBand () Avsluta suben Privat chkbxShadedRectangle_CheckedChanged under (den ByVal avsändaren som System.Object, ByVal e som System.EventArgs) behandlar chkbxShadedRectangle.CheckedChanged RedrawRubberBand () Avsluta suben 'Privat underpbxRubberband_Click (den ByVal avsändaren som System.Object, ByVal e som System.EventArgs) behandlar pbxRubberband.Click 'pbxRubberband.Hide () 'Avsluta suben Avsluta klassificerar " klar "

Svar : Rubberbanding med den 2D rektangeln

1) De är alla olika
2) 0
3) Nr.
4) Du behöver att underhålla bordlägga, genom att gå till varje tillstånds website (och många län) regelbundet, och hålla klassar aktuellt.

Det är varför denna är en specialtyaffär.  Jag har gjort redogöra integration för över 20 år, och jag skulle inte funderare av att göra detta jag själv, där är för många ansvar.  Många påstår har speciala kontor, och arbetare vars fulla tidjobb är att se till att skatter beräknas korrekt och du ska får bötfällde, om du inte gör den rätten.