[VB6]Disabilitare tasto destro del mouse (era:Tasto destro del mouse)

[ugof]

Salve a tutti.
In che modo si disabilita da codice VB6 il tasto destro del mouse?
Grazie a tutti
Ugof

[calldavid]

ok......

senti io non ho vb6, ma ho vb.net, cmq il procedimento dovrebbe essere simile

-vai nella finestra del codice

-in alto vedi due combobox (menu a discesa), uno a sinistra e uno a destra; in quello a sinistra dovrebbe esserci tra le tante cose una voce chiamata form1 events (eventi finestra), ma il nome potrebbe essere diverso in vb6...vabbè tu provale tutte

-una volta cambiata il combobox a sinistra, vai in quello a destra e ti compariranno, cliccando sulla freccettina, una strage di eventi possibili.......tu selezioni "mouse down"

-ti comparirà nel codice una nuova sub (frammento di codice) e dentro quella ci metti cosa vuoi che succeda quando clicchi sul pulsante destro del mouse.


SPERIAMO CHE VADA!!!!??????...A ME VA...
CIAO

[ugof]

Grazie per la risposta: adesso provo.

[ugof]

Non ci sono riuscito .
Comunque il mio problema é questo:
1° - Hierarchical Flex grid:
2° - cliccando su una determinata colonna una msgbox chiede se voglio cancellare quella riga.
3° - se conferma la cancellazione avviene ed è tutto OK.
Il problema sorge quando cliccando inavvertitamente con il tasto destro su un punto qualunque di questa griglia ricompare l'msgbox di avviso cancellazione.
Come posso evitare che il tasto destro mi dia questo problema?
Grazie.

[ladyBlu]

Private Sub MSHFlexGrid1_MouseUp(Button As Integer, _
            Shift As Integer, x As Single, y As Single)

   If Button <> 2 Then
      MsgBox "Sinistro"
   End If

End Sub

[ugof]

Grazie per l'aiuto hai risolto il mio problema, adesso con un ulteriore escamotage non appare più il messaggio di avvertimento.

[mschievano]

Originariamente inviato da ladyBlu

...

così non mi funziona...

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
    If Button <> 2 Then
        MsgBox "Sinistro"
        'nothing
    End If
End Sub

[ladyBlu]

Originariamente inviato da mschievano
così non mi funziona...

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, _
                         x As Single, y As Single)
    If Button <> 2 Then
        MsgBox "Sinistro"
        'nothing
    End If
End Sub

A me funziona. Se clicco col tasto sinistro mi appare la msgbox correttamente

[mschievano]

Originariamente inviato da ladyBlu
A me funziona. Se clicco col tasto sinistro mi appare la msgbox correttamente

si,
ma poi appare il popup struttura maschera, taglia, copia , ecc. io vogli che blocchi quella parte.

[ladyBlu]

Originariamente inviato da mschievano
si,
ma poi appare il popup struttura maschera, taglia, copia , ecc. io vogli che blocchi quella parte.

ma stai usando il codice VBA di Access?