Vota por nosotros en el ranking web que participamos

Curso Hacker
Bienvenido(a), Visitante. Favor de ingresar o registrarse.
¿Perdiste tu email de activación? - Octubre 11, 2008, 06:35:29
Inicio Ayuda Ingresar Registrarse
Visita: Articulos - Juegos Gratis - Da Foros

Comunidad Underground Hispana  |  Programacion  |  Programación  |  Visual Basic y Net (Moderador: ANYD00M)  |  Tema: Barras de desplazamiento 0 Usuarios y 1 Visitante están viendo este tema. « anterior próximo »
Páginas: [1] Ir Abajo Imprimir
Autor Tema: Barras de desplazamiento  (Leído 403 veces)
E2A
Miembro
*****
Desconectado Desconectado

Mensajes: 28



Ver Perfil
« en: Å¿eptiembre 17, 2005, 11:13:09 »
En línea
wuepe
Visitante
« Respuesta #1 en: Å¿eptiembre 17, 2005, 12:37:00 »
En línea
E2A
Miembro
*****
Desconectado Desconectado

Mensajes: 28



Ver Perfil
« Respuesta #2 en: Å¿eptiembre 17, 2005, 02:02:40 »
En línea
çhame£eøn
Visitante
« Respuesta #3 en: Å¿eptiembre 17, 2005, 02:52:33 »
« Última modificación: Å¿eptiembre 17, 2005, 05:08:00 por Þ®0§µ†¢|-| » En línea
E2A
Miembro
*****
Desconectado Desconectado

Mensajes: 28



Ver Perfil
« Respuesta #4 en: Å¿eptiembre 18, 2005, 06:56:24 »
En línea
E2A
Miembro
*****
Desconectado Desconectado

Mensajes: 28



Ver Perfil
« Respuesta #5 en: Å¿eptiembre 20, 2005, 01:58:49 »
En línea
wuepe
Visitante
« Respuesta #6 en: Octubre 01, 2005, 10:17:09 »
Bueno seria modificando para que a la vez que suba o baje la barra, que suba o baje el text.

quedaria algo asi:

Option Explicit
Dim ValorBarra as Integer

Private Sub Form_Load()
  ValorBarra = 0 ' inicializamos la barra a 0 ' arriba del to
end sub

private sub image1_click()
  if image3.top > 200 then
    image3.top=image3.top - 20
    text1.top = text1.top - 20 ' Mover caja texto tantos puntos como quieras moverlo.
    ValorBarra = ValorBarra - 1
  end if
end sub

private sub image2_click()
  if image3.top < 3000 then
    image3.top=image3.top + 20
    text1.top = text1.top + 20 ' Mover caja texto tantos puntos como quieras moverlo.
    ValorBarra = ValorBarra + 1
  end if
end sub

Saludos.
En línea
Páginas: [1] Ir Arriba Imprimir 
Comunidad Underground Hispana  |  Programacion  |  Programación  |  Visual Basic y Net (Moderador: ANYD00M)  |  Tema: Barras de desplazamiento « anterior próximo »
Ir a:  


Ranking-Hits
Powered by SMF 1.1.6 | SMF © 2006-2007, Simple Machines LLC