Mapa sensible
Disculpa que te moleste quisiera me dieras una idea de como crear un mapa sensible que cuando pase el puntero del ratón te diga que parte del cuerpo humano en una imagen o gráfico o ya sea algún control activex para hacerlo.
Saludos
Saludos
1 Respuesta
Respuesta de athrarn
1
Utiliza un control image
Pon la imagen centrada y usa estos eventos :
Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
End Sub
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
End Sub
Si nos olvidamos del shift, te gustará saber que button puede ser vbleftButton y VBrightButton (algo así se escribía, pero pulsando ctrl + j te lo soluciona VB) si sitúas las coordenadas (te las dan POR e Y) puedes saber con exactitud donde estás pulsando en el mapa. (Seguro que te gusta más que una mierda de label). En último caso, si no quieres usar un imgage, usa un picture :
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
End Sub
Es tres cuartos de lo mismo. De hecho puedes hasta cambiar el icono del ratón si no hay botón pulsado. Je je.
MousePointer era...
Bueno, si quieres que te aclare algo más.
Ah, si aun así prefieres por labels, lo lógico es poner labels transparentes y controlar si reciben el evento click.
Private Sub Label1_Click()
End Sub
Sin más.
Para controlar las POR y las Y en todo el mapa create dos cajas de texto (por ejemplo TXTX y TXTY) y pon este evento :
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
txtX.Text = X
txtY.Text = Y
End Sub
Voila.
Venga un saludo
Ah y todo suponiendo que programas en Visual Basic.
(Que sería un detalle que lo comentases.)
Pon la imagen centrada y usa estos eventos :
Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
End Sub
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
End Sub
Si nos olvidamos del shift, te gustará saber que button puede ser vbleftButton y VBrightButton (algo así se escribía, pero pulsando ctrl + j te lo soluciona VB) si sitúas las coordenadas (te las dan POR e Y) puedes saber con exactitud donde estás pulsando en el mapa. (Seguro que te gusta más que una mierda de label). En último caso, si no quieres usar un imgage, usa un picture :
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
End Sub
Es tres cuartos de lo mismo. De hecho puedes hasta cambiar el icono del ratón si no hay botón pulsado. Je je.
MousePointer era...
Bueno, si quieres que te aclare algo más.
Ah, si aun así prefieres por labels, lo lógico es poner labels transparentes y controlar si reciben el evento click.
Private Sub Label1_Click()
End Sub
Sin más.
Para controlar las POR y las Y en todo el mapa create dos cajas de texto (por ejemplo TXTX y TXTY) y pon este evento :
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
txtX.Text = X
txtY.Text = Y
End Sub
Voila.
Venga un saludo
Ah y todo suponiendo que programas en Visual Basic.
(Que sería un detalle que lo comentases.)
