is nothing , il contrario ?

[rambco]

        If HitTestMouse Is Nothing Then
            PopupMenu mnuBuddy
        End If

se volessi fare il contrario ovvero se hittestmoouse e' settato cosa devo scrivere ? TNX

[ladyBlu]

If Not ISNull(HitTestMouse) Then
     PopupMenu mnuBuddy
End If

[rambco]

non va ! esegue sempre popup

[rambco]

questo e' il codice intero

Private Sub trwBuddys_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    If Button = 2 Then
        Set HitTestMouse = trwBuddys.HitTest(x, y)
        If Not IsNull(HitTestMouse) Then
            PopupMenu mnuBuddy
        End If
    End If
End Sub

[xegallo]

not(is nothing )

[MMarzia]

if not(HitTestMouse Is Nothing) Then ...

[rambco]

ora funziona tnx

[sebamix]

Originariamente inviato da xegallo
not(is nothing )

o anche
if Oggetto is not nothing then