Problem mit 2. windows form

  • VB.NET

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von user2100.

    Problem mit 2. windows form

    hi,

    ich habe ein programm mit 2 formen. wobei die 2. form für einstellungen sind.

    hatte bei der 2. form 6 buttons mit code versehen.funzte aber am ende leider nicht so wie ich es mir dachte.
    habe sie kurzer hand duch checkboxen ersetzt den code einfach von den buttons in die checkbox verschoben.
    etwas abgeändert damit es zur checkbox pass. nun wollte ich es testen und nun kann die 2. form nicht mehr geöffnet werden.
    es liegt auf jedenfall an den checkboxen. ka was da das problem ist.

    hier der code:

    VB.NET-Quellcode

    1. Private Sub ac1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ac1.CheckedChanged
    2. Dim icon1 As Icon = Icon.ExtractAssociatedIcon(item1txt.Text)
    3. Dim icon2 As Bitmap = icon1.ToBitmap
    5. If ac1.Checked = True Then
    6. Form1.Panel2.BackgroundImage = icon2
    7. Form1.Panel2.BackgroundImageLayout = ImageLayout.Stretch
    8. Form1.Panel2.BackColor = Color.Transparent
    9. My.Settings.Save()
    10. Else
    11. Form1.Panel2.BackgroundImage = Nothing
    12. Form1.Panel2.BackgroundImageLayout = ImageLayout.Stretch
    13. Form1.Panel2.BackColor = Color.Transparent
    14. My.Settings.Save()
    15. End If
    17. End Sub
    18. Private Sub ac2_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ac2.CheckedChanged
    19. Dim icon3 As Icon = Icon.ExtractAssociatedIcon(item2txt.Text)
    20. Dim icon4 As Bitmap = icon3.ToBitmap
    21. If ac2.Checked = True Then
    22. Form1.Panel3.BackgroundImage = icon4
    23. Form1.Panel3.BackgroundImageLayout = ImageLayout.Stretch
    24. Form1.Panel3.BackColor = Color.Transparent
    25. My.Settings.Save()
    26. Else
    27. Form1.Panel3.BackgroundImage = Nothing
    28. Form1.Panel3.BackgroundImageLayout = ImageLayout.Stretch
    29. Form1.Panel3.BackColor = Color.Transparent
    30. My.Settings.Save()
    31. End If
    33. End Sub
    35. Private Sub ac3_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ac3.CheckedChanged
    36. Dim icon5 As Icon = Icon.ExtractAssociatedIcon(item3txt.Text)
    37. Dim icon6 As Bitmap = icon5.ToBitmap
    38. If ac3.Checked = True Then
    39. Form1.Panel4.BackgroundImage = icon6
    40. Form1.Panel4.BackgroundImageLayout = ImageLayout.Stretch
    41. Form1.Panel4.BackColor = Color.Transparent
    42. My.Settings.Save()
    43. Else
    44. Form1.Panel4.BackgroundImage = Nothing
    45. Form1.Panel4.BackgroundImageLayout = ImageLayout.Stretch
    46. Form1.Panel4.BackColor = Color.Transparent
    47. My.Settings.Save()
    48. End If
    50. End Sub
    52. Private Sub ac4_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ac4.CheckedChanged
    53. Dim icon7 As Icon = Icon.ExtractAssociatedIcon(item4txt.Text)
    54. Dim icon8 As Bitmap = icon7.ToBitmap
    55. If ac4.Checked = True Then
    56. Form1.Panel5.BackgroundImage = icon8
    57. Form1.Panel5.BackgroundImageLayout = ImageLayout.Stretch
    58. Form1.Panel5.BackColor = Color.Transparent
    59. My.Settings.Save()
    60. Else
    61. Form1.Panel5.BackgroundImage = Nothing
    62. Form1.Panel5.BackgroundImageLayout = ImageLayout.Stretch
    63. Form1.Panel5.BackColor = Color.Transparent
    64. My.Settings.Save()
    65. End If
    67. End Sub
    69. Private Sub ac5_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ac5.CheckedChanged
    70. Dim icon9 As Icon = Icon.ExtractAssociatedIcon(item5txt.Text)
    71. Dim icon0 As Bitmap = icon9.ToBitmap
    72. If ac5.Checked = True Then
    73. Form1.Panel6.BackgroundImage = icon0
    74. Form1.Panel6.BackgroundImageLayout = ImageLayout.Stretch
    75. Form1.Panel6.BackColor = Color.Transparent
    76. My.Settings.Save()
    77. Else
    78. Form1.Panel6.BackgroundImage = Nothing
    79. Form1.Panel6.BackgroundImageLayout = ImageLayout.Stretch
    80. Form1.Panel6.BackColor = Color.Transparent
    81. My.Settings.Save()
    82. End If
    84. End Sub
    86. Private Sub ac6_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ac6.CheckedChanged
    87. Dim icon11 As Icon = Icon.ExtractAssociatedIcon(item6txt.Text)
    88. Dim icon12 As Bitmap = icon11.ToBitmap
    89. If ac6.Checked = True Then
    90. Form1.Panel7.BackgroundImage = icon12
    91. Form1.Panel7.BackgroundImageLayout = ImageLayout.Stretch
    92. Form1.Panel7.BackColor = Color.Transparent
    93. My.Settings.Save()
    94. Else
    95. Form1.Panel7.BackgroundImage = Nothing
    96. Form1.Panel7.BackgroundImageLayout = ImageLayout.Stretch
    97. Form1.Panel7.BackColor = Color.Transparent
    98. My.Settings.Save()
    99. End If
    101. End Sub


    pic von der 2. form



    mfg chris :)

    als an der stelle noch buttons waren hat alles gefunzt.

    doch also in den textboxen ist ein pfad gespeichert der zu einer exe datei führt. von der exe datei soll nun das icon in der 1. form angezeigt werden.
    hat ja mit buttons auch gefunzt aber nicht mit checkboxen. ka. warum. als eine checkbox erstellt hatte um es zu testen hatte ich den den button noch in der form da funzte es aber als ich die buttons entfernt hatte funzte garnichts mehr. ka warum

    hier die fehlermeldung:

    Nix FormX.Show(), das ist historischer VB6-Scheiß, der nicht .NET-kompatibel ist.
    modaler Dialog:

    VB.NET-Quellcode

    1. Using dlg As New FormX
    2. dlg.ShowDialog()
    3. End Using
    nicht modaler Dialog:

    VB.NET-Quellcode

    1. Private dlg2 As FormX
    2. Private Sub xxx()
    3. if dlg2 Is Nothing OrElse dlg2.IsDisposed Then
    4. dlg2 = New FormX
    5. End If
    6. If Not dlg2.Visible Then
    7. 'dlg2.Show() ' kann hinter die aufrufende Form geklickt werden
    8. ' oder
    9. dlg2.Show(Me) ' bleibt vor der aufrufenden Form
    10. End If
    11. End Sub
    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!

    @user2100

    Möchtest du nur die Pfade in den Settings speichern ?
    Wenn ja was ist da das Problem. Im TextBox_Changed Event könntest du die Veränderung in dem jeweiligen Setting speichern und im nächsten Load abfragen.

    Programmiertechnisch ist es dann noch besser, vorher zu überprüfen ob die Datei noch existiert.

    Edit:

    VB.NET-Quellcode

    1. Private Sub ac5_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ac5.CheckedChanged
    2. Dim icon9 As Icon = Icon.ExtractAssociatedIcon(item5txt.Text)
    3. Dim icon0 As Bitmap = icon9.ToBitmap
    4. If ac5.Checked = True Then
    5. Form1.Panel6.BackgroundImage = icon0
    6. Form1.Panel6.BackgroundImageLayout = ImageLayout.Stretch
    7. Form1.Panel6.BackColor = Color.Transparent
    8. My.Settings.Save()
    9. Else
    10. Form1.Panel6.BackgroundImage = Nothing
    11. Form1.Panel6.BackgroundImageLayout = ImageLayout.Stretch
    12. Form1.Panel6.BackColor = Color.Transparent
    13. My.Settings.Save()
    14. End If
    16. End Sub


    Hier weißt du deinen Settings ja gar keinen Wert zu.

    Du musst vorher eine Variable als Setting anlegen, welche du mit "My.Settings.Name" ansprichst.
    Guck dir das mal an :)

    ja das ist es. nur wenn ich unter properties nen wert auswählen will, weiss ich nicht welchen wert ich dort verwenden muss.

    nee diejeweiligen programm icons die dann auf der 1. form zusehen sind sollen nach beendigung des progr. gespeichert werden.sodass die icons nach neuem programmstart immernoch zu sehen sind.

    das programm soll eine schnellstart möglichkeit sein da ich nicht alle verknüpfungen aufn desktop haben will. ziehe ich mir das prog. auf meinen 2. monitor und klicke bloß auf die icons(form1) und schon wird das jeweilige programm gestartet.

    hab es jetzt aber anders lösen können. also funzt das prog. jetzt so wie es soll :)
    danke für die ganzen hilfen :)

    user2100 schrieb:

    hab es jetzt aber anders lösen können. also funzt das prog. jetzt so wie es soll :)
    Wetten, dass nicht?
    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!

Facebook
Telefonspende