Du bist nicht angemeldet.

[VB 2010] Primitives Problem - Browser inkl. absoluter URL

Maerkus

Schüler

  • »Maerkus« ist der Autor dieses Themas

Beiträge: 14

Dabei seit: 8. Januar 2010

Wohnort: Alzenau

  • Private Nachricht senden

1

Sonntag, 24. Januar 2010, 00:01

Primitives Problem - Browser inkl. absoluter URL

Hey, ich hab irgendwie ein primitives Problem aber ich komm nicht dahinter...

Es geht um eine einfach Problematik: Man gibt in einer TextBox z.B "google.de" ein und es steht dann da "http://www.google.de". Und wenn man auf der Seite weitersurft - Links etc. - ändert sich die URL entsprechend. Aber irgendwie hab ich einen Denkfehler...

Visual Basic Quellcode

 
1
2
3
4
5
6

Private Sub wb_Navigated(ByVal sender As Object, ByVal e As WebBrowserNavigatedEventArgs)


Me.ToolStripComboBox1.Text = WebBrowser1.Url.AbsoluteUri

End Sub


Und da bekomme ich es irgendwie auch nicht gebacken:

Visual Basic Quellcode

 
1
2
3
4
5
6
7
8

 Private Sub ToolStripComboBox1_KeyDown(ByVal sender As System.Object, ByVal e As KeyEventArgs) Handles ToolStripComboBox1.KeyDown

' Wenn ENTER gedrückt wird navigieren und zur
' ComoBox hinzufügen.
If e.KeyCode = Keys.Enter Then
WebBrowser1.Navigate(Me.ToolStripComboBox1.Text)
Me.ToolStripComboBox1.Items.Add(Me.ToolStripComboBox1.Text)
End If


Bitte helft mir mir ;)

P.S:

Und das einfügen einer StatusPar geht auch nicht? :confused:

Visual Basic Quellcode

 
1
2
3
4
5
6
7

    Private Sub Browse_pro(ByVal sender As Object, ByVal e As Windows.Forms.WebBrowserProgressChangedEventArgs)
        Dim CurProg As Double
        Dim MaxProg As Double
        CurProg = e.CurrentProgress
        MaxProg = e.MaximumProgress
        ToolStripProgressBar1.Value = (CurProg / MaxProg) * 100
    End Sub
Dizzler Client

Erste Vorabversion wahrscheinlich schon bald im Showroom...

Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »Maerkus« (24. Januar 2010, 00:12)

Dennis Alexander

Lehrer

  • »Dennis Alexander« ist männlich

Beiträge: 270

Dabei seit: 29. Dezember 2007

Wohnort: dotnetbase.de

  • Private Nachricht senden

2

Sonntag, 24. Januar 2010, 00:24

Zu 1)

Versuche mal folgendes:

Visual Basic Quellcode

 
1
2
3

Private Sub WebBrowser1_Navigated(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles WebBrowser1.Navigated
    Me.ToolStripComboBox1.Text = WebBrowser1.Url.AbsoluteUri
End Sub


Zu 2)

Visual Basic Quellcode

 
1
2
3
4
5
6

Private Sub ToolStripComboBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ToolStripComboBox1.KeyDown
    If e.KeyCode = Keys.Enter Then
        WebBrowser1.Navigate(Me.ToolStripComboBox1.Text)
        Me.ToolStripComboBox1.Items.Add(Me.ToolStripComboBox1.Text)
    End If
End Sub


funktioniert ...

Zu 3)

Funktioniert am einfachsten so:

Visual Basic Quellcode

 
1
2
3
4

	Private Sub WebBrowser1_ProgressChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser1.ProgressChanged
    	progressBar1.Maximum = e.MaximumProgress
    	progressBar1.Value = e.CurrentProgress
	End Sub

WIE LERNE ICH DAS PROGRAMMIEREN AM EINFACHSTEN?
Wer sich nicht an die allg. Umgangsform hält, kommt auf meine Ignore-Liste.

Maerkus

Schüler

  • »Maerkus« ist der Autor dieses Themas

Beiträge: 14

Dabei seit: 8. Januar 2010

Wohnort: Alzenau

  • Private Nachricht senden

3

Sonntag, 24. Januar 2010, 00:37

1) klappt jetzt danke!

Aber 3) nocht nicht ganz: Sieht am Anfang ganz gut aus, Prog.Bar fängt an sich zu füllen, endet dann aber mit

Visual Basic Quellcode

 
1
2

[s]Der Wert -1 ist für Value ungültig. Value sollte zwischen 'minimum' und 'maximum' liegen.
Parametername: Value[/s]


Habs mit dem Marquee Stil realisiert
Dizzler Client

Erste Vorabversion wahrscheinlich schon bald im Showroom...

Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »Maerkus« (24. Januar 2010, 13:23)

Dennis Alexander

Lehrer

  • »Dennis Alexander« ist männlich

Beiträge: 270

Dabei seit: 29. Dezember 2007

Wohnort: dotnetbase.de

  • Private Nachricht senden

4

Sonntag, 24. Januar 2010, 00:49

Wenn du exakt den gleichen Quellcode verwendest, wie in 3) ist das unmöglich ;)

WIE LERNE ICH DAS PROGRAMMIEREN AM EINFACHSTEN?
Wer sich nicht an die allg. Umgangsform hält, kommt auf meine Ignore-Liste.

FAtheone

Experte

  • »FAtheone« ist männlich

Beiträge: 896

Dabei seit: 14. Juni 2009

Wohnort: Somewhere

  • Private Nachricht senden

5

Sonntag, 24. Januar 2010, 12:37

Nein. Wenn das Laden fertig ist, ist Progress -1, da inaktiv.
Einfach mal mit If bafangen....
MFG FAtheone
Von Stil und Code / Alle mal lesen/h4xx0r's hier kilcken (alle anderen auch) / Namensgebung von Controls etc.
Seid ich in den genuss von MAC OS gekommen bin, finde ich Windows wieder super :D

Maerkus

Schüler

  • »Maerkus« ist der Autor dieses Themas

Beiträge: 14

Dabei seit: 8. Januar 2010

Wohnort: Alzenau

  • Private Nachricht senden

6

Sonntag, 24. Januar 2010, 13:25

Zitat von »Dennis Alexander«

Wenn du exakt den gleichen Quellcode verwendest, wie in 3) ist das unmöglich ;)



Das Problem ist, das man ja erst die Größe der Webseite abfragen müsste und diese Größe dann relativ in Prozent umwandeln muss. Aber noch ein Problem: Mittlerweile geht 1) nicht mehr, ich vermute, das das nicht mehr geht weil ich mittlerweile die GeckoFX Engine anstatt dem norm. WebBrowser verwende...

Achja, und noch was nerviges: Beim navigieren über ENTER durch

Visual Basic Quellcode

 
1
2
3
4
5
6
7
8

    Private Sub ToolStripComboBox1_KeyDown(ByVal sender As System.Object, ByVal e As KeyEventArgs) Handles ToolStripComboBox1.KeyDown

        ' Wenn ENTER gedrückt wird navigieren und zur
        ' ComoBox hinzufügen.
        If e.KeyCode = Keys.Enter Then
            WebBrowser1.Navigate(Me.ToolStripComboBox1.Text)
            Me.ToolStripComboBox1.Items.Add(Me.ToolStripComboBox1.Text)
        End If


kommt jedes mal dieses nervige Windows "Plop" wie bei einer Fehlermeldung...
Dizzler Client

Erste Vorabversion wahrscheinlich schon bald im Showroom...

Dennis Alexander

Lehrer

  • »Dennis Alexander« ist männlich

Beiträge: 270

Dabei seit: 29. Dezember 2007

Wohnort: dotnetbase.de

  • Private Nachricht senden

7

Sonntag, 24. Januar 2010, 13:32

FAIL

Visual Basic Quellcode

 
1
2
3
4

Private Sub WebBrowser1_ProgressChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser1.ProgressChanged
    progressBar1.Maximum = e.MaximumProgress
    progressBar1.Value = e.CurrentProgress
End Sub


Warum willst Du hier die prozentuale Angabe errechnen? Das passiert automatisch, wenn Du das Maximum setzt, und den Value dann zuweist.

Zitat


1) nicht mehr, ich vermute, das das nicht mehr geht weil ich mittlerweile die GeckoFX Engine anstatt dem norm. WebBrowser verwende...
... soll ich darauf jetzt wirklich antworten?

Zitat

Achja, und noch was nerviges: Beim navigieren über ENTER durch



Visual Basic Quellcode
1
2
3
4
5
6
7
8

Private Sub ToolStripComboBox1_KeyDown(ByVal sender As System.Object, ByVal e As KeyEventArgs) Handles ToolStripComboBox1.KeyDown

' Wenn ENTER gedrückt wird navigieren und zur
' ComoBox hinzufügen.
If e.KeyCode = Keys.Enter Then
WebBrowser1.Navigate(Me.ToolStripComboBox1.Text)
Me.ToolStripComboBox1.Items.Add(Me.ToolStripComboBox1.Text)
End If



kommt jedes mal dieses nervige Windows "Plop" wie bei einer Fehlermeldung...
Jetzt mal im Ernst: Entwickelst Du eigentlich auch? Ich denke das Du jetzt einen Browser schreibst, bzw. dein aktuelles Projekt ein Browser sein soll. Bislang hast du für die ganze Logik hier gefragt und immer antworten erhalten.

Suchst Du eigentlich auch nach einer Antwort, oder postest Du es einfach nur und hoffst das Leute wie ich kommen und Dir alles vorkauen? Es gibt Google, da kann man sein Problem eingeben und dann suchen. Darüberhinaus gibt es die MSDN-Library!

Das Programmieren einer Anwendung besteht nicht nur aus Copy&Paste der Antworten.

WIE LERNE ICH DAS PROGRAMMIEREN AM EINFACHSTEN?
Wer sich nicht an die allg. Umgangsform hält, kommt auf meine Ignore-Liste.

Maerkus

Schüler

  • »Maerkus« ist der Autor dieses Themas

Beiträge: 14

Dabei seit: 8. Januar 2010

Wohnort: Alzenau

  • Private Nachricht senden

8

Sonntag, 24. Januar 2010, 13:53

Es zwingt dich keiner mir zu helfen. Ich finde es nett von dir - danke; aber wenn du den zwingenden Drang verspürst dich eher in höhere Ebenen der intellektuellen Programmierens zu begeben - bitte. Trotzdem danke für die Hilfe, auch wenn ich es schade finde das Leute die vielleicht schon seit mehr als 10 Jahren programmieren kein Verständnis dafür haben das auch sie mal klein angefangen haben...

P.S: Natürlich kann man was bei Google eingeben. Bekommt man eine Antwort. Toll. Verstanden hat man die Ursache trotzdem nicht. Und genau deshalb programmiert man ja so kleine eigentlich sinnlose Projekte (oder glaubst du im Ernst jemand anderes außer mir wird diesen Browser verwenden?). Um zu verstehen. Nicht um zu kopieren
Dizzler Client

Erste Vorabversion wahrscheinlich schon bald im Showroom...

Dennis Alexander

Lehrer

  • »Dennis Alexander« ist männlich

Beiträge: 270

Dabei seit: 29. Dezember 2007

Wohnort: dotnetbase.de

  • Private Nachricht senden

9

Sonntag, 24. Januar 2010, 13:57

Natürlich habe ich verständnis dafür. Ich habe auch klein angefangen und ich erinnere mich auch noch gut genug daran.

Es ist aber auch wichtig das man sich selber damit beschäftigt. Wenn man sich 3-4 Tage in eine Thematik reingebissen hat und keine Lösung findet, dann finde ich es ja gut das man fragt. Aber durch das experimentieren und lesen lernt man mehr als durch das Fragen.

WIE LERNE ICH DAS PROGRAMMIEREN AM EINFACHSTEN?
Wer sich nicht an die allg. Umgangsform hält, kommt auf meine Ignore-Liste.

Maerkus

Schüler

  • »Maerkus« ist der Autor dieses Themas

Beiträge: 14

Dabei seit: 8. Januar 2010

Wohnort: Alzenau

  • Private Nachricht senden

10

Sonntag, 24. Januar 2010, 14:27

Also das mit der Absoluten URL habe ich jetzt statt mit

Visual Basic Quellcode

 
1
2
3

    Private Sub WebBrowser1_Navigated(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs)
        Me.ToolStripComboBox1.Text = WebBrowser1.Url.AbsoluteUri
    End Sub


mit

Visual Basic Quellcode

 
1
2
3

    Private Sub WebBrowser1_DocumentTitleChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles WebBrowser1.DocumentTitleChanged
        ToolStripComboBox1.Text = WebBrowser1.Url.AbsoluteUri
    End Sub
.

Nur mit diesem seltsamen Geräusch komm ich noch nicht weiter...mal sehen...
Dizzler Client

Erste Vorabversion wahrscheinlich schon bald im Showroom...

Ähnliche Themen