Sidebar

  • VB.NET
  • .NET (FX) 4.0

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Fakiz.

    Sidebar

    Hallo zusammen...
    ich habe mir eine kleine sidebar geschrieben die auf der rechten seite ein fenster ausfährt....

    Aber das Fenster taucht irgendwo auf und dann kommt vom debugger eine fehlermeldung...

    Code:

    VB.NET-Quellcode

    1. Imports System.ComponentModel
    3. Public Class Form2
    4. Private WithEvents bgw As New BackgroundWorker
    5. Private ausfahren As Boolean = True
    7. Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    8. Panel1.Visible = False
    9. Button3.Visible = False
    10. Button4.Visible = False
    11. End Sub
    13. Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs)
    14. If ComboBox1.SelectedItem = "agrar" Then
    15. Button3.Visible = True
    16. Button4.Visible = False
    17. ElseIf ComboBox1.SelectedItem = "Lohner" Then
    18. Button3.Visible = False
    19. Button4.Visible = True
    21. End If
    22. End Sub
    24. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    25. Panel1.Visible = True
    26. End Sub
    28. Private Sub ComboBox1_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
    29. If ComboBox1.SelectedItem = "agrar" Then
    30. Button3.Visible = True
    31. Button4.Visible = False
    32. ElseIf ComboBox1.SelectedItem = "Lohner" Then
    33. Button3.Visible = False
    34. Button4.Visible = True
    35. Panel1.Visible = True
    37. End If
    38. End Sub
    40. Private Sub Panel1_Paint(sender As Object, e As PaintEventArgs) Handles Panel1.Paint
    42. End Sub
    44. Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
    46. End Sub
    48. Private Sub Form2_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
    49. If bgw.IsBusy = True Then
    50. bgw.CancelAsync()
    52. End If
    53. End Sub
    55. Private Sub Form2_LocationChanged(sender As Object, e As EventArgs) Handles Me.LocationChanged
    56. popoutwindow.Location = New Point(Me.Right, Me.Top)
    57. End Sub
    59. Private Sub bgw_DoWork(sender As Object, e As DoWorkEventArgs) Handles bgw.DoWork
    60. Select Case e.Argument
    61. Case True
    62. For i As Integer = 0 To popoutwindow.Width
    63. bgw.ReportProgress(i, i)
    64. Threading.Thread.Sleep(2)
    65. Next
    66. Case False
    67. For i As Integer = popoutwindow.Width To 0 Step -1
    68. bgw.ReportProgress(i, i)
    69. Threading.Thread.Sleep(2)
    70. Next
    71. Case bgw.IsBusy
    72. For i As Integer = Me.Width To 0
    73. bgw.ReportProgress(i, i)
    74. Threading.Thread.Sleep(2)
    75. Next
    76. End Select
    77. End Sub
    79. Private Sub bgw_ProgressChanged(sender As Object, e As ProgressChangedEventArgs) Handles bgw.ProgressChanged
    80. popoutwindow.Size = New Size(e.UserState, Me.Height)
    81. End Sub
    83. Sub PrepareFormSlidebar()
    85. popoutwindow.FormBorderStyle = Windows.Forms.FormBorderStyle.None
    86. bgw.WorkerReportsProgress = True
    87. bgw.WorkerSupportsCancellation = True
    88. popoutwindow.ShowInTaskbar = False
    89. popoutwindow.Show()
    90. popoutwindow.Size = New Size(0, Me.Height)
    91. popoutwindow.Location = New Point(Me.Right, Me.Top)
    92. End Sub
    94. Sub Popoutsidebar()
    96. Try
    97. popoutwindow.Visible = False
    98. bgw.RunWorkerAsync(ausfahren)
    99. popoutwindow.Visible = True
    100. Catch ex As Exception
    101. MsgBox("Fehler beim ausfahren des Infopanels...")
    102. End Try
    103. If ausfahren = True Then ausfahren = False Else ausfahren = True
    105. End Sub
    107. Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
    108. Popoutsidebar()
    109. End Sub
    110. End Class


    Kann mir jemand meinen fehler zeigen?!
    Bzw Entfernen :D ?!
    Danke im vorraus

    ##EDIT
    Fehler behoben es war eine einstellung die falsch war...

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „xX-Nick-Xx“ ()

Facebook
Telefonspende