Form zeichnet UserControl nicht

  • VB.NET

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von sirblacksoul.

    Form zeichnet UserControl nicht

    Guten Tag,
    ich möchte ein UserControl schreiben das ich auch zur Laufzeit resizen kann, das funktioniert soweit auch, nur das einzigste Problem ist, das er jetzt nicht mehr meine Form zeichnet, könntet ihr mir vielleicht verraten warum?





    VB.NET-Quellcode

    1. Public Class UserControl1
    2. Private cl_cmsLabel As New ContextMenuStrip
    4. Private WithEvents cl_Control As Control
    5. Private WithEvents cl_OwnerForm As Form
    6. Private cl_nGRS As Integer = 6
    7. Private cl_bInResizeMode As Boolean
    8. Private cl_bMoveControl As Boolean
    9. Private cl_pLastMousePos As Point
    10. Private cl_nMinWidth As Integer = 20
    11. Private cl_nMinHeigth As Integer = 20
    12. Private cl_bActive As Boolean
    14. Private cl_cGrabRects() As Control = { _
    15. New Control, _
    16. New Control, _
    17. New Control, _
    18. New Control, _
    19. New Control, _
    20. New Control, _
    21. New Control, _
    22. New Control}
    24. Public Sub Deactivate()
    25. RemoveHandler cl_OwnerForm.Paint, AddressOf ControlPaint
    27. RemoveHandler cl_Control.MouseMove, AddressOf ControlMouseMove
    28. cl_Control.Cursor = Cursors.Default
    30. For nCount As Integer = 0 To cl_cGrabRects.Length - 1
    31. RemoveHandler cl_cGrabRects(nCount).Paint, AddressOf GrabRectPaint
    32. RemoveHandler cl_cGrabRects(nCount).MouseClick, AddressOf GrabRectMouseClick
    33. RemoveHandler cl_cGrabRects(nCount).MouseMove, AddressOf GrabRectMouseMove
    34. RemoveHandler cl_cGrabRects(nCount).MouseDown, AddressOf GrabRectMouseDown
    35. RemoveHandler cl_cGrabRects(nCount).MouseUp, AddressOf GrabRectMouseUp
    36. RemoveHandler cl_cGrabRects(nCount).Move, AddressOf GrabRectMove
    38. cl_cGrabRects(nCount).Visible = False
    39. Next
    41. cl_bActive = False
    42. cl_OwnerForm.Refresh()
    43. End Sub
    45. Sub New(ByVal frmOwnerForm As Form)
    46. cl_Control = Me
    47. cl_OwnerForm = frmOwnerForm
    48. End Sub
    50. Public Sub Activate()
    51. AddHandler cl_OwnerForm.Paint, AddressOf ControlPaint
    53. AddHandler cl_Control.MouseMove, AddressOf ControlMouseMove
    55. cl_Control.Cursor = Cursors.SizeAll
    57. For nCount As Integer = 0 To cl_cGrabRects.Length - 1
    58. AddHandler cl_cGrabRects(nCount).Paint, AddressOf GrabRectPaint
    59. AddHandler cl_cGrabRects(nCount).MouseClick, AddressOf GrabRectMouseClick
    60. AddHandler cl_cGrabRects(nCount).MouseMove, AddressOf GrabRectMouseMove
    61. AddHandler cl_cGrabRects(nCount).MouseDown, AddressOf GrabRectMouseDown
    62. AddHandler cl_cGrabRects(nCount).MouseUp, AddressOf GrabRectMouseUp
    63. AddHandler cl_cGrabRects(nCount).Move, AddressOf GrabRectMove
    65. cl_cGrabRects(nCount).Visible = True
    66. Next
    68. cl_bActive = True
    69. cl_OwnerForm.Refresh()
    70. End Sub
    72. Private Sub ControlMouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Me.MouseDown
    73. If e.Button = Windows.Forms.MouseButtons.Left Then
    74. cl_bMoveControl = True
    75. cl_pLastMousePos = New Point(e.X, e.Y)
    77. For nCount As Integer = 0 To cl_cGrabRects.Length - 1
    78. If cl_bActive = True Then cl_cGrabRects(nCount).Visible = False
    79. Next
    81. cl_OwnerForm.Refresh()
    82. ElseIf e.Button = Windows.Forms.MouseButtons.Right Then
    83. AddHandler cl_cmsLabel.Opening, AddressOf cmsLabel_Opening
    84. ContextMenuStrip = cl_cmsLabel
    85. End If
    86. End Sub
    88. Private Sub ControlMouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) 'Handles Me.MouseMove
    89. If cl_bMoveControl = True Then
    90. cl_Control.Left = cl_Control.Left + e.X - cl_pLastMousePos.X
    91. cl_Control.Top = cl_Control.Top + e.Y - cl_pLastMousePos.Y
    92. cl_OwnerForm.Refresh()
    93. End If
    94. End Sub
    96. Private Sub ControlMouseUp(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Me.MouseUp
    97. cl_bMoveControl = False
    99. For nCount As Integer = 0 To cl_cGrabRects.Length - 1
    100. If cl_bActive = True Then cl_cGrabRects(nCount).Visible = True
    101. Next
    103. cl_OwnerForm.Refresh()
    104. End Sub
    106. Private Sub cmsLabel_Opening(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs)
    107. cl_cmsLabel.Items.Clear()
    109. If cl_bActive = False Then
    110. cl_cmsLabel.Items.Add("Activate Control", Nothing, New System.EventHandler(AddressOf SelectedChildMenu_OnClick))
    111. Else
    112. cl_cmsLabel.Items.Add("Deactivate Control", Nothing, New System.EventHandler(AddressOf SelectedChildMenu_OnClick))
    113. End If
    115. RemoveHandler cl_cmsLabel.Opening, AddressOf cmsLabel_Opening
    117. e.Cancel = False
    118. End Sub
    120. Private Sub SelectedChildMenu_OnClick(ByVal sender As Object, ByVal e As System.EventArgs)
    121. If sender.ToString = "Activate Control" Then
    122. Activate()
    123. ElseIf sender.ToString = "Deactivate Control" Then
    124. Deactivate()
    125. End If
    126. End Sub
    128. Public Sub ControlPaint(ByVal sender As Object, ByVal e As PaintEventArgs)
    129. If cl_bInResizeMode = True Or cl_bMoveControl = True Then Exit Sub
    130. With e.Graphics
    131. 'Rahmen
    132. .DrawRectangle(Pens.Gray, New Rectangle( _
    133. cl_Control.Location.X - (cl_nGRS / 2), _
    134. cl_Control.Location.Y - (cl_nGRS / 2), _
    135. cl_Control.Width + cl_nGRS, _
    136. cl_Control.Height + cl_nGRS))
    138. 'Positionen für die Rects in der Reihenfolge:
    139. 'TopLeft, TopMiddle, TopRight, MiddleLeft, MiddleRight, BottomLeft,BottomMiddle,BottomRight
    140. Dim GrabRectPos() As Point = { _
    141. New Point(cl_Control.Location.X - cl_nGRS, cl_Control.Location.Y - cl_nGRS), _
    142. New Point(cl_Control.Location.X + (cl_Control.Width / 2) - (cl_nGRS / 2), cl_Control.Location.Y - cl_nGRS), _
    143. New Point(cl_Control.Location.X + cl_Control.Width, cl_Control.Location.Y - cl_nGRS), _
    144. New Point(cl_Control.Location.X - cl_nGRS, cl_Control.Location.Y + (cl_Control.Height / 2) - (cl_nGRS / 2)), _
    145. New Point(cl_Control.Location.X + (cl_Control.Width), cl_Control.Location.Y + (cl_Control.Height / 2) - (cl_nGRS / 2)), _
    146. New Point(cl_Control.Location.X - cl_nGRS, cl_Control.Location.Y + (cl_Control.Height)), _
    147. New Point(cl_Control.Location.X + (cl_Control.Width / 2) - (cl_nGRS / 2), cl_Control.Location.Y + (cl_Control.Height)), _
    148. New Point(cl_Control.Location.X + cl_Control.Width, cl_Control.Location.Y + (cl_Control.Height))}
    150. For nCount As Integer = 0 To cl_cGrabRects.Length - 1
    151. cl_cGrabRects(nCount).Location = GrabRectPos(nCount)
    152. cl_cGrabRects(nCount).Size = New Size(cl_nGRS, cl_nGRS)
    153. cl_cGrabRects(nCount).BackColor = Color.LightGray
    154. cl_cGrabRects(nCount).Parent = cl_OwnerForm
    155. Next
    157. End With
    161. End Sub
    163. Private Sub GrabRectPaint(ByVal sender As Object, ByVal e As PaintEventArgs)
    164. e.Graphics.DrawRectangle(Pens.Black, New Rectangle(0, 0, cl_nGRS - 1, cl_nGRS - 1))
    165. End Sub
    167. Private Sub GrabRectMove(ByVal sender As Object, ByVal e As System.EventArgs)
    168. Dim cCurrControl As Control = CType(sender, Control)
    169. Dim nIndex As Integer = GetCurrIndex(sender)
    170. End Sub
    172. Private Sub GrabRectMouseClick(ByVal sender As Object, ByVal e As MouseEventArgs)
    173. Dim cCurrControl As Control = CType(sender, Control)
    174. Dim nIndex As Integer = GetCurrIndex(sender)
    175. End Sub
    177. Private Sub GrabRectMouseMove(ByVal sender As Object, ByVal e As MouseEventArgs)
    178. Dim cCurrControl As Control = CType(sender, Control)
    179. Dim nIndex As Integer = GetCurrIndex(sender)
    180. Dim MousePos As Point
    181. Static cnRight As Integer
    182. Static cnBottom As Integer
    184. Select Case nIndex
    185. Case 0 : cCurrControl.Cursor = Cursors.SizeNWSE
    186. Case 1 : cCurrControl.Cursor = Cursors.SizeNS
    187. Case 2 : cCurrControl.Cursor = Cursors.SizeNESW
    189. Case 3 : cCurrControl.Cursor = Cursors.SizeWE
    190. Case 4 : cCurrControl.Cursor = Cursors.SizeWE
    192. Case 5 : cCurrControl.Cursor = Cursors.SizeNESW
    193. Case 6 : cCurrControl.Cursor = Cursors.SizeNS
    194. Case 7 : cCurrControl.Cursor = Cursors.SizeNWSE
    195. End Select
    197. If cl_bInResizeMode = True Then
    198. MousePos = cl_OwnerForm.PointToClient(Windows.Forms.Cursor.Position)
    199. cCurrControl.Left = cl_OwnerForm.PointToClient(Windows.Forms.Cursor.Position).X 'cCurrControl.Left + e.X
    200. cCurrControl.Top = cl_OwnerForm.PointToClient(Windows.Forms.Cursor.Position).Y 'cCurrControl.Top + e.Y
    202. Dim nTmpHeigth As Integer
    203. Dim nTmpWidth As Integer
    204. Dim nTmpDelta As Integer
    206. Select Case nIndex
    207. Case 0 'TopLeft GrabButton
    208. nTmpDelta = cl_Control.Top - cCurrControl.Top
    209. nTmpHeigth = cl_Control.Height + nTmpDelta
    211. nTmpDelta = cl_Control.Left - cCurrControl.Left
    212. nTmpWidth = cl_Control.Width + nTmpDelta
    214. If nTmpHeigth < cl_nMinHeigth Then Exit Select
    215. If nTmpWidth < cl_nMinWidth Then Exit Select
    217. cl_Control.Size = New Size(nTmpWidth, nTmpHeigth)
    218. cl_Control.Top = cCurrControl.Top
    219. cl_Control.Left = cCurrControl.Left
    221. Case 1 'TopMiddle GrabButton
    222. nTmpDelta = cl_Control.Top - cCurrControl.Top
    223. nTmpHeigth = cl_Control.Height + nTmpDelta
    225. If nTmpHeigth < cl_nMinHeigth Then Exit Select
    227. cl_Control.Height = nTmpHeigth
    228. cl_Control.Top = cCurrControl.Top
    230. Case 2 'TopRight GrabButton
    231. nTmpDelta = cl_Control.Top - cCurrControl.Top
    232. nTmpHeigth = cl_Control.Height + nTmpDelta
    234. nTmpWidth = cCurrControl.Left - cl_Control.Left
    236. If nTmpHeigth < cl_nMinHeigth Then Exit Select
    237. If nTmpWidth < cl_nMinWidth Then nTmpWidth = cl_nMinWidth
    239. cl_Control.Size = New Size(nTmpWidth, nTmpHeigth)
    240. cl_Control.Top = cCurrControl.Top
    242. Case 3 'MiddleLeft GrabButton
    243. nTmpDelta = cl_Control.Left - cCurrControl.Left
    244. nTmpWidth = cl_Control.Width + nTmpDelta
    246. If nTmpWidth < cl_nMinWidth Then Exit Select
    248. cl_Control.Width = nTmpWidth
    249. cl_Control.Left = cCurrControl.Left
    251. Case 4 'MiddleRight GrabButton
    252. nTmpWidth = cl_cGrabRects(4).Left - cl_Control.Left
    254. If nTmpWidth < cl_nMinWidth Then nTmpWidth = cl_nMinWidth
    256. cl_Control.Width = nTmpWidth
    258. Case 5 'BottomLeft GrabButton
    259. nTmpHeigth = cCurrControl.Top - cl_Control.Top
    260. nTmpDelta = cl_Control.Left - cCurrControl.Left
    261. nTmpWidth = cl_Control.Width + nTmpDelta
    263. If nTmpHeigth < cl_nMinHeigth Then nTmpHeigth = cl_nMinHeigth
    264. If nTmpWidth < cl_nMinWidth Then Exit Select
    266. cl_Control.Size = New Size(nTmpWidth, nTmpHeigth)
    267. cl_Control.Left = cCurrControl.Left
    269. Case 6 'BottomMiddle GrabButton
    270. nTmpHeigth = cCurrControl.Top - cl_Control.Top
    272. If nTmpHeigth < cl_nMinHeigth Then nTmpHeigth = cl_nMinHeigth
    274. cl_Control.Height = nTmpHeigth
    276. Case 7 'BottomcnRight GrabButton
    277. nTmpHeigth = cCurrControl.Top - cl_Control.Top
    278. nTmpWidth = cCurrControl.Left - cl_Control.Left
    280. If nTmpHeigth < cl_nMinHeigth Then nTmpHeigth = cl_nMinHeigth
    281. If nTmpWidth < cl_nMinWidth Then nTmpWidth = cl_nMinWidth
    283. cl_Control.Size = New Size(nTmpWidth, nTmpHeigth)
    285. End Select
    286. cl_OwnerForm.Refresh()
    287. Else
    288. cnRight = cl_Control.Right
    289. cnBottom = cl_Control.Bottom
    290. End If
    291. End Sub
    293. Private Sub GrabRectMouseDown(ByVal sender As Object, ByVal e As MouseEventArgs)
    294. cl_bInResizeMode = True
    295. For nCount As Integer = 0 To cl_cGrabRects.Length - 1
    296. cl_cGrabRects(nCount).Visible = False
    297. Next
    298. cl_OwnerForm.Refresh()
    299. End Sub
    301. Private Sub GrabRectMouseUp(ByVal sender As Object, ByVal e As MouseEventArgs)
    302. cl_bInResizeMode = False
    303. For nCount As Integer = 0 To cl_cGrabRects.Length - 1
    304. cl_cGrabRects(nCount).Visible = True
    305. Next
    306. cl_OwnerForm.Refresh()
    307. End Sub
    309. Private Function GetCurrIndex(ByVal sender As Object) As Integer
    310. Dim CurrControl As Control = CType(sender, Control)
    311. For nCount As Integer = 0 To cl_cGrabRects.Length
    312. If cl_cGrabRects(nCount) Is CurrControl Then
    313. Return nCount
    314. End If
    315. Next
    316. End Function
    318. End Class

    Nimm lieber im Sub New:

    VB.NET-Quellcode

    1. SetStyle(RedrawOnResizing, True)

    bin mir nicht sicher ob es RedrawOnResizing war ... Intellisense sei dank ;) kannst du das auch selbst rausfinden

    wenigstens weißt du was gemeint war ;)

    ich habe zwar schon öfters ein Usercontrol gemacht, aber so ein Fehler ist mir bis jetzt noch nicht gekommen.

    Ich hab mal versucht, Dein Control nachzuvollziehen, da gab es lediglich Irritationen wegen

    VB.NET-Quellcode

    1. Option Strict On

    Außerdem war der Mouse.Move-Handler geklemmt.
    Kannst Du mal bitte genau beschreiben, was nicht funktioniert?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Naja, ich habe ein Usercontrol auf dem ein paar shapes sind. Ich möchte das es möglich ist dieses Usercontrol während der Laufzeit zu resizen, also die Größe zu ändern so wie es in einigen Programmen möglich ist, mit den 8 Kästchen an dennen ich es größer kleiner ziehen kann. Dabei habe ich ein Menü das aufspringt wenn ich einen Rechtsklick auf das Control mache und das Resizing aktivieren kann. Das funktioniert auch alles soweit wenn ich auf meine !Form! rechtsklicke kommt das Menü und ich kann es aktivieren, es zeichnet mein Rectangle und die 8 ecken zum vergrößern, was auch funktioniert. Nur fehlen jegliche Shapes meines Usercontrols. Sprick ich sehe nichts außer dem Rectangle.

    Verstanden.
    Ich musste auch die BackColor verändern, um Dein Rechteck zu sehen.
    Ich werd mal nachsehen.
    -----
    So.
    Er tut eigentlich alles, was er soll.
    Er malt die kleinen Vierecke zum Ziehen und ändert den Mauszeiger beim Anfassen.
    Mehr Aktionen habe ich nicht gefunden.
    Aber mit

    VB.NET-Quellcode

    1. Private Sub MyUserControl_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
    2. e.Graphics.DrawRectangle(Pens.Gray, New Rectangle(0, 0, Me.Width - 1, Me.Height - 1))
    3. e.Graphics.DrawEllipse(Pens.Red, New Rectangle(0, 0, Me.Width - 1, Me.Height - 1))
    4. End Sub

    macht er etwas. :D

    Schreib doch mal, was Du glaubst, was es tun sollte.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „RodFromGermany“ ()

    Ähm wenn du dir den Code genauer anschaust siehst du aber das er weitaus mehr aktionen macht. z.B. wenn du eine Ecke auswählst die vergößerung und verkleinerung. Wenn du in Visual studio mal ein Label auf dein Form ziehst, sind dort auch die Ecken zum vergrößern und wenn du es ziehst kannst du es positionierung. Ich möchte genau das realisieren, jedoch zur Laufzeit

    RodFromGermany schrieb:

    Er malt die kleinen Vierecke zum Ziehen und ändert den Mauszeiger beim Anfassen.

    Schon klar. Tut er.
    Was sollte er denn noch tun, was ich ggf. nicht gesehen habe?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Er ändert nicht nur den Mauszeiger sondern das ganze Control. Zumindest dessen größe. Jedoch zeigt er das Control selbst nicht an, er registriert nur das es existiert.

    // habe nach sehr langem hin und her es geschafft auf die reihe zu bekommen, nachdem ich eine neue form erstellt habe, das usercontrol neu erstellt hatte und dem shape noch einen hintergrund zugewiesen hatte funktionierte alles so wie es sollte.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „sirblacksoul“ ()

Facebook
Telefonspende