FUNCTION VsStyleComment LOCAL lnKey, lnWhandle lnKey = INKEY(.5,"HM") lnWhandle = _WonTop() DO CASE CASE lnKey = 3 && Ctrl-C = _EdComment(lnWhandle, 1) CASE lnKey = 21 && Ctrl-U = _EdComment(lnWhandle, -1) ENDCASE ENDFUNC FUNCTION _WonTop SET LIBRARY TO FoxTools ADDITIVE RETURN = _WonTop() ENDFUNC>
>ON KEY LABEL CTRL+K do VsStyleComment in PROGRAM() > >FUNCTION VsStyleComment > >lnKey = INKEY(.5,"HM") >IF lnKey = 3 && Ctrl-C > KEYBOARD "{ALT+o}m" >ENDIF >IF lnKey = 21 && Ctrl-U > KEYBOARD "{ALT+o}n" >ENDIF > >ENDFUNC >>