Mensajes

puede copiar el source code de la pagina k kieres, kitarle las fotos, y correrlo desde el html k salvas.

Vi algo antes en este foro como k el tiempo restante entre 60...

Te recomiendo k buskes mejor.

[Image1]

Private Sub Image1_Click (Index As Integer)
For i = 1 to 40
  image(i).visible = false
Next i
End Sub

A todas estas no se cual es el nombre del control que usas (al que convertisteis en arreglo), ¿es Image1 o Image? recuerda que cada copia del arreglo, sustituirá a los otros controles image que tenias en tu form, por lo tanto, si ya no vas a utilizar los otros 40 image's que tenias en el form, ¡os recomiendo que los suprimas!

Código [Seleccionar] Expandir

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    For I = 0 To 10
        Image1(I).Visible = False
    Next
End Sub


¡Fijete! acá en este form, solo tengo un arreglo de Image (unos 11), al pasar el mouse desaparecen, ¡no tiene porque darte error!

Edit: http://www.canalvisualbasic.net/inicio/tutor_6.asp

jajaja

Eso era xD

Puse image (i) enves de Image1(i), algo torpe de mi parte

Muchisimas gracias Cassini!!

te lo agradezco, me funciono el codigo de maravilla

[Index As Integer]

Código [Seleccionar] Expandir



postea el nuevo codigo, se supone que se debe ver algo como image(i).visible=false



El codigo k me dieron.. es este..

Private Sub Form_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)  For i = 1 to 40    image(i).visible = false  NextEnd Sub

Pero este contine Index As Integer y eso me da error en ese evento, asi k lo use donde lo hace por default.. En el buton de imagen, almenos pa probar.

Y puse

Private Sub Image1_Click (Index As Integer)
For i = 1 to 40
  image(i).visible = false 
Next i
End Sub

Gracias.

Gracias por responder.. pero me da error.. estan seguro k funciona asi??

Me da error..

"Invalid Qualifiquer"

I me señala el Image

Hola Foro el hacker.

Yo aki, estoy cansado de buscar por varios dias en google, pk no se como seria lo k estoy buscnado exactamente.

Al punto:

Lo k quiero es.. saber alguna forma de facilitarme la vida para los botones. Por ejemplo.

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image41.Visible = True
Image42.Visible = False
Image43.Visible = True
Image44.Visible = False
Image1.Visible = True
Image2.Visible = True
Image3.Visible = True
Image4.Visible = True
Image5.Visible = True
Image6.Visible = True
Image7.Visible = True
Image8.Visible = True
Image9.Visible = True
Image10.Visible = True
Image11.Visible = True
Image12.Visible = True
Image13.Visible = True
Image14.Visible = True
Image15.Visible = True
Image16.Visible = True
Image17.Visible = True
Image18.Visible = True
Image19.Visible = True
Image20.Visible = True
Image21.Visible = False
Image22.Visible = False
Image23.Visible = False
Image24.Visible = False
Image25.Visible = False
Image26.Visible = False
Image27.Visible = False
Image28.Visible = False
Image29.Visible = False
Image30.Visible = False
Image31.Visible = False
Image32.Visible = False
Image33.Visible = False
Image34.Visible = False
Image35.Visible = False
Image36.Visible = False
Image37.Visible = False
Image38.Visible = False
Image39.Visible = False
Image40.Visible = False
End Sub

Eso es un codigo de un programa k tengo por ahi.. pero..

Lo k quiero es.. para facilitarme la vida.

Osea en ves de tantos false, false false...

algo como un..

For i = 1 to 40
image(i).visible = false
Next i

asi todas del 1 al 40, seran false..
Pero, no funciona de esa manera.

Por favor, alguien k pueda ayudarme, le agraderia el favor.

Gracias.

-XxOsirisxX

Io comenze con Q-Basic, luego con VB 6.0, a partir de lo k sabia con VB 6.0 aprendi Delphi 7.0 k no es muy diferente la verdad, y luego con lagunos aspectos de los 2, aprendia alguito de C++, y al mismo tiempo de Java. Y luegos algunos .Net.

Es cuestion de saber la logica de programar, todos los k mencione tiene muchos codigos en comun, y lo mas k puedo decir, k los mas dificl de aprender, son las API's de memoria, y mas en vb.

quiero dejar claro con esto, k no es cuastion de k si el lenguaje es mas dificil k otro, es cuestion de ponerse a practicarlo, dedicarle tiempo,  aprenderlo y echarle ganas al lenguaje. Igualmente, el ASM se aprende rapido si le echas ganas.

[Private Declare Function "GetAsyncKeyState" lib "user32" (Byval vKey as Long) as Long]

se escribe "Bot", creo k es un acronimo de robot xD, weno, es cosa de keystroke

ahora bien boot es un buteo y tmb Botas

En fin..

Algunos juegos online tiene proteccion de "SendKey" y tmb de "GetAsycnKeyState" k son las script k se usa basicamente para esto en VB, claro puedes inventarte otra, pero eso es cosa tuya.

Ahora vien, pruebate eso.

Private Declare Function "GetAsyncKeyState" lib "user32" (Byval vKey as Long) as Long

Luego, pones en un timer mejor k nada..

If GetAsyncKeyState (vbkeyReturn) then
SendKeys "z"
End If

Eso tan solo escribira 1 sola z cuando le des a Enter. Pero por ahi te vas con el timer o lo haces sin timer con un boton y un Do, Do Events, Loop.

Salu2

Seria mas sencillo utilizando un Modulo.

solo tenias k agregar un "and" luego de Ascii = 0, y poner "MsgBox" pero weno. ia te dieron otra respuesta.

Espero k souciones tu problema.

bye.