Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: czar9 en Abril 26, 2010, 07:23:31 pm
-
hola estoy tratando de hacer unos botones roll over en vb6, intente ahcerlo de esta manera pero falla por la velocidad del puntero, si me pudieran ayudar muchas gracias dejo el link para si alguien quiere verlo
http://www.megaupload.com/?d=GBSASDP6
por cualquier ayuda muchas gracias
-
No puedo ver archivos por alli. Podrías subir una imagen de lo que quieres a http://www.imagechicken.com/ así podríamos buscar la manera de ayudarte. Saludos
-
No puedo ver archivos por alli. Podrías subir una imagen de lo que quieres a http://www.imagechicken.com/ así podríamos buscar la manera de ayudarte. Saludos
yo te lo envio a tu correo porque tambien quise resolverlo y no pude, por tanto me interesa saber la solucion
-
Miren este link...
http://www.recursosvisualbasic.com.ar/htm/ocx-componentes-activex-dll/222-barra-de-herramientas-solo-para-imagenes.htm
MODIFICACION
Otros:
http://www.recursosvisualbasic.com.ar/htm/ocx-componentes-activex-dll/212-toolbar-con-skin.htm
http://www.recursosvisualbasic.com.ar/htm/utilidades-codigo-fuente/programa-generador-de-toolbar.htm
-
Excelente, gracias.
-
No puedo ver archivos por alli. Podrías subir una imagen de lo que quieres a http://www.imagechicken.com/ así podríamos buscar la manera de ayudarte. Saludos
Hola esta es la imagen
(http://www.imagechicken.com/uploads/1272407598007003600.jpg) (http://www.imagechicken.com)
lo que quiero hacer es que cuando un usuario ponga el cursor sobre el control iamgen esta cambie y se ilumine, cuando lo retire esta se apage y si le da un click esta corra una funcion, dime a que lugar te subo el codigo que hice para que lo puedas ver? en el codigo hace el cambio de imagen y corre la funcion al hacer un click. el problema es con la velocidad del mouse. en este momento puse unas variables para ir almacenando en donde estuvo el mouse y asi logre hacerlo mas rapido, pero si muevo muy rapido el mouse se quedan prendidas, pego el codigo que tengo.
Option Explicit
Dim mouse_move As Integer
Dim icon_actual As Integer
Private Sub Form_Load()
Dim i As Integer
For i = 0 To 3
img_menu(i).Picture = LoadPicture(App.Path + "\imagen\normal\" + Trim(Str(i)) + ".jpg")
Next i
mouse_move = -1
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If (mouse_move <> -1) Then
img_menu(mouse_move).Picture = LoadPicture(App.Path + "\imagen\normal\" + Trim(Str(mouse_move)) + ".jpg")
mouse_move = -1
End If
End Sub
Private Sub Form_Resize()
'Frmmain.img_banner.Width = Frmmain.Width
End Sub
Private Sub img_menu_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
mouse_move = Index
img_menu(Index).Picture = LoadPicture(App.Path + "\imagen\down\" + Trim(Str(Index)) + ".jpg")
MsgBox Index
End Sub
Private Sub img_menu_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
mouse_move = Index
img_menu(Index).Picture = LoadPicture(App.Path + "\imagen\over\" + Trim(Str(Index)) + ".jpg")
End Sub
-
Fijate en los links que he posteado... Hay mejores opciones que la que deseas usar...! ;D
-
Fijate en los links que he posteado... Hay mejores opciones que la que deseas usar...! ;D
sip es que me emocione que me respondieron y cite sin leer los post que estaban abajo, gracias !!
-
Excelente, gracias.
Yvan, Cómo andas?? estas un poco perdido...! Cuando vemos un poco de tú soft? espero estes bien... Saludos
Fijate en los links que he posteado... Hay mejores opciones que la que deseas usar...! ;D
sip es que me emocione que me respondieron y cite sin leer los post que estaban abajo, gracias !!
de nada... Cualquier cosa me avisas...!
-
Yvan, Cómo andas?? estas un poco perdido...! Cuando vemos un poco de tú soft? espero estes bien... Saludos
Hola Miguel, gracias por el saludo y si todo bien, un poco saturado por la chamba de la cual espero estar libre en un par de semanas para retomar mi soft. Una pregunta al vuelo, mejor lo hago en otro post.