Ungültiger Parametername me.hide

  • VB.NET

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

    Ungültiger Parametername me.hide

    Hallo !

    Warum erhalte ich eine fehlermeldung ?

    VB.NET-Quellcode

    1. bmp.Save(SpeicherPfad & "\" & namenlabel.Text & "-" & i & ".jpg")
    3. PictureBox1.Image.Dispose()
    6. File.Delete(ListBox1.Items(0))
    7. ListBox1.Items.Remove(ListBox1.Items(0))
    8. Try
    10. PictureBox1.Image = Image.FromFile(ListBox1.Items(0))
    12. Catch ex As Exception
    13. PictureBox1.Image.Dispose()
    14. Me.Hide()
    16. End Try

    In welcher / was für einer Klasse und in welcher Prozedur steht dieser 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!

    Button 1_click:

    VB.NET-Quellcode

    1. If ComboBox1.Text = "" Then
    2. MsgBox("Benutzer wählen!", MsgBoxStyle.Exclamation)
    3. Exit Sub
    4. End If
    5. Dim SpeicherPfad As String = My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\resources\Benutzer\" & namenlabel.Text)
    6. Dim i As Integer = 1
    7. Dim bmp As New Bitmap(PictureBox1.Image)
    8. Dim g As Graphics = Graphics.FromImage(bmp)
    10. If zusatztb.Text = "" Then
    11. g.FillRectangle(Brushes.Black, New Rectangle(0, bmp.Height - (bmp.VerticalResolution - 50), 200, 50))
    12. g.FillRectangle(Brushes.Black, New Rectangle(bmp.Width - 190, 0, bmp.Width, 25))
    13. g.DrawString(DateTime.Now, New Font("Arial", 14), Brushes.White, New Point(bmp.Width - 190, 0))
    14. g.DrawString(namenlabel.Text, New Font("Arial", 20), Brushes.White, New Point(10, bmp.Height - (bmp.VerticalResolution - 60)))
    15. Else
    16. g.FillRectangle(Brushes.Black, New Rectangle(0, bmp.Height - (bmp.VerticalResolution - 50), 300, 50))
    17. g.FillRectangle(Brushes.Black, New Rectangle(0, bmp.Height - (bmp.VerticalResolution), 200, 50))
    18. g.FillRectangle(Brushes.Black, New Rectangle(bmp.Width - 190, 0, bmp.Width, 25))
    20. g.DrawString(zusatztb.Text, New Font("Arial", 20), Brushes.White, New Point(10, bmp.Height - (bmp.VerticalResolution - 60)))
    21. g.DrawString(DateTime.Now, New Font("Arial", 14), Brushes.White, New Point(bmp.Width - 190, 0))
    22. g.DrawString(namenlabel.Text, New Font("Arial", 20), Brushes.White, New Point(10, bmp.Height - bmp.VerticalResolution + 10))
    23. End If
    26. Do While File.Exists(SpeicherPfad & "\" & namenlabel.Text & "-" & i & ".jpg")
    27. i += 1
    28. Loop
    31. bmp.Save(SpeicherPfad & "\" & namenlabel.Text & "-" & i & ".jpg")
    33. PictureBox1.Image.Dispose()
    36. File.Delete(ListBox1.Items(0))
    37. ListBox1.Items.Remove(ListBox1.Items(0))
    38. Try
    40. PictureBox1.Image = Image.FromFile(ListBox1.Items(0))
    42. Catch ex As Exception
    43. MsgBox("Keine weiteren Bilder vorhanden! Bitte Kamera abschließen", MsgBoxStyle.Information)
    44. End Try

    Ja und?
    Was willst Du uns mit diesem Code sagen?
    Ich hatte die Vermutung, dass Du diesen Code in einer nicht von Form abgeleiteten Klasse aufrufst.
    Das ist wohl nicht der Fall.
    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!

    Hier mal der gesamte source - ich find einfach den fehler nicht - wäre sehrrrrrrrr dankbar wenn mir jemand hilt - alles ist fertig und nun hab ich nen wurm drinne -.-

    VB.NET-Quellcode

    1. Imports System.IO
    3. Public Class Form1
    5. Dim PfadAufDemDevice = My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\resources\Bilderpfad.txt")
    7. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    9. Dim LW As String = My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\resources\Laufwerkbuchstabe.txt")
    11. If Directory.Exists(LW & ":\") Then
    12. PictureBox1.Image = PictureBox1.ErrorImage
    13. ListBox1.Items.Clear()
    14. Me.Show()
    15. Timer1.Stop()
    16. timer2.start()
    17. For Each item In Directory.GetFiles(LW & ":\" & PfadAufDemDevice)
    18. ListBox1.Items.Add(item)
    19. Next
    20. Try
    22. PictureBox1.Image = Image.FromFile(ListBox1.Items(0))
    24. Catch ex As Exception
    25. MsgBox("Keine Bilder gefunden! Kamera abschließen!", MsgBoxStyle.Exclamation)
    26. End Try
    27. Else
    28. Me.Hide()
    31. End If
    33. End Sub
    35. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    36. Timer1.Start()
    38. For Each items In New System.IO.DirectoryInfo(Application.StartupPath & "\resources\Benutzer").GetFiles()
    39. ComboBox1.Items.Add(items)
    40. Next
    42. End Sub
    44. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    46. End Sub
    48. Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
    49. namenlabel.Text = ComboBox1.Text
    50. End Sub
    52. Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    54. If ComboBox1.Text = "" Then
    55. MsgBox("Benutzer wählen!", MsgBoxStyle.Exclamation)
    56. Exit Sub
    57. End If
    58. Dim SpeicherPfad As String = My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\resources\Benutzer\" & namenlabel.Text)
    59. Dim i As Integer = 1
    60. Dim bmp As New Bitmap(PictureBox1.Image)
    61. Dim g As Graphics = Graphics.FromImage(bmp)
    63. If zusatztb.Text = "" Then
    64. g.FillRectangle(Brushes.Black, New Rectangle(0, bmp.Height - (bmp.VerticalResolution - 50), 200, 50))
    65. g.FillRectangle(Brushes.Black, New Rectangle(bmp.Width - 190, 0, bmp.Width, 25))
    66. g.DrawString(DateTime.Now, New Font("Arial", 14), Brushes.White, New Point(bmp.Width - 190, 0))
    67. g.DrawString(namenlabel.Text, New Font("Arial", 20), Brushes.White, New Point(10, bmp.Height - (bmp.VerticalResolution - 60)))
    68. Else
    69. g.FillRectangle(Brushes.Black, New Rectangle(0, bmp.Height - (bmp.VerticalResolution - 50), 300, 50))
    70. g.FillRectangle(Brushes.Black, New Rectangle(0, bmp.Height - (bmp.VerticalResolution), 200, 50))
    71. g.FillRectangle(Brushes.Black, New Rectangle(bmp.Width - 190, 0, bmp.Width, 25))
    73. g.DrawString(zusatztb.Text, New Font("Arial", 20), Brushes.White, New Point(10, bmp.Height - (bmp.VerticalResolution - 60)))
    74. g.DrawString(DateTime.Now, New Font("Arial", 14), Brushes.White, New Point(bmp.Width - 190, 0))
    75. g.DrawString(namenlabel.Text, New Font("Arial", 20), Brushes.White, New Point(10, bmp.Height - bmp.VerticalResolution + 10))
    76. End If
    79. Do While File.Exists(SpeicherPfad & "\" & namenlabel.Text & "-" & i & ".jpg")
    80. i += 1
    81. Loop
    84. bmp.Save(SpeicherPfad & "\" & namenlabel.Text & "-" & i & ".jpg")
    86. PictureBox1.Image.Dispose()
    88. Dim LW As String = My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\resources\Laufwerkbuchstabe.txt")
    89. File.Delete(ListBox1.Items(0))
    90. ListBox1.Items.Remove(ListBox1.Items(0))
    91. Try
    93. PictureBox1.Image = Image.FromFile(ListBox1.Items(0))
    95. Catch ex As Exception
    98. !! FEHLER LIEGT HIER !!
    101. End Try
    104. End Sub
    106. Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
    109. Dim LW As String = My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\resources\Laufwerkbuchstabe.txt")
    111. If Directory.Exists(LW & ":\") Then
    112. Me.Show()
    113. Else
    114. Me.Hide()
    115. Timer2.Stop()
    116. Timer1.Start()
    117. End If
    120. End Sub
    122. Private Sub AnlegenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AnlegenToolStripMenuItem.Click
    123. Dim LW As String = My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\resources\Laufwerkbuchstabe.txt")
    124. Dim Name As String = InputBox("Name: ")
    125. Dim Pfad As String
    126. If FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
    127. Pfad = FolderBrowserDialog1.SelectedPath
    128. End If
    129. My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\resources\Benutzer\" & Name, Pfad, False)
    130. ComboBox1.Items.Clear()
    131. For Each items In New System.IO.DirectoryInfo(Application.StartupPath & "\resources\Benutzer").GetFiles()
    132. ComboBox1.Items.Add(items)
    133. Next
    135. End Sub
    138. Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
    139. e.Cancel = True
    140. End Sub
    142. Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
    143. Me.Close()
    144. End Sub
    147. End Class

    Nimm mal das:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.IO
    3. Public Class Form1
    5. Dim PfadAufDemDevice As String '= My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\resources\Bilderpfad.txt")
    7. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    9. Dim LW As String = My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\resources\Laufwerkbuchstabe.txt")
    11. If Directory.Exists(LW & ":\") Then
    12. PictureBox1.Image = PictureBox1.ErrorImage
    13. ListBox1.Items.Clear()
    14. Me.Show()
    15. Timer1.Stop()
    16. timer2.start()
    17. For Each item In Directory.GetFiles(LW & ":\" & PfadAufDemDevice)
    18. ListBox1.Items.Add(item)
    19. Next
    20. Try
    22. PictureBox1.Image = Image.FromFile(ListBox1.Items(0).ToString)
    24. Catch ex As Exception
    25. MsgBox("Keine Bilder gefunden! Kamera abschließen!", MsgBoxStyle.Exclamation)
    26. End Try
    27. Else
    28. Me.Hide()
    31. End If
    33. End Sub
    35. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    36. PfadAufDemDevice = My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\resources\Bilderpfad.txt")
    37. Timer1.Start()
    39. For Each items In New System.IO.DirectoryInfo(Application.StartupPath & "\resources\Benutzer").GetFiles()
    40. ComboBox1.Items.Add(items)
    41. Next
    43. End Sub
    45. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    47. End Sub
    49. Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
    50. namenlabel.Text = ComboBox1.Text
    51. End Sub
    53. Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    55. If ComboBox1.Text = "" Then
    56. MsgBox("Benutzer wählen!", MsgBoxStyle.Exclamation)
    57. Exit Sub
    58. End If
    59. Dim SpeicherPfad As String = My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\resources\Benutzer\" & namenlabel.Text)
    60. Dim i As Integer = 1
    61. Dim bmp As New Bitmap(PictureBox1.Image)
    62. Dim g As Graphics = Graphics.FromImage(bmp)
    64. If zusatztb.Text = "" Then
    65. g.FillRectangle(Brushes.Black, New Rectangle(0, bmp.Height - CInt(bmp.VerticalResolution - 50), 200, 50))
    66. g.FillRectangle(Brushes.Black, New Rectangle(bmp.Width - 190, 0, bmp.Width, 25))
    67. g.DrawString(DateTime.Now.ToShortDateString, New Font("Arial", 14), Brushes.White, New Point(bmp.Width - 190, 0))
    68. g.DrawString(namenlabel.Text, New Font("Arial", 20), Brushes.White, New Point(10, bmp.Height - CInt(bmp.VerticalResolution - 60)))
    69. Else
    70. g.FillRectangle(Brushes.Black, New Rectangle(0, bmp.Height - CInt(bmp.VerticalResolution - 50), 300, 50))
    71. g.FillRectangle(Brushes.Black, New Rectangle(0, bmp.Height - CInt(bmp.VerticalResolution), 200, 50))
    72. g.FillRectangle(Brushes.Black, New Rectangle(bmp.Width - 190, 0, bmp.Width, 25))
    74. g.DrawString(zusatztb.Text, New Font("Arial", 20), Brushes.White, New Point(10, bmp.Height - CInt(bmp.VerticalResolution - 60)))
    75. g.DrawString(DateTime.Now.ToShortDateString, New Font("Arial", 14), Brushes.White, New Point(bmp.Width - 190, 0))
    76. g.DrawString(namenlabel.Text, New Font("Arial", 20), Brushes.White, New Point(10, bmp.Height - CInt(bmp.VerticalResolution) + 10))
    77. End If
    80. Do While File.Exists(SpeicherPfad & "\" & namenlabel.Text & "-" & i & ".jpg")
    81. i += 1
    82. Loop
    85. bmp.Save(SpeicherPfad & "\" & namenlabel.Text & "-" & i & ".jpg")
    87. PictureBox1.Image.Dispose()
    89. Dim LW As String = My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\resources\Laufwerkbuchstabe.txt")
    90. File.Delete(ListBox1.Items(0).ToString)
    91. ListBox1.Items.Remove(ListBox1.Items(0))
    92. Try
    94. PictureBox1.Image = Image.FromFile(ListBox1.Items(0).ToString)
    96. Catch ex As Exception
    99. '!! FEHLER LIEGT HIER !!
    102. End Try
    105. End Sub
    107. Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
    110. Dim LW As String = My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\resources\Laufwerkbuchstabe.txt")
    112. If Directory.Exists(LW & ":\") Then
    113. Me.Show()
    114. Else
    115. Me.Hide()
    116. Timer2.Stop()
    117. Timer1.Start()
    118. End If
    121. End Sub
    123. Private Sub AnlegenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AnlegenToolStripMenuItem.Click
    124. Dim LW As String = My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\resources\Laufwerkbuchstabe.txt")
    125. Dim Name As String = InputBox("Name: ")
    126. Dim Pfad As String
    127. If FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
    128. Pfad = FolderBrowserDialog1.SelectedPath
    129. End If
    130. My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\resources\Benutzer\" & Name, Pfad, False)
    131. ComboBox1.Items.Clear()
    132. For Each items In New System.IO.DirectoryInfo(Application.StartupPath & "\resources\Benutzer").GetFiles()
    133. ComboBox1.Items.Add(items)
    134. Next
    136. End Sub
    139. Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
    140. e.Cancel = True
    141. End Sub
    143. Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
    144. Me.Close()
    145. End Sub
    148. End Class
    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 hab den Inhalt nicht weiter verfolgt.
    Mach vllt. eine For Each-Schleife über alle ListBox-Items, da bist Du halt fertig, wenn alle abgearbeitet sind, da brauchst Du kein Try / Catch.
    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!

    kikipetro schrieb:

    kommt die selbe fehlermeldung

    Was muss ich tun, um den Fehler reproduzieren zu können?
    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!