"Module-Anweisungen können nur auf Namespace- oder Dateiebene verwendet werden."

  • VB.NET

Es gibt 16 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    "Module-Anweisungen können nur auf Namespace- oder Dateiebene verwendet werden."

    bei mir is das "Module" neben "Module1" unterstrichen. Da steht "Module-Anweisungen können nur auf Namespace- oder Dateiebene verwendet werden." Was mache ich falsch????????


    Edit by ErfinderDesRades: (Thema verschoben) Grundlagen-Fragen bitte nicht im Tutorial stellen!

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

    Wow wenn du die ganze Frage schon in den Thementitel packst ist der Beitrag eigentlich vollkommen nutzlos. Namespace ist immer ganz oben vor den Deklarationen. Private, Public etc. steht unter dem Namespace.

    Admin-Anmerkung. Der Threadtitel kam vermutlich durch das Verschrieben des Postings zustande.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()

    @Daniel85: Mach mal bitte einen ScreenShot von dem Code, wo was unterstrichen ist oder poste den ganzen Code.
    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!

    Bei folgendem Test hab ich es auch: it-visions.de/lserver/CodeSampleDetails.aspx?c=2804

    VB.NET-Quellcode

    1. Imports System.IO
    3. Public Class Form1
    5. Module Dateisystem_Ueberwachung
    7. Public Sub Dateisystem_ueberwachen()
    9. Const PFAD As String = "C:\Ordner1"
    11. ' --- Instanziierung
    12. Dim watcher As New FileSystemWatcher()
    14. ' --- zu überwachendes Verzeichnis
    15. watcher.Path = PFAD
    16. ' --- zu überwachende Dateitypen
    17. watcher.Filter = "*.*"
    18. ' --- Unterverzeichnisse einschließen
    19. watcher.IncludeSubdirectories = True
    21. ' --- zu überwachende Änderungen
    22. watcher.NotifyFilter = _
    23. NotifyFilters.Attributes Or _
    24. NotifyFilters.LastAccess Or _
    25. NotifyFilters.LastWrite Or _
    26. NotifyFilters.Security Or _
    27. NotifyFilters.Size Or _
    28. NotifyFilters.FileName Or _
    29. NotifyFilters.DirectoryName
    31. ' --- Registrierung der
    32. ' --- Ereignisbehandlungsroutinen
    33. AddHandler watcher.Changed, _
    34. AddressOf DS_aenderung
    35. AddHandler watcher.Created, AddressOf DS_neu
    36. AddHandler watcher.Deleted, _
    37. AddressOf DS_loeschen
    38. AddHandler watcher.Renamed, AddressOf DS_name
    39. ' --- Starten der Überwachung
    40. out("Überwachen von " & PFAD & " beginnt...")
    41. watcher.EnableRaisingEvents = True
    42. ' --- Warten auf Benutzeraktion
    43. MsgBox( _
    44. "Klicken Sie hier, um die Überwachung " & _
    45. "zu beenden!", , "Überwachung")
    47. End Sub
    49. ' ### Ereignisbehandlungsroutine für
    50. ' ### Änderungsereignisse
    51. Public Sub DS_aenderung( _
    52. ByVal source As Object, _
    53. ByVal e As FileSystemEventArgs)
    55. out("Datei " & e.FullPath & _
    56. " wurde geändert!")
    57. End Sub
    59. ' ### Ereignisbehandlungsroutine für
    60. ' ### Erstellungsereignisse
    61. Public Sub DS_neu(ByVal source As Object, _
    62. ByVal e As FileSystemEventArgs)
    64. out("Datei " & e.FullPath & _
    65. " wurde neu angelegt!")
    66. End Sub
    68. ' ### Ereignisbehandlungsroutine für
    69. ' ### Löschereignisse
    70. Public Sub DS_loeschen(ByVal source As Object, _
    71. ByVal e As FileSystemEventArgs)
    73. out("Datei " & e.FullPath & _
    74. " wurde gelöscht!")
    75. End Sub
    77. ' ### Ereignisbehandlungsroutine für
    78. ' ### Namensänderungen im Dateisystem
    79. Public Sub DS_name(ByVal source As Object, _
    80. ByVal e As RenamedEventArgs)
    82. out("Datei " & e.OldFullPath & _
    83. " heißt nun " & e.FullPath & "!")
    84. End Sub
    86. End Module
    87. End Class

    Andinistrator schrieb:

    Bei folgendem Test hab ich es auch
    Pack den Code in eine WinForms-Form, FileSystemWatcher können nicht innerhalb einer Prozedur instanziiert werden, da sie bei Verlassen dieser Prozedur wieder weggeräumt werden.
    Zieh Dir den FileSystemWatcher im Designer auf die Form.
    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!

    Vielen Dank,
    1. Vielen Dank an diese Community das hier keiner lacht!
    2. ich hatte
    - einen "FileSystemWatcher1" in die Form gezogen
    - ein "Module1" in mein Projekt eingefügt
    - und den Code kopiert

    VB.NET-Quellcode

    1. Imports System.IO
    3. Module Dateisystem_Ueberwachung
    5. Public Sub Dateisystem_ueberwachen()
    6. Const PFAD As String = "C:\Ordner1"
    7. ' --- Instanziierung
    8. Dim watcher As New IO.FileSystemWatcher()
    9. ' --- zu überwachendes Verzeichnis
    10. watcher.Path = PFAD
    11. ' --- zu überwachende Dateitypen
    12. watcher.Filter = "*.*"
    13. ' --- Unterverzeichnisse einschließen
    14. watcher.IncludeSubdirectories = True
    15. ' --- zu überwachende Änderungen
    16. watcher.NotifyFilter = _
    17. NotifyFilters.Attributes Or _
    18. NotifyFilters.LastAccess Or _
    19. NotifyFilters.LastWrite Or _
    20. NotifyFilters.Security Or _
    21. NotifyFilters.Size Or _
    22. NotifyFilters.FileName Or _
    23. NotifyFilters.DirectoryName
    24. ' --- Registrierung der
    25. ' --- Ereignisbehandlungsroutinen
    26. AddHandler watcher.Changed, _
    27. AddressOf DS_aenderung
    28. AddHandler watcher.Created, AddressOf DS_neu
    29. AddHandler watcher.Deleted, _
    30. AddressOf DS_loeschen
    31. AddHandler watcher.Renamed, AddressOf DS_name
    32. ' --- Starten der Überwachung
    33. out("Überwachen von " & PFAD & " beginnt...")
    34. watcher.EnableRaisingEvents = True
    35. ' --- Warten auf Benutzeraktion
    36. MsgBox( _
    37. "Klicken Sie hier, um die Überwachung " & _
    38. "zu beenden!", , "Überwachung")
    39. End Sub
    40. ' ### Ereignisbehandlungsroutine für
    41. ' ### Änderungsereignisse
    42. Public Sub DS_aenderung( _
    43. ByVal source As Object, _
    44. ByVal e As FileSystemEventArgs)
    45. out("Datei " & e.FullPath & _
    46. " wurde geändert!")
    47. End Sub
    48. ' ### Ereignisbehandlungsroutine für
    49. ' ### Erstellungsereignisse
    50. Public Sub DS_neu(ByVal source As Object, _
    51. ByVal e As FileSystemEventArgs)
    52. out("Datei " & e.FullPath & _
    53. " wurde neu angelegt!")
    54. End Sub
    55. ' ### Ereignisbehandlungsroutine für
    56. ' ### Löschereignisse
    57. Public Sub DS_loeschen(ByVal source As Object, _
    58. ByVal e As FileSystemEventArgs)
    59. out("Datei " & e.FullPath & _
    60. " wurde gelöscht!")
    61. End Sub
    62. ' ### Ereignisbehandlungsroutine für
    63. ' ### Namensänderungen im Dateisystem
    64. Public Sub DS_name(ByVal source As Object, _
    65. ByVal e As RenamedEventArgs)
    66. out("Datei " & e.OldFullPath & _
    67. " heißt nun " & e.FullPath & "!")
    68. End Sub
    70. Private Sub out(p1 As String)
    71. Throw New NotImplementedException
    72. End Sub
    74. End Module


    Weiterhin hab ich versucht mit "Form1" das ganze per Button zu starten, um zu sehen ob hier die Messagebox aufgeht, wenn ich etwas ändere - Code:

    VB.NET-Quellcode

    1. Imports System.IO
    2. Public Class Form1
    4. Private Sub FileSystemWatcher1_Changed(sender As System.Object, e As System.IO.FileSystemEventArgs)
    5. Dim watcher As New IO.FileSystemWatcher()
    6. watcher.IncludeSubdirectories = True
    7. End Sub
    9. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    10. FileSystemWatcher1.BeginInit()
    11. End Sub
    12. End Class


    Wenn ich nun aber den Debug (fehlerfrei) starten und ein neues Textdokument einfüge oder lösche, tut sich leider nichts.

    Andinistrator schrieb:

    tut sich leider nichts.

    RodFromGermany schrieb:

    Zieh Dir den FileSystemWatcher im Designer auf die Form.
    Wo in Deinem Code ist die Variable Dim watcher As New IO.FileSystemWatcher()sichtbar?
    Was im Gegensatz zu watcher ist FileSystemWatcher1?
    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!

    Andinistrator schrieb:

    VB.NET-Quellcode

    1. Dim watcher As New IO.FileSystemWatcher()

    RodFromGermany schrieb:

    Wo in Deinem Code ist die Variable Dim watcher As New IO.FileSystemWatcher()sichtbar?
    (Prüfungsaufgabe) ;)
    -----
    und:
    Nutze bitte die Möglichkeit des Forums, Dateien anzuhängen:
    Eerweiterte Antwort => Dateianhänge => hochladen.
    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!

    Ich habe Listing aus Beitrag#5 etwas angepasst, und es funktioniert

    VB.NET-Quellcode

    1. Imports System.IO
    3. Public Class Form1
    5. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
    6. Dateisystem_ueberwachen()
    7. End Sub
    8. ' Module Dateisystem_Ueberwachung
    10. Public Sub Dateisystem_ueberwachen()
    11. Const PFAD As String = "C:\Dev"
    12. ' --- Instanziierung
    13. Dim watcher As New FileSystemWatcher()
    14. ' --- zu überwachendes Verzeichnis
    15. watcher.Path = PFAD
    16. ' --- zu überwachende Dateitypen
    17. watcher.Filter = "*.*"
    18. ' --- Unterverzeichnisse einschließen
    19. watcher.IncludeSubdirectories = True
    20. ' --- zu überwachende Änderungen
    21. watcher.NotifyFilter = _
    22. NotifyFilters.Attributes Or _
    23. NotifyFilters.LastAccess Or _
    24. NotifyFilters.LastWrite Or _
    25. NotifyFilters.Security Or _
    26. NotifyFilters.Size Or _
    27. NotifyFilters.FileName Or _
    28. NotifyFilters.DirectoryName
    29. ' --- Registrierung der
    30. ' --- Ereignisbehandlungsroutinen
    31. AddHandler watcher.Changed, AddressOf DS_aenderung
    32. AddHandler watcher.Created, AddressOf DS_neu
    33. AddHandler watcher.Deleted, AddressOf DS_loeschen
    34. AddHandler watcher.Renamed, AddressOf DS_name
    36. ' --- Starten der Überwachung
    37. ' out("Überwachen von " & PFAD & " beginnt...")
    38. watcher.EnableRaisingEvents = True
    39. ' --- Warten auf Benutzeraktion
    40. 'MsgBox("Klicken Sie hier, um die Überwachung " & "zu beenden!", , "Überwachung")
    41. End Sub
    43. ' ### Ereignisbehandlungsroutine für
    44. ' ### Änderungsereignisse
    45. Public Sub DS_aenderung(ByVal source As Object, ByVal e As FileSystemEventArgs)
    46. out("Datei " & e.FullPath & " wurde geändert!")
    47. End Sub
    49. ' ### Ereignisbehandlungsroutine für
    50. ' ### Erstellungsereignisse
    51. Public Sub DS_neu(ByVal source As Object, ByVal e As FileSystemEventArgs)
    52. out("Datei " & e.FullPath & " wurde neu angelegt!")
    53. End Sub
    55. ' ### Ereignisbehandlungsroutine für
    56. ' ### Löschereignisse
    57. Public Sub DS_loeschen(ByVal source As Object, ByVal e As FileSystemEventArgs)
    58. out("Datei " & e.FullPath & " wurde gelöscht!")
    59. End Sub
    61. ' ### Ereignisbehandlungsroutine für
    62. ' ### Namensänderungen im Dateisystem
    63. Public Sub DS_name(ByVal source As Object, ByVal e As RenamedEventArgs)
    64. out("Datei " & e.OldFullPath & " heißt nun " & e.FullPath & "!")
    65. End Sub
    67. Private Sub out(msg As String)
    68. MsgBox(msg)
    69. End Sub
    71. End Class


    (Eine Beispielmeldung als Bildanhang.)
    Bilder

    • msg1.png

      3,37 kB, 316×157, 57 mal angesehen

    VB2013aufWin81 schrieb:

    Ich habe Listing aus Beitrag#5
    sowie diese Diskussion nicht verstanden, denn ich habe wieder eine prozedur-interne Instanz eines FileSystemWatchers erstellt:

    VB.NET-Quellcode

    1. Dim watcher As New FileSystemWatcher()
    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!

    aber warum ziehst du den FSW nicht einfach aufs Form?
    Das würde den Code um 50% reduzieren - tatsächlich bleibe nurnoch

    VB.NET-Quellcode

    1. Imports System.IO
    3. Public Class Form3
    5. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
    6. FileSystemWatcher1.NotifyFilter = _
    7. NotifyFilters.Attributes Or _
    8. NotifyFilters.LastAccess Or _
    9. NotifyFilters.LastWrite Or _
    10. NotifyFilters.Security Or _
    11. NotifyFilters.Size Or _
    12. NotifyFilters.FileName Or _
    13. NotifyFilters.DirectoryName
    14. End Sub
    16. Public Sub DS_aenderung(ByVal source As Object, ByVal e As FileSystemEventArgs) Handles FileSystemWatcher1.Changed
    17. out("Datei " & e.FullPath & " wurde geändert!")
    18. End Sub
    20. Public Sub DS_neu(ByVal source As Object, ByVal e As FileSystemEventArgs) Handles FileSystemWatcher1.Created
    21. out("Datei " & e.FullPath & " wurde neu angelegt!")
    22. End Sub
    24. Public Sub DS_loeschen(ByVal source As Object, ByVal e As FileSystemEventArgs) Handles FileSystemWatcher1.Deleted
    25. out("Datei " & e.FullPath & " wurde gelöscht!")
    26. End Sub
    28. Public Sub DS_name(ByVal source As Object, ByVal e As RenamedEventArgs) Handles FileSystemWatcher1.Renamed
    29. out("Datei " & e.OldFullPath & " heißt nun " & e.FullPath & "!")
    30. End Sub
    32. Private Sub out(msg As String)
    33. MessageBox.Show(msg)
    34. End Sub
    36. End Class

    Jo - Neuling ist zu bemerken.
    Hier noch meine erster Wichtig-Hinweis für Neulinge: Visual Studio - Empfohlene Einstellungen

    Mach das unbedingt als erstes, noch vor jedem anderen weiteren Schritt. Diese Einstellungen machen den Unterschied aus, ob du vb.net als OOP-Sprache programmierst, oder als Noob-Tool für VB6-Zombies.

    VB2013aufWin81 schrieb:

    Ah, das muss man natürlich wissen

    RodFromGermany schrieb:

    Zieh Dir den FileSystemWatcher im Designer auf die Form.
    Lesen bildet.
    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