USB angeschlossen, Form2 öffnen sonst Massagebox und Form2 nicht öffnen

  • VB.NET

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

    USB angeschlossen, Form2 öffnen sonst Massagebox und Form2 nicht öffnen

    So bin mal wieder an einem neuen Projekt. Habe im Sourcecodeaustausch einen Code von mikeb69 und Vatter gefunden:

    [VB.NET] Erkennen, wann ein Laufwerk hinzugefügt bzw. entfernt wurde (USB-Stick)

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.IO
    3. Public Class ClsDrivewatcher
    4. Inherits System.Windows.Forms.NativeWindow
    6. 'Konstanten für Windowsmessages
    7. Private Const WM_DEVICECHANGE As Integer = &H219
    8. Private Const DBT_DEVICEARRIVAL As Integer = &H8000
    9. Private Const DBT_DEVICEREMOVECOMPLETE As Integer = &H8004
    11. 'Events
    12. Public Event WinProc(ByVal sender As ClsDrivewatcher, ByRef m As Message)
    13. Public Event Drive_Neu(ByVal DI As DriveInfo)
    14. Public Event Drive_entfernt(ByVal DN As String)
    16. Private allDrives As New List(Of DriveInfo)
    17. Public Sub New(ByVal Handle As IntPtr)
    18. 'übergibt dem NativeWindow das Handle
    19. MyBase.AssignHandle(Handle)
    20. 'Listet alle Laufwerke in allDrives
    21. allDrives = GetAllDrives()
    22. End Sub
    24. 'Ausgabemöglichkeit für Laufwerkliste
    25. Public Function Getdrives() As List(Of DriveInfo)
    26. Return allDrives
    27. End Function
    29. 'WinProc-Methode des übergebenen Handles
    30. Protected Overrides Sub WndProc(ByRef msg As Message)
    31. 'gibt die OriginalMessage an übergebenes Handles weiter
    32. MyBase.WndProc(msg)
    33. 'Event für externe Auswertung der Message
    34. RaiseEvent WinProc(Me, msg)
    35. 'Wenn ein Laufwerk gewechselt und ein neues Laufwerk erkannt wurde
    36. If msg.Msg = WM_DEVICECHANGE AndAlso msg.WParam = CType(DBT_DEVICEARRIVAL, IntPtr) Then
    37. 'alle laufwerke durchlaufen und in der liste suchen
    38. For Each s As String In Directory.GetLogicalDrives
    39. find_driveinfo_arg = s
    40. Dim d As DriveInfo = allDrives.Find(AddressOf find_driveinfo)
    41. If d Is Nothing Then
    42. d = New DriveInfo(s)
    43. 'laufwerk wurde in der liste nicht gefunden und ist somit neu
    44. 'MessageBox.Show("Neuer Datenträger erkannt = " & d.Name)
    45. 'laufwerk jetzt zur liste hinzufügen
    46. allDrives.Add(d)
    47. 'Event auslösen
    48. RaiseEvent Drive_Neu(d)
    49. End If
    50. Next
    51. End If
    52. 'Wenn ein Laufwerk gewechselt und ein Laufwerk entfernt wurde
    53. If msg.Msg = WM_DEVICECHANGE AndAlso msg.WParam = CType(DBT_DEVICEREMOVECOMPLETE, IntPtr) Then
    54. 'alle laufwerke aus der liste prüfen
    55. Dim temp As List(Of DriveInfo) = GetAllDrives()
    56. For Each d As DriveInfo In allDrives
    57. find_driveinfo_arg = d.Name
    58. Dim lost As DriveInfo = temp.Find(AddressOf find_driveinfo)
    59. If lost Is Nothing Then
    60. 'laufwerk wurde in der liste nicht mehr gefunden
    61. 'MessageBox.Show("Datenträger wurde entfernt = " & d.Name)
    62. 'Event auslösen
    63. RaiseEvent Drive_entfernt(d.Name)
    64. 'laufwerk aus der liste entfernen
    65. allDrives.Remove(d)
    66. 'schleife verlassen
    67. Exit For
    68. End If
    69. Next
    70. End If
    71. End Sub
    73. 'Funktion zum Auflisten der Laufwerke
    74. Private Function GetAllDrives() As List(Of DriveInfo)
    75. Dim ret As New List(Of DriveInfo)
    76. 'und wieder befüllen
    77. For Each d As String In Directory.GetLogicalDrives
    78. ret.Add(New DriveInfo(d))
    79. Next
    80. Return ret
    81. End Function
    83. 'suchfunktion zum finden der laufwerke in der collection
    84. Private find_driveinfo_arg As String
    85. Private Function find_driveinfo(ByVal d As DriveInfo) As Boolean
    86. If d.Name = find_driveinfo_arg Then
    87. Return True
    88. Else
    89. Return False
    90. End If
    91. End Function
    93. End Class


    Jetzt versuche ich mir alles etwas auf meine Bedürfnisse anzupassen.

    Folgendes Zenario: Form1 hat einen Button, dieser soll, solange kein USB Stick angeschlossen ist, keine Funktion und ein anderes Image als Hintergrund haben. Sobald ein USB Stick am PC hängt sollen diese Funktionen hinterlegt sein: anderes Image, Form2 öffnen und Laufwerksbuchstaben in Label ausgeben.

    Das ausgeben des Laufwerksbuchstaben in ein Label hab ich gelöst, indem ich die Private Sub aus dem Beispiel umgeschrieben habe. Jetzt happert es aber am Rest. Jetzt hoffe ich wieder auf eure hilfreichen Vorschläge.

    An dieser Stelle nochmal vielen Dank für den Sourcecode an mikeb69 und Vatter.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.IO
    3. Public Class Form1
    5. Private Drivewatcher As ClsDrivewatcher
    6. Private flagUsb As Boolean ' dies hier
    7. Private dlg As Form2 ' dies hier
    9. Public Sub New()
    10. InitializeComponent()
    11. flagUsb = False ' dies hier
    12. dlg = New Form2 ' dies hier
    14. Drivewatcher = New ClsDrivewatcher(Me.Handle)
    15. 'Events adden
    16. AddHandler Drivewatcher.Drive_Neu, AddressOf LW_erkannt
    17. AddHandler Drivewatcher.Drive_entfernt, AddressOf LW_entfernt
    18. End Sub
    19. 'Event Laufwerk neu
    20. Private Sub LW_erkannt(ByVal DI As DriveInfo)
    21. Debug.WriteLine(String.Format("Laufwerk {0}:\ wurde hinzugefügt, Label = {1} ", DI.Name, DI.VolumeLabel))
    22. Debug.WriteLine(String.Format("Type: {0};frei: {1} von {2}", DI.DriveType, DI.TotalFreeSpace, DI.TotalSize))
    24. flagUsb = True ' dies hier
    25. dlg.Show() ' dies hier
    26. End Sub
    28. 'Event Laufwerk entfernt
    29. Private Sub LW_entfernt(ByVal Name As String)
    30. Debug.WriteLine(String.Format("Laufwerk {0}:\ wurde entfernt ", Name))
    31. End Sub
    33. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    34. If Not flagUsb Then ' dies hier
    35. Return
    36. End If
    38. End Sub
    40. End Class

    Das Hintergrundbild für den Button schaffst Du alleine. :thumbup:
    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!

    wow, das war viel mehr als ich erwartet habe. Vielen Dank. :thumbsup: musste den code jedoch noch etwas umschreiben, weil sich die Form2 automatisch geöffnet hat, wenn der USB Stick angeschlossen wurde. Hab also den Button Event etwas geändert. Nur was ich nicht verstehe, wenn die Form2 mal geschlossen wurde, kann diese nicht mehr geöffnet werden und der Debuggen Modus wird mit der Fehlermeldung "auf das verworfene Objekt kann nicht zugegriffen werden" geschlossen.

    VB.NET-Quellcode

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    2. If flagUsb = True Then ' dies hier
    3. dlg.Show()
    4. Else
    5. 'do nothing
    6. End If
    8. End Sub


    Weiss jemand, warum das so ist? ?( ?( ?(

    mali schrieb:

    Weiss jemand, warum das so ist? ?( ?( ?(
    Ist halt ein nicht modaler Dialog.

    VB.NET-Quellcode

    1. Private dlg As Form2
    2. Private Sub XXX()
    3. If dlg Is Nothing OrElse dlg.IsDisposed Then
    4. dlg = New Form2
    5. End If
    6. If Not dlg.Visible Then
    7. dlg.Show()
    8. End If
    9. 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!

    ok jetzt muss ich etwas genauer nachfragen, wolltest du den Code in den Sub Button1_Click? Wenn ja, dann öffnet sich die Form2 ja immer, auch wenn kein USB Stick angeschlossen ist. Wenn nein, dann gibt es keine Änderung. Hab jetzt die Form2 bei trennen des USB Sticks vom PC nur versteckt, also mit Hide, dann funktioniert das ganze. Aber sobald close geklickt wird is empty. Hab übrigens noch folgendes ergänzt

    VB.NET-Quellcode

    1. Private Sub LW_entfernt(ByVal Name as String)
    3. '....
    5. flagUsb = False
    7. End Sub


    Dachte mir, flagUsb muss ja wieder auf false gehen.

    Auch dir einen schönen 2 Advent. Ich beschäftige mich schon mit dem Code und probiere einiges aus. Aus meiner Sicht besteht das Problem, dass wenn Form2 geschlossen wird VB dlg nicht als neue Form2 setzt. Hab jetzt noch in dem LW_entfernt sub dieses mit reingeschrieben

    VB.NET-Quellcode

    1. dlg = New Form2


    und dann funktioniert das auch, dass die Form2 wieder aufrufbar ist, wenn der Stick getrennt wird. Nur wenn ich die Form2 schließe per Button gehts nicht. Aber ich werde weiter testen.

    Edit: Hab die Nacht so einiges durchdacht und den Code so geschrieben, ich hoffe Rod will mir jetzt nicht den Kopf abreisen.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.IO
    3. Public Class Form1
    5. Private Drivewatcher As ClsDrivewatcher
    6. Private flagUsb As Boolean ' dies hier
    7. Private dlg As Form2 ' dies hier
    9. Public Sub New()
    10. InitializeComponent()
    11. flagUsb = False ' dies hier
    12. dlg = New Form2 ' dies hier
    14. Drivewatcher = New ClsDrivewatcher(Me.Handle)
    15. 'Events adden
    16. AddHandler Drivewatcher.Drive_Neu, AddressOf LW_erkannt
    17. AddHandler Drivewatcher.Drive_entfernt, AddressOf LW_entfernt
    18. End Sub
    19. 'Event Laufwerk neu
    20. Private Sub LW_erkannt(ByVal DI As DriveInfo)
    21. dlg.Label1.Text = DI.Name
    22. flagUsb = True ' dies hier
    23. End Sub
    25. 'Event Laufwerk entfernt
    26. Private Sub LW_entfernt(ByVal Name As String)
    27. dlg.Close()
    28. dlg = New Form2
    29. flagUsb = False
    30. End Sub
    32. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    33. If flagUsb = True Then ' dies hier
    34. dlg = New Form2
    35. dlg.Show()
    36. End If
    37. End Sub
    38. End Class


    Damit kann die Form2 immer wieder geöffnet werden, solange der USB Stick am PC hängt. Das einzigste was jetzt nicht geht, ist dass im Label auf Form2 der DI.Name angezeigt wird. Ich denke das liegt am Button Sub, das ich da dlg = New Form2 integriet habe. Hier muss ich nochmal etwas grübeln.

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

    mali schrieb:

    Aus meiner Sicht besteht das Problem, dass wenn Form2 geschlossen wird VB dlg nicht als neue Form2 setzt.

    Form2 wird doch in der Klasse deklariert und in den Prozeduren greifst Du drauf zu.
    Beim Start ist Form2 = Nothing, nach dem Schließen über (X) ist die Form disposed. In diesen Fällen musst Du sie neu anlegen, wenn Du sie aufrufen willst.
    Wenn sie per Hide() nur unsichtbar (Not Visible) geschaltet wurde bzw. per New gerade instanziiert wurde, wird sie per Show() sichtbar gemacht. Fertig.
    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!

    Wie gesagt, bei mir funktioniert das so nicht. Hab jetzt den Code nochmal eins zu eins kopiert ohne meine Änderungen. Form2 öffnet sich automatisch, wenn der USB Stick angeschlossen wird. Wenn ich Form2 über X schließe kann ich sie nicht mehr öffnen per Button von Form1. Hab deinen Code auch verstanden, nur geht es halt nicht. Oder ich bin zu dumm. Wie in meinem letzten Post geschrieben habe ich es hinbekommen, dass die Form2 per Button immer geöffnet werden kann, nur dass jetzt das Label auf Form2 nicht mehr den Laufwerksbuchstaben anzeigt. Aber da arbeite ich noch dran.

    Mach Dir mal ein kleines Testprogramm mit dem Code.
    2 Forms, 1 Button, bei dem Du die 2. Form öffnest.
    Nimm Deinen Code und danach meinen.
    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!

    Hab ich gemacht, das Ergebnis hab ich ja schon geschildert. Aber vielleicht hat ich einen Fehler dabei gemacht. Hier mal der zusammengetragene Code von dir:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.IO
    3. Public Class Form1
    5. Private Drivewatcher As ClsDrivewatcher
    6. Private flagUsb As Boolean ' dies hier
    7. Private dlg As Form2 ' dies hier
    9. Private Sub XXX()
    10. If dlg Is Nothing OrElse dlg.IsDisposed Then
    11. dlg = New Form2
    12. End If
    13. If Not dlg.Visible Then
    14. dlg.Show()
    15. End If
    16. End Sub
    18. Public Sub New()
    19. InitializeComponent()
    20. flagUsb = False ' dies hier
    21. dlg = New Form2 ' dies hier
    23. Drivewatcher = New ClsDrivewatcher(Me.Handle)
    24. 'Events adden
    25. AddHandler Drivewatcher.Drive_Neu, AddressOf LW_erkannt
    26. AddHandler Drivewatcher.Drive_entfernt, AddressOf LW_entfernt
    27. End Sub
    28. 'Event Laufwerk neu
    29. Private Sub LW_erkannt(ByVal DI As DriveInfo)
    30. Debug.WriteLine(String.Format("Laufwerk {0}:\ wurde hinzugefügt, Label = {1} ", DI.Name, DI.VolumeLabel))
    31. Debug.WriteLine(String.Format("Type: {0};frei: {1} von {2}", DI.DriveType, DI.TotalFreeSpace, DI.TotalSize))
    33. flagUsb = True ' dies hier
    34. dlg.Show() ' dies hier
    35. End Sub
    37. 'Event Laufwerk entfernt
    38. Private Sub LW_entfernt(ByVal Name As String)
    39. Debug.WriteLine(String.Format("Laufwerk {0}:\ wurde entfernt ", Name))
    40. End Sub
    42. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    43. If Not flagUsb Then ' dies hier
    44. Return
    45. End If
    47. End Sub
    49. End Class


    Was in dem Testprogramm noch fehlt, ist der Button auf Form2, der die Form2 schließt mit

    VB.NET-Quellcode

    1. Me.close()


    Aber auch wenn ich die Form2 über X schliesse, kann ich die Form2 nicht erneut per Button öffnen.

    Hier noch meiner, der funktioniert nur richtig, wenn ich dem Button auf Form2 den Befehl

    VB.NET-Quellcode

    1. Me.Hide()


    zuordne.

    EDIT: so jetzt gehts, ab und zu sieht mal den wald vor lauter Bäumen nicht. :rolleyes:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.IO
    3. Public Class Form1
    5. Private Drivewatcher As ClsDrivewatcher
    6. Private flagUsb As Boolean ' dies hier
    7. Private dlg As Form2 ' dies hier
    9. Public Sub New()
    10. InitializeComponent()
    11. flagUsb = False ' dies hier
    12. dlg = New Form2 ' dies hier
    14. Drivewatcher = New ClsDrivewatcher(Me.Handle)
    15. 'Events adden
    16. AddHandler Drivewatcher.Drive_Neu, AddressOf LW_erkannt
    17. AddHandler Drivewatcher.Drive_entfernt, AddressOf LW_entfernt
    18. End Sub
    19. 'Event Laufwerk neu
    20. Private Sub LW_erkannt(ByVal DI As DriveInfo)
    21. dlg.Label1.Text = DI.Name
    22. flagUsb = True ' dies hier
    23. End Sub
    25. 'Event Laufwerk entfernt
    26. Private Sub LW_entfernt(ByVal Name As String)
    27. dlg.Close()
    28. flagUsb = False
    29. End Sub
    31. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    32. If dlg Is Nothing OrElse dlg.IsDisposed Then
    33. dlg = New Form2
    35. End If
    36. If Not dlg.Visible And flagUsb = True Then
    37. dlg.Show()
    38. End If
    40. End Sub
    42. End Class


    Was ich noch nicht umsetzen konnte, ist der Part mit dem Label, welches den Laufwerksbuchstaben anzeigen soll. Habe das im Sub LW_ erkannt eingebaut, aber es wird nur beim ersten öffnen der Form2 der Laufwerksbuchstabe im Label angezeigt, danach nicht mehr. Aber das sollte ich alleine hinkriegen. Rod dir nochmal vielen Dank für die Hilfe bzw. Arbeit. :thumbsup:

    EDIT: so fertig, hab diese Zeile aus dem Sub LW_erkannt entfernt

    VB.NET-Quellcode

    1. dlg.label1.Text = DI.Name


    und dies in die Form2 Load reingeschrieben, und es geht :thumbsup:

    VB.NET-Quellcode

    1. For Each Laufwerk As IO.DriveInfo In My.Computer.FileSystem.Drives
    2. If Laufwerk.IsReady Then
    3. Label1.Text = Laufwerk.Name & vbNewLine
    4. End If
    5. Next

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

Facebook
Telefonspende