 Autor
|
Tema: Seguimo con WebBrowser (Leído 3,549 veces)
|
JoNa?
 Desconectado
Mensajes: 4
|
porque se le llama a la variable i? es que lo he visto en varios codigos y no se para que sirve exactamente esa variable :S
Saludos por adelantado
|
|
|
|
|
En línea
|
|
|
|
NYlOn
Desconectado
Mensajes: 842
OOOOHHHHHH, TARAGÜIIII xDDDDDD
|
Si tienes un bucle Dim i as Integer
For i = 0 to 5
MsgBox i
Next i
La variable i es la que va a ir aumentando hasta llegar a 5. Por ejemplo, si queres agregar en un ListBox 100 numeros, en vez de poner List1.Additem "1"
List1.Additem "2"
List1.Additem "3"
List1.Additem "4"
...
List1.Additem "100"
Pones: For i = 1 to 100
List1.AddItem i
next i
En resumen, la variable es la que va a ir cambiando de valor. Saludos.-
|
|
|
|
|
En línea
|
|
|
|
Hans el Topo
Desconectado
Mensajes: 1.754
"Estoy cansado de no hacer nada"
|
porque se le llama a la variable i? es que lo he visto en varios codigos y no se para que sirve exactamente esa variable :S
Saludos por adelantado
como bien ha dicho NYlOn la variable i es una variable auxiliar que se utiliza para recorrer bucles, si hay varios bucles suelen ser i,k... y lo que se te apetezca...
|
|
|
|
|
En línea
|
|
|
|
sircid
Desconectado
Mensajes: 107
¡Nacido para ******te!
|
Muchas gracias che! estoy aprendiendo mucho... Ahora tengo otra pregunta, como hago para hacer un bucle en el formulario que vaya tirando numeros del 1 al 100???
Gracias!!
Especifíca más. Lo que quieres hacer es rellenar un campo con el número 1, enviar el formulario, rellenar el campo con el número 2, enviar el formulario, así hasta 100? si es asi aqui tienes el codigo para hacerte una idea Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim html As String
html = WebBrowser1.Document.documentElement.outerhtml 'obtiene el codigo fuente de la pagina
n = InStr(1, html, "ImageButton1", vbTextCompare) 'busca ImageButton1 en el codigo fuente
If n >= 1 Then ' si encuentra ImageButton1
a = a + 1 'suma 1
If a < 100 Then ' si a es menor que 100
WebBrowser1.Document.All("nombredelcampo") = a 'rellena el campo
WebBrowser1.Document.Forms(0).Submit ' envia el formulario
End If
Else ' si no encuentra imagebutton1
WebBrowser1.Navigate "http://www.movinet.com.uy/WAPMain/MIST/SMS/(4bhkeuiwwcut5yvhznlhvd45)/WebSMSMovistar.aspx" ' carga de nuevo la página
End If
End Sub
|
|
|
|
« Última modificación: 23 Julio 2006, 15:14 pm por sircid »
|
En línea
|
|
|
|
xDie
Desconectado
Mensajes: 326
lol
|
Si lo que quiero hacers, es que valla poniendo numero del 1 al 100, y cada vez que coloque un numero presione el boton.. pero ese codigo que me diste no me funciono, necesito como el bucle de hans el topo, peroq eu valla lento asi da tiempo de hacer el click.. me entienden??
|
|
|
|
|
En línea
|
Licence to kill!
|
|
|
Hans el Topo
Desconectado
Mensajes: 1.754
"Estoy cansado de no hacer nada"
|
Si lo que quiero hacers, es que vaya poniendo numero del 1 al 100, y cada vez que coloque un numero presione el boton.. pero ese codigo que me diste no me funciono, necesito como el bucle de hans el topo, peroq eu vaya lento asi da tiempo de hacer el click.. me entienden??
haz que un timer dispare el evento, ¿ves? le pones tu el intervalo que quieras que se dispare, 1000 milisegundos esta bien if val(txt1.text)<>100 then
'pulsamos y tal el boton
txt1.text=txt1.text+1 'contamos
else
'hemos terminado xk es 100
timer1.enabled=false
endif eso iría en el código.... ANTES DEPREGUNTAR OTRA VEZ BUSCA INFORMACIÓN POR TI MISMO PERRETE
|
|
|
|
« Última modificación: 24 Julio 2006, 00:19 am por Hans el Topo »
|
En línea
|
|
|
|
NYlOn
Desconectado
Mensajes: 842
OOOOHHHHHH, TARAGÜIIII xDDDDDD
|
Otra opcion seria usar el evento DocumentComplete. Algo asi como: Private Sub Web1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Static Cuenta As Integer
If Cuenta <= 100 Then
Cuenta = Cuenta + 1
Web1.Document.Forms(0).NOMBREDELBOTON.Value = Cuenta
Web1.Document.getelementbyid("Boton").Click
End If
End Sub
Espero q te sirva, saludos.- |
|
|
|
|
En línea
|
|
|
|
xDie
Desconectado
Mensajes: 326
lol
|
ANTES DEPREGUNTAR OTRA VEZ BUSCA INFORMACIÓN POR TI MISMO PERRETE
Gracias lo solucione antes de que contestaras, si te molesta contestar no respondas!, deja que otros lo hagan.. Por cierto gracias nylon!!! 
|
|
|
|
|
En línea
|
Licence to kill!
|
|
|
Hans el Topo
Desconectado
Mensajes: 1.754
"Estoy cansado de no hacer nada"
|
ANTES DEPREGUNTAR OTRA VEZ BUSCA INFORMACIÓN POR TI MISMO PERRETE
Gracias lo solucione antes de que contestaras, si te molesta contestar no respondas!, deja que otros lo hagan.. Por cierto gracias nylon!!! la cosa esta en que busques tu por ti mismo y si no entiendes como usarlo y tal preguntes... es que sino no vas a aprehender en la vida ... xD
|
|
|
|
|
En línea
|
|
|
|
xDie
Desconectado
Mensajes: 326
lol
|
Es que yo busco primero, solo que necesito que me expliquen, por que si no se como funciona como voy a saber que lo que estoy buscando es eso... Gracias
|
|
|
|
|
En línea
|
Licence to kill!
|
|
|
|
 |
