Guidance
指路人
g.yi.org
software / rapidq / Examples / Devices / mouse / Right Click.bas

Register 
注册
Search 搜索
首页 
Home Home
Software
Upload

  
     DECLARE SUB mousedown(b, x, y, shift)
     DIM form AS QFORM
     form.onmousedown = mousedown
     form.SHOWMODAL

     SUB mousedown(b, x, y, shift)
      IF b = 0 THEN 'left butt clicked
       SHOWMESSAGE "left button clicked"
      END IF
      IF b = 1 THEN 'right butt clicked
       SHOWMESSAGE "right button clicked"
      END IF
     END SUB
掌柜推荐
 
 
 
 
 
 
 
 
 
 
 
 
© Thu 2023-2-2  Guidance Laboratory Inc.
Email:webmaster1g.yi.org Hits:0 Last modified:2002-11-15 18:49:16