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...
Hier die Fehlermeldung: (siehe anhang)
könnt ihr mir weiterhelfen?
mfg
gfcwfzkm
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
- 'ConsoleApplication
- #Region "Imports"
- Imports System.Windows.Forms
- Imports System
- Imports System.Diagnostics
- #End Region
- Public Class Main
- Public Shared Sub Main()
- Console.WriteLine("Form wird gestartet...")
- Call Mainfrm.Components()
- Console.Writeline("Zum beenden einfach HIER enter drücken")
- End Sub
- 'Public Shared Sub btn1_click(ByVal sender as System.Object, ByVal e as System.EventArgs)btn1.click
- 'Call IP_Address
- 'End Sub
- Shared Sub IP_Address()
- Dim client As New Net.WebClient
- Dim publicIP As String = client.DownloadString("http://automation.whatismyip.com/n09230945.asp")
- Console.WriteLine("IP: " & publicIP)
- Console.WriteLine("Host: " & Net.Dns.GetHostEntry(publicIP).HostName)
- End sub
- End Class
- Public Class Mainfrm
- Dim btn1 as New Button
- Dim frm1 as New Form
- Shared Sub Components()
- 'Dim frm as New Form
- 'Dim btn1 as New Button
- btn1.Text = "click me"
- frm1.Controls.add(btn1)
- frm1.Text = "Form1"
- frm1.ShowDialog
- 'If btn1.click = True Then
- 'Call Main.IP_Address()
- 'End If
- End sub
- Public Shared Sub btn1.click(ByVal sender as Object,ByVal e as System.EventArgs)
- Call Main.IP_Address
- End Sub
- End Class
Hier die Fehlermeldung: (siehe anhang)
könnt ihr mir weiterhelfen?
mfg
gfcwfzkm