Visual Basic - Ayuda con combobox

Life is soft - evento anual de software empresarial
   
Vista:

Ayuda con combobox

Publicado por tucan44 (8 intervenciones) el 10/08/2011 16:38:18
Buenas!
Estoy haciendo un explorador, en dicho explorador uso un combobox, donde pongo la URL. El problema viene cuando yo busco por google por ejemplo: "lawebdelprogramador.com", y entro en dicha página pero en el combobox no queda reflejado que estoy en dicha página.

G R A C I A S :)
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Ayuda con combobox

Publicado por jcmg (518 intervenciones) el 20/08/2011 06:18:22
un ejemplo de nevegador sencillo:




Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0
WebBrowser1.GoHome
Case 1
WebBrowser1.GoBack
Case 2
WebBrowser1.GoForward
Case 3
WebBrowser1.Refresh
Case 4
WebBrowser1.Stop
Case 5
If Text1 = "" Then Exit Sub
WebBrowser1.Navigate Text1
Case 6
Form6.Show
End Select
End Sub


Private Sub Form_Load()
WebBrowser1.Navigate Text1
Label2 = "http://www.google.com.mx/firefox?client=firefox-a&rls=org.mozilla:es-ES:official"
End Sub



Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
Text1 = WebBrowser1.LocationURL
Label2 = WebBrowser1.LocationURL
End Sub

Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
On Error GoTo men
'El Máximo de la barra es la variable ProgressMax
ProgressBar.Max = ProgressMax
ProgressBar.Value = Progress
If ProgressMax <= 0 Then
ProgressBar.Visible = False
Else
ProgressBar.Visible = True
End If
Exit Sub
'Error
men:
If Err.Number = 380 Then Resume Next
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Ayuda con combobox

Publicado por tucan44 (8 intervenciones) el 05/09/2011 16:09:00
Algo tarde te respondo, pero muchas gracias!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar