MOUSE-EXTEND-CLICK EVENT en cours Developer Studio pour OpenEdge 11.6

Question

Je travaille actuellement sur DataGridView Events et convertit le code Progress 4GL en classes .NET. Comment écrire "ON MOUSE-EXTEND-CLICK OF b1 (parcourir)" dans Progress Developer Studio?

Answer 1

Après plusieurs tests, j'ai trouvé la réponse

METHOD PRIVATE VOID dgvB1_CellClick(INPUT sender AS System.Object, INPUT e 
    AS System.Windows.Forms.DataGridViewCellEventArgs): 

    IF AVAILABLE tt AND e:RowIndex GT -1 THEN 
    DO: 
     IF System.Windows.Forms.Control:ModifierKeys = System.Windows.Forms.Keys:CONTROL THEN 
     DO: 
      MESSAGE tt.field VIEW-AS ALERT-BOX. 
     END. 
     RETURN. 
    END. 
END METHOD.