Visual Basic - pulsar en imagen con boton dcho y desplegar menu

Life is soft - evento anual de software empresarial
 
Vista:

pulsar en imagen con boton dcho y desplegar menu

Publicado por lena28 (12 intervenciones) el 26/11/2008 09:42:32
Hola
Necesito vuestra ayuda, es que tengo que crear un menu, para que cuando pulse en una imagen, que pertenece a un array, con el boton derecho, me despliegue un menu (Mover, cambiar tamaño, eliminar). Estas acciones solo las haria sobre esta imagen en concreto.
Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:pulsar en imagen con boton dcho y desplegar men

Publicado por lena28 (12 intervenciones) el 27/11/2008 11:06:30
Bueno ya me sale mas o menos, os indico el codigo pero....
tengo un problemilla, me funciona a la perfeccion pero solo con la imagen de indice 0, como lo hago para que se me cargue con las otras que cargo dinamicamente, he probado con "Load mnupopup(n)", pero se ve que no lo hace bien.

Dim indiceMenus as integer
Private Sub Deposito_MouseDown(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)

Imagen(Index).DragMode = 0

If Button = vbRightButton Then
'Mostramos el menu popup
indiceMenus = Index
Me.PopupMenu mnupopup(Index)

End If
If Button = vbLeftButton Then
Imagen(Index).DragMode = 0
r = 1
End If
End Sub

Private Sub Deposito_MouseMove(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
If r = 1 Then
If x > 300 And y > 300 Then
Imagen.Item(Index).Width = x
Imagen.Item(Index).Height = y

End If
End If
End Sub

Private Sub Imagen_MouseUp(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
r = 0
End Sub
Private Sub SubMenuCambiartamaño_Click()
Imagen(indiceMenus).Stretch = True
End Sub

Private Sub SubMenuMover_Click()

Imagen(indiceMenus).DragMode = 1
End Sub

Si podeis ayudarme os lo agradeceria, Gracias de todas formas
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar