Hey,
Ich habe ein kleineres Problem ...
Ich bin neuer was das Programmieren angeht,
aber eig. stimmt doch an diesem Code alles oder ?
Trotzdem kommt die Fehlermeldung : Fehler 1 Fehler bei der Überladungsauflösung, da keine zugreifbare "New" diese Anzahl von Argumenten akzeptiert.
Was ist denn falsch ? Sollte ich den Counter mit einem label machen ?
Danke für eure Hilfe
- Thilo
VB-Tags eingefügt. ~Thunderbolt
Ich habe ein kleineres Problem ...
Ich bin neuer was das Programmieren angeht,
aber eig. stimmt doch an diesem Code alles oder ?
VB.NET-Quellcode
- Public Class Form1
- 'Ton aus
- Private Const APPCOMMAND_VOLUME_MUTE As Integer = &H80000
- Private Const WM_APPCOMMAND As Integer = &H319
- Declare Function SendMessageW Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
- 'Ton aus
- 'WebBrowserZähler
- Dim Counter As New String
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- 'Ton aus
- SendMessageW(Me.Handle, WM_APPCOMMAND, Me.Handle, CType(APPCOMMAND_VOLUME_MUTE, IntPtr))
- 'Ton aus
- 'WebBrowser verstecken
- 'WebBrowser1.Hide()
- 'WebBrowser2.Hide()
- 'WebBrowser3.Hide()
- 'WebBrowser4.Hide()
- End Sub
- Private Sub YouTubeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YouTubeToolStripMenuItem.Click
- 'YouTube
- Process.Start("https://www.youtube.com/channel/UC3PDXRiBojkAGSiqmhp_odQ")
- End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- 1: WebBrowser1.Navigate(TextBox1.Text)
- Do Until WebBrowser1.ReadyState = WebBrowserReadyState.Complete
- Application.DoEvents()
- Counter += 1
- Loop
- WebBrowser2.Navigate(TextBox1.Text)
- Do Until WebBrowser1.ReadyState = WebBrowserReadyState.Complete
- Application.DoEvents()
- Counter += 1
- Loop
- WebBrowser3.Navigate(TextBox1.Text)
- Do Until WebBrowser1.ReadyState = WebBrowserReadyState.Complete
- Application.DoEvents()
- Counter += 1
- Loop
- WebBrowser4.Navigate(TextBox1.Text)
- Do Until WebBrowser1.ReadyState = WebBrowserReadyState.Complete
- Application.DoEvents()
- Counter += 1
- Loop
- GoTo 1
- If Counter = NumericUpDown1.Text Then
- Me.Close()
- End If
- End Sub
- End Class
Trotzdem kommt die Fehlermeldung : Fehler 1 Fehler bei der Überladungsauflösung, da keine zugreifbare "New" diese Anzahl von Argumenten akzeptiert.
Was ist denn falsch ? Sollte ich den Counter mit einem label machen ?
Danke für eure Hilfe
- Thilo
VB-Tags eingefügt. ~Thunderbolt
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Thunderbolt“ ()