适用于OpenEdge 11.6的Progress Developer Studio中的MOUSE-EXTEND-CLICK EVENT

Question

我目前正在处理DataGridView事件并将Progress 4GL代码转换为.NET类。我怎么写＆＃39; ON MOUSE-EXTEND-CLICK OF b1（浏览）＆＃39; in Progress Developer Studio？

Answer 1

经过多次测试，我找到了答案

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.