Form in dll

  • VB.NET

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von Scream.

    Hey.
    Form als UserControl? Das widerspricht sich irgendwie...
    Falls du das meinst: Du kannst in einer DLL auch ganz normal Windows-Forms benutzen.

    Mein Code

    VB.NET-Quellcode

    1. Public Class Form1
    2. Sub abrunden(ByVal was As Object, _
    3. ByVal x As Integer, ByVal y As Integer, _
    4. ByVal width As Integer, ByVal height As Integer, _
    5. ByVal radius As Integer)
    8. Dim gp As System.Drawing.Drawing2D.GraphicsPath = _
    9. New System.Drawing.Drawing2D.GraphicsPath()
    11. gp.AddLine(x + radius, y, x + width - radius, y)
    12. gp.AddArc(x + width - radius, y, radius, radius, 270, 90)
    13. gp.AddLine(x + width, y + radius, x + width, y + height - radius)
    14. gp.AddArc(x + width - radius, y + height - radius, radius, radius, 0, 90)
    15. gp.AddLine(x + width - radius, y + height, x + radius, y + height)
    16. gp.AddArc(x, y + height - radius, radius, radius, 90, 90)
    17. gp.AddLine(x, y + height - radius, x, y + radius)
    18. gp.AddArc(x, y, radius, radius, 180, 90)
    19. gp.CloseFigure()
    21. was.region = New System.Drawing.Region(gp)
    22. gp.Dispose()
    23. End Sub
    24. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    25. MyBase.Size = New Drawing.Size(411, 230)
    26. abrunden(Me, 0, 0, Me.Width, Me.Height, 40)
    27. abrunden(MyBase.ParentForm, 0, 0, MyBase.Width, MyBase.Height, 40)
    28. abrunden(Panel1, 0, 0, Panel1.Width, Panel1.Height, 40)
    29. End Sub
    30. Private CurrentPosition As New System.Drawing.Point
    31. Private MouseButton As System.Windows.Forms.MouseButtons = Nothing
    32. Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
    33. MyClass.MouseButton = e.Button()
    34. With MyClass.CurrentPosition
    35. .X = e.X()
    36. .Y = e.Y()
    37. End With
    38. End Sub
    40. Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
    41. Select Case MouseButton
    42. Case Is = Windows.Forms.MouseButtons.Left
    43. MyClass.Top = Windows.Forms.Cursor.Position.Y() - MyClass.CurrentPosition.Y()
    44. MyClass.Left = Windows.Forms.Cursor.Position.X() - MyClass.CurrentPosition.X()
    45. Exit Sub
    46. End Select
    47. End Sub
    49. Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
    50. MyClass.MouseButton = Nothing
    51. End Sub
    52. End Class



    Fehler beim Imports/Inherits




    Mfg Scream ;)

    zusammengefasst

    er soll sich abrunden und die form wohin er importiert wurde..
    und sich bewegen wen der cursor mousedown ist...
    eine abgerundete Form halt ;)

    Mfg Scream ;)
    ______

    vll. hilft das weiter:

    Markierte Stelle

    VB.NET-Quellcode

    1. was.region = New System.Drawing.Region(gp)



    @mods

    srry, könntet ihr bitte diesen beitrag zusammenführen? :S

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

    Na eigentlich sagt:
    Die Objektvariable oder die With-Blockvariable wurde nicht festgelegt
    Schon alles aus. Habe mir jetzt nicht deinen Code angesehen, aber ich denke mal zu 80% das du bei einem With-Block kein Control gesetzt hast.

    Habs nun so gelöst

    VB.NET-Quellcode

    1. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    2. MyBase.Size = New Drawing.Size(411, 230)
    3. abrunden(Panel1, 0, 0, Panel1.Width, Panel1.Height, 40)
    4. abrunden(Me, 0, 0, Me.Width, Me.Height, 40) 'hier hatte ich ein denkfehler, und wollte auch noch mybase abrunden
    5. End Sub

Facebook
Telefonspende