Control funktioniert nicht

  • VB.NET

Es gibt 32 Antworten in diesem Thema. Der letzte Beitrag () ist von Nikx.

    Control funktioniert nicht

    Hey :)
    Ich habe mich grade mal drangesetzt und versucht mein erstes eigenes Control zu
    schreiben. Es sollte ein Seperator sein:

    VB.NET-Quellcode

    1. Imports System.Drawing
    2. Imports System.Windows.Forms
    4. Public Class Seperator
    6. Inherits System.Windows.Forms.Control
    7. Public pa As Graphics
    8. Public Color1 As Color = Color.LightGray
    9. Public Color2 As Color = Color.White
    10. Public Align As String
    11. Public p As New Pen(Color1, 1)
    12. Public Enum alg
    13. Horizontal
    14. Vertical
    15. End Enum
    16. Sub Me_paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
    17. If Align = "Horizontal" Then
    18. pa.DrawLine(p, 0, 1, 0, Width)
    19. ElseIf Align = "Vertical" Then
    20. pa.DrawLine(p, 1, 0, Height, 0)
    21. End If
    22. End Sub
    24. Private Sub Me_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
    25. If Align = "Vertical" Then
    26. pa.DrawLine(p, 1, 0, Height, 0)
    27. ElseIf Align = "Horizontal" Then
    28. pa.DrawLine(p, 1, 0, Width, 0)
    29. End If
    30. Me.Invalidate()
    31. End Sub
    33. Public Property SeperatorAlign() As alg
    34. Get
    35. Return Align
    36. End Get
    37. Set(ByVal value As alg)
    38. Align = value
    39. MyBase.Invalidate()
    40. End Set
    41. End Property
    43. Public Sub New()
    44. MyBase.New()
    45. MyBase.SetStyle(ControlStyles.UserPaint, True) 'Der controll sagen das wir sie zeichnen
    46. MyBase.SetStyle(ControlStyles.DoubleBuffer, True) 'DoubleBuffer aktivieren
    47. MyBase.SetStyle(ControlStyles.SupportsTransparentBackColor, True) 'Transparente hintergrundfarbe aktivieren (für diese anwendung nicht zwingend notwendig)
    48. End Sub
    49. End Class


    Kann mir jemand sagen was ich falsch gemacht habe ?
    "Life isn't about winning the race. Life is about finishing the race and how many people we can help finish the race." ~Marc Mero

    Nun bin ich also auch soweit: Keine VB-Fragen per PM! Es gibt hier ein Forum, verdammt!

    Du vergleichst einen String mit einem enum?! mach if algin = alg.Horizontal aber nicht "Horizontal"

    Und die Variable Algin natürlich auch so deklinieren:

    VB.NET-Quellcode

    1. Dim Align As alg

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

    Achso, ganz vergessen :D
    Wenn ich das Control Vertikal auf die Form ziehe wird es Horizontal und wirft den Fehler "Interger geht nicht nach String", Zeile 17, 19, 25, 27.
    Ich weiß auch warum, aber wie soll ich es sonst machen.

    Und dass mit dem Horizontalen verstehe ich immer noch nicht :P

    Ich habs nun so:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Drawing
    2. Imports System.Windows.Forms
    4. Public Class Seperator
    6. Inherits System.Windows.Forms.Control
    7. Public pa As Graphics
    8. Public Color1 As Color = Color.LightGray
    9. Public Color2 As Color = Color.White
    10. Public Align As alg = alg.Horizontal
    11. Public p As New Pen(Color1, 1)
    12. Public Enum alg
    13. Horizontal
    14. Vertical
    15. End Enum
    16. Sub Me_paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
    17. If Align = alg.Horizontal Then
    18. pa.DrawLine(p, 0, 1, 0, Width)
    19. ElseIf Align = alg.Vertical Then
    20. pa.DrawLine(p, 1, 0, Height, 0)
    21. End If
    22. End Sub
    24. Private Sub Me_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
    25. If Align = alg.Vertical Then
    26. pa.DrawLine(p, 1, 0, Height, 0)
    27. ElseIf Align = alg.Horizontal Then
    28. pa.DrawLine(p, 1, 0, Width, 0)
    29. End If
    30. Me.Invalidate()
    31. End Sub
    33. Public Property SeperatorAlign() As alg
    34. Get
    35. Return Align
    36. End Get
    37. Set(ByVal value As alg)
    38. Align = value
    39. MyBase.Invalidate()
    40. End Set
    41. End Property
    43. Public Sub New()
    44. MyBase.New()
    45. MyBase.SetStyle(ControlStyles.UserPaint, True) 'Der controll sagen das wir sie zeichnen
    46. MyBase.SetStyle(ControlStyles.DoubleBuffer, True) 'DoubleBuffer aktivieren
    47. MyBase.SetStyle(ControlStyles.SupportsTransparentBackColor, True) 'Transparente hintergrundfarbe aktivieren (für diese anwendung nicht zwingend notwendig)
    48. End Sub
    49. End Class
    "Life isn't about winning the race. Life is about finishing the race and how many people we can help finish the race." ~Marc Mero

    Nun bin ich also auch soweit: Keine VB-Fragen per PM! Es gibt hier ein Forum, verdammt!

    Okay das ist nicht der einzige fehler :D
    Warum benutzt du

    VB.NET-Quellcode

    1. Dim pa As Graphics

    Benutz doch e.Graphics.DrawLine in der Paint sub.
    Und das drawn in der Resize Sub brauchste auch nicht, dazu ist doch schon das Invalidate da.

    Was verstehst du denn bei Horizontal nicht?

    Ok zu deinen Code oben, es reich dann einfach wenn du e.Graphics benutzt weil du pa noch garnicht erzeugt hast. Und bei Resize dein Neuzeichnen Löschen und nur Me.Invalidate benutzen.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Drawing
    2. Imports System.Windows.Forms
    4. Public Class Seperator
    6. Inherits System.Windows.Forms.Control
    7. Public Color1 As Color = Color.LightGray
    8. Public Color2 As Color = Color.White
    9. Public Align As alg = alg.Horizontal
    10. Public p As New Pen(Color1, 1)
    11. Public Enum alg
    12. Horizontal
    13. Vertical
    14. End Enum
    15. Sub Me_paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
    16. If Align = alg.Horizontal Then
    17. e.Graphics.DrawLine(p, 0, 1, 0, Width)
    18. ElseIf Align = alg.Vertical Then
    19. e.Graphics.DrawLine(p, 1, 0, Height, 0)
    20. End If
    21. End Sub
    23. Private Sub Me_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
    24. Me.Invalidate()
    25. End Sub
    27. Public Property SeperatorAlign() As alg
    28. Get
    29. Return Align
    30. End Get
    31. Set(ByVal value As alg)
    32. Align = value
    33. MyBase.Invalidate()
    34. End Set
    35. End Property
    37. Public Sub New()
    38. MyBase.New()
    39. MyBase.SetStyle(ControlStyles.UserPaint, True) 'Der controll sagen das wir sie zeichnen
    40. MyBase.SetStyle(ControlStyles.DoubleBuffer, True) 'DoubleBuffer aktivieren
    41. MyBase.SetStyle(ControlStyles.SupportsTransparentBackColor, True) 'Transparente hintergrundfarbe aktivieren (für diese anwendung nicht zwingend notwendig)
    42. End Sub
    43. End Class


    Er gibt mir immer noch den "String zu Integer" Fehler...
    "Life isn't about winning the race. Life is about finishing the race and how many people we can help finish the race." ~Marc Mero

    Nun bin ich also auch soweit: Keine VB-Fragen per PM! Es gibt hier ein Forum, verdammt!

    Bei der "SeperatorAlign"-Property
    Beim Test in einem neuen Projekt graut er diese Option dann aus,
    mit der Begründung wie o.g. ^^

    (Wie debuggt man eine Klasse oO)
    "Life isn't about winning the race. Life is about finishing the race and how many people we can help finish the race." ~Marc Mero

    Nun bin ich also auch soweit: Keine VB-Fragen per PM! Es gibt hier ein Forum, verdammt!

    VB.NET-Quellcode

    1. Public Align As alg

    String, hm? ;)

    Mein Code:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Drawing
    2. Imports System.Windows.Forms
    4. Public Class Seperator
    6. Inherits System.Windows.Forms.Control
    7. Public Color1 As Color = Color.LightGray
    8. Public Color2 As Color = Color.White
    9. Public Align As alg = alg.Horizontal
    10. Public p As New Pen(Color1, 1)
    11. Public Enum alg
    12. Horizontal
    13. Vertical
    14. End Enum
    15. Sub Me_paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
    16. If Align = alg.Horizontal Then
    17. e.Graphics.DrawLine(p, 0, 1, 0, Width)
    18. ElseIf Align = alg.Vertical Then
    19. e.Graphics.DrawLine(p, 1, 0, Height, 0)
    20. End If
    21. End Sub
    23. Private Sub Me_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
    24. Me.Invalidate()
    25. End Sub
    27. Public Property SeperatorAlign() As alg
    28. Get
    29. Return Align
    30. End Get
    31. Set(ByVal value As alg)
    32. Align = value
    33. MyBase.Invalidate()
    34. End Set
    35. End Property
    37. Public Sub New()
    38. MyBase.New()
    39. MyBase.SetStyle(ControlStyles.UserPaint, True) 'Der controll sagen das wir sie zeichnen
    40. MyBase.SetStyle(ControlStyles.DoubleBuffer, True) 'DoubleBuffer aktivieren
    41. MyBase.SetStyle(ControlStyles.SupportsTransparentBackColor, True) 'Transparente hintergrundfarbe aktivieren (für diese anwendung nicht zwingend notwendig)
    42. End Sub
    43. End Class
    "Life isn't about winning the race. Life is about finishing the race and how many people we can help finish the race." ~Marc Mero

    Nun bin ich also auch soweit: Keine VB-Fragen per PM! Es gibt hier ein Forum, verdammt!

    Achso :D
    Nein, in jedem Expander ist das geändert was mir hier gesagt wurde, deshalb lohnt es die zu öffnen ^^
    "Life isn't about winning the race. Life is about finishing the race and how many people we can help finish the race." ~Marc Mero

    Nun bin ich also auch soweit: Keine VB-Fragen per PM! Es gibt hier ein Forum, verdammt!

    Versteh das nicht, habe deinen Code in ein Projekt kopiert und es funktioniert wunderbar!

    Edit übrigens gehört der Code von If Horizontal und Vertikal vertauscht.
    Spoiler anzeigen

    VB.NET-Quellcode

    1. If Align = alg.Horizontal Then
    2. e.Graphics.DrawLine(p, 0, 1, 0, Width)
    3. ElseIf Align = alg.Vertical Then
    4. e.Graphics.DrawLine(p, 1, 0, Height, 0)
    5. End If

    zu

    VB.NET-Quellcode

    1. If Align = alg.Horizontal Then
    2. e.Graphics.DrawLine(p, 1, 0, Height, 0)
    4. ElseIf Align = alg.Vertical Then
    6. e.Graphics.DrawLine(p, 0, 1, 0, Width)
    7. End If

    Wut ? Lol :D
    (Es heißt nicht 'Reperatur'? Neues gelernt :P)

    Edit: Jup, geht doch :D
    Könnte mir noch jem. erklären wie ich noch eine weiße Linie daneben zeichnen kann?
    "Life isn't about winning the race. Life is about finishing the race and how many people we can help finish the race." ~Marc Mero

    Nun bin ich also auch soweit: Keine VB-Fragen per PM! Es gibt hier ein Forum, verdammt!

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

    Aber es heißt "Temperatur"... soll doch jemand unsere Sprache verstehen. :P

    Eine weiße Linie zeichnest du wie eine schwarze, nur halt mit Pens.White.

    Wie man sie zeichnet ist mir klar, nur wie zeichne ich sie rechts daneben, bzw. bei horizontal unten drunter ?
    (Mit Rechts oder Unter meine ich die Graue Linie :D)
    "Life isn't about winning the race. Life is about finishing the race and how many people we can help finish the race." ~Marc Mero

    Nun bin ich also auch soweit: Keine VB-Fragen per PM! Es gibt hier ein Forum, verdammt!

Facebook
Telefonspende