Immagini e MouseDown



  • Immagini e MouseDown
    di Luca73 data: 17/09/2014 09:30:08

    Ciao a tutti
    ho il seguente problema.
    In un foglio ho molte immagini a cui devo associare delle macro evento MouseDown.
    all'interno di ciascuna di queste macro devo richiamara altre shapes a cui ho dato nome tale che gli ultimi 5 caratteri siano gli stessi dell'immagine a cui associo l'evento MouseDown.
    Volevo sapere se all'interno della macro legata all'evento MouseDown o altro evento è possibile farsi restituire dal codice qual'e il nome dell'immagine che ha scatenato l'evento.
    Inoltre allinterno della macro devo riferirmi all'immagine stessa e volevo evitare di definire all'interno della stessa macro qual'è l'immagine in questione.

    Per esempio mousedown mi restituisce direttamente solo le coordinate, il bottone premuto ed eventualmente il tasto CTRL/SHIFT+ALT premuto.
    Private Sub object_MouseDown( ByVal Button As fmButton, ByVal Shift As fmShiftState, ByVal X As Single, ByVal Y As Single).

    Ringrazio anticipatamente per ogni aiuto
    Ciao
    Luca





  • di lepat (utente non iscritto) data: 17/09/2014 17:14:55

    hai forse sbagliato allegato ?



  • di Luca73 data: 17/09/2014 17:22:21

    Non è mio l'allegato, non ho allegato nulla, avevo solo descritto.
    Ciao
    Luca





  • di Zer0Kelvin data: 17/09/2014 18:34:17

    Ciao.
    Penso che un modo semplice sia definire all'interno di ogni routine una costante stringa uguale al nome dell'immagine:
     
    Private Sub Image1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Const ImgName = "Image1"
        MsgBox ImgName
    End Sub