Button kann nicht geklickt werden

  • VB.NET

Es gibt 14 Antworten in diesem Thema. Der letzte Beitrag () ist von gfcwfzkm.

    Button kann nicht geklickt werden

    Hi,

    ich versuche auf meinem Multi-Editor eine Form mit Button zu machen.
    So weit so gut. Jetzt will ich, das beim klick aufm button was passiert.... Und da kommt der fehler...

    VB.NET-Quellcode

    1. 'ConsoleApplication
    2. #Region "Imports"
    3. Imports System.Windows.Forms
    4. Imports System
    5. Imports System.Diagnostics
    6. #End Region
    8. Public Class Main
    10. Public Shared Sub Main()
    11. Console.WriteLine("Form wird gestartet...")
    12. Call Mainfrm.Components()
    13. Console.Writeline("Zum beenden einfach HIER enter drücken")
    14. End Sub
    18. 'Public Shared Sub btn1_click(ByVal sender as System.Object, ByVal e as System.EventArgs)btn1.click
    19. 'Call IP_Address
    20. 'End Sub
    22. Shared Sub IP_Address()
    23. Dim client As New Net.WebClient
    24. Dim publicIP As String = client.DownloadString("http://automation.whatismyip.com/n09230945.asp")
    25. Console.WriteLine("IP: " & publicIP)
    26. Console.WriteLine("Host: " & Net.Dns.GetHostEntry(publicIP).HostName)
    27. End sub
    28. End Class
    29. Public Class Mainfrm
    31. Dim btn1 as New Button
    32. Dim frm1 as New Form
    34. Shared Sub Components()
    35. 'Dim frm as New Form
    36. 'Dim btn1 as New Button
    37. btn1.Text = "click me"
    38. frm1.Controls.add(btn1)
    39. frm1.Text = "Form1"
    40. frm1.ShowDialog
    41. 'If btn1.click = True Then
    42. 'Call Main.IP_Address()
    43. 'End If
    44. End sub
    46. Public Shared Sub btn1.click(ByVal sender as Object,ByVal e as System.EventArgs)
    47. Call Main.IP_Address
    48. End Sub
    49. End Class


    Hier die Fehlermeldung: (siehe anhang)

    könnt ihr mir weiterhelfen?

    mfg

    gfcwfzkm
    Bilder

    • Unbenannt.PNG

      72,33 kB, 461×544, 124 mal angesehen

    versuche mal in der Public Class Mainfrm

    VB.NET-Quellcode

    1. Dim btn1 as New btn1
    2. Dim frm1 as New Form
    4. Shared Sub Components()
    5. 'Dim frm as New Form
    6. 'Dim btn1 as New Button
    7. btn1.Text = "click me"
    8. frm1.Controls.add(btn1)
    9. frm1.Text = "Form1"
    10. frm1.ShowDialog
    11. 'If btn1.click = True Then
    12. 'Call Main.IP_Address()
    13. 'End If
    14. End sub
    16. Public Shared Sub btn1.click(ByVal sender as Object,ByVal e as System.EventArgs)
    17. Call Main.IP_Address
    18. End Sub

    das mit dem Modul geht nicht.

    Habe es mit AddHandler probiert, und wieder ein echt mühsamer fehler...

    VB.NET-Quellcode

    1. Shared Sub Components()
    2. Dim frm1 as New Form
    3. Dim btn1 as New Button
    4. btn1.Text = "click me"
    5. frm1.Controls.add(btn1)
    6. frm1.Text = "Form1"
    7. AddHandler btn1.click, AddressOf btn1_geklickt
    8. frm1.ShowDialog
    9. 'If btn1.click = True Then
    10. 'Call Main.IP_Address()
    11. 'End If
    12. End sub
    14. Shared Sub btn1_geklickt()
    15. MessageBox.Show("Es funzt =D")
    16. End Sub


    Error:(siehe Anhang)

    mfg
    Bilder

    • x.PNG

      35,35 kB, 495×228, 92 mal angesehen

    Warum nimmst Du nicht eine Form-Anwendung und gibst ihr einen Splash-Screen?
    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!

    8|

    Kapiere nicht ganz...

    möchte ein richtige Anwendbare Windows-Forms-Anwendung mit den "/target:winexe" machen.

    Und brauche dafür halt etwas hilfe, da ich einen Andwendbaren button möchte

    also ich glaub ja immer noch, dass das geht:

    VB.NET-Quellcode

    1. 'ConsoleApplication
    2. #Region "Imports"
    3. Imports System.Windows.Forms
    4. Imports System
    5. Imports System.Diagnostics
    6. #End Region
    8. Public Class Main
    10. Public Shared Sub Main()
    11. Console.WriteLine("Form wird gestartet...")
    12. Call Mainfrm.Components()
    13. Console.Writeline("Zum beenden einfach HIER enter drücken")
    14. End Sub
    18. 'Public Shared Sub btn1_click(ByVal sender as System.Object, ByVal e as System.EventArgs)btn1.click
    19. 'Call IP_Address
    20. 'End Sub
    22. Shared Sub IP_Address()
    23. Dim client As New Net.WebClient
    24. Dim publicIP As String = client.DownloadString("http://automation.whatismyip.com/n09230945.asp")
    25. Console.WriteLine("IP: " & publicIP)
    26. Console.WriteLine("Host: " & Net.Dns.GetHostEntry(publicIP).HostName)
    27. End sub
    28. End Class
    29. Public Module Mainfrm
    31. Dim btn1 as New Button
    32. Dim frm1 as New Form
    34. Sub Components()
    35. 'Dim frm as New Form
    36. 'Dim btn1 as New Button
    37. btn1.Text = "click me"
    38. frm1.Controls.add(btn1)
    39. frm1.Text = "Form1"
    40. frm1.ShowDialog
    41. 'If btn1.click = True Then
    42. 'Call Main.IP_Address()
    43. 'End If
    44. End sub
    46. Public Sub btn1.click(ByVal sender as Object,ByVal e as System.EventArgs)
    47. Call Main.IP_Address
    48. End Sub
    49. End Module
    was geht daran nicht?

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

    Habs nun so gelöst, aber es passiert nix. Auc kein Fehler oder so:

    VB.NET-Quellcode

    1. 'ConsoleApplication
    2. #Region "Imports"
    3. Imports System.Windows.Forms
    4. Imports System
    5. Imports System.Diagnostics
    6. #End Region
    8. Public Class Main
    9. 'Public t as Threading.Thread(AddressOf Mainfrm.Components)
    11. Public Shared Sub Main()
    12. Console.WriteLine("Form wird gestartet...")
    13. 't.start()
    14. Call Mainfrm.Components()
    15. Console.Writeline("Zum beenden einfach HIER enter drücken")
    16. Console.ReadLine()
    17. End Sub
    21. 'Public Shared Sub btn1_click(ByVal sender as System.Object, ByVal e as System.EventArgs)btn1.click
    22. 'Call IP_Address
    23. 'End Sub
    25. Shared Sub IP_Address()
    26. Dim client As New Net.WebClient
    27. Dim publicIP As String = client.DownloadString("http://automation.whatismyip.com/n09230945.asp")
    28. Console.WriteLine("IP: " & publicIP)
    29. Console.WriteLine("Host: " & Net.Dns.GetHostEntry(publicIP).HostName)
    30. End sub
    31. End Class
    32. Public Module Mainfrm
    34. Private btn1 as New Button
    35. Private frm1 as New Form
    37. Sub Components()
    38. 'Dim frm as New Form
    39. 'Dim btn1 as New Button
    40. btn1.Text = "click me"
    41. frm1.Controls.add(btn1)
    42. btn1.Height = 100
    43. btn1.Width = 120
    44. frm1.Height = 135
    45. frm1.Width = 100
    46. frm1.Text = "Form1"
    47. frm1.MinimizeBox = False
    48. frm1.MaximizeBox = False
    49. frm1.ShowDialog
    50. AddHandler btn1.click, AddressOf Button_clicked
    51. 'If btn1.click = True Then
    52. 'Call Main.IP_Address()
    53. 'End If
    54. End sub
    56. Public Sub Button_clicked(ByVal sender as Object,ByVal e as System.EventArgs)
    57. Call Nachricht()
    58. End Sub
    60. Public Sub Nachricht()
    61. MessageBox.Show("Es klappt")
    62. End Sub
    64. 'Public Sub btn1.click(ByVal sender as Object,ByVal e as System.EventArgs)
    65. 'Call Main.IP_Address
    66. 'End Sub
    67. End Module


    Also, kein Fehler, aber was dann Falsch?

    mfg

    gfcwfzkm

    Jo, super, funzt =D

    Jetzt muss ich nur noch sehen, wie ich die Konsole verschwinden lasse oder wie man target:winexe verwendet...

    mfg & thx

    gfcwfzkm

Facebook
Telefonspende