Guidance
指路人
g.yi.org
software / rapidq / Examples / QObject / InstallObs / ObTest.bas

Register 
新用户注册
Search 搜索
首页 
Home Home
Software
Upload

  
' Copy and paste into your program
     $INCLUDE "rapidq.inc"
     $INCLUDE "c:\rapidq\pauls\rqedit\CustomOb\QCircleBx.rqo"
     $INCLUDE "c:\rapidq\pauls\rqedit\CustomOb\QDiamondBox.rqo"
     $INCLUDE "c:\rapidq\pauls\rqedit\CustomOb\QDiamondBxSM.rqo"

     DECLARE SUB True_False

     CREATE Form AS QFORM
      CAPTION = "Object Test Form"
      Width = 330
      Height = 240
      Center
      CREATE box AS QCircleBox
       top = 0
       left = 10
       width = 100
       height = 18
      END CREATE
      CREATE box2 AS QDiamondBox
       top = 30
       left = 10
       width = 100
       height = 18
      END CREATE
      CREATE box3 AS QDiamondBxSm
       top = 60
       left = 10
       width = 100
       height = 18
      END CREATE
      CREATE Box4 AS QDiamondbox
       Top =110
       left = 10
       width = form.clientwidth -20
       height = 18
       CAPTION = ""
       hilightcolor = 255
      END CREATE
      CREATE BUTTon AS QBUTTON
       TOP = 150
       left = Form.clientwidth/2 - 75
       Height = 20
       width = 150
       onclick = True_False
       CAPTION = "Check for checked"
      END CREATE
     END CREATE

'Insert your initialization code here

     Form.SHOWMODAL


     SUB True_False

      DIM STRI AS STRING
      DIM D AS INTEGER

      D=0
      box4.checked = 0
      box4.CAPTION = ""

      IF box.checked THEN
       d = 1
       STRI = STRI + " " + box.CAPTION
      END IF
      IF box2.checked THEN
       d=1
       STRI = STRI + " " + box2.CAPTION
      END IF
      IF box3.checked THEN
       d=1
       STRI = STRI + " " + box3.CAPTION
      END IF
      IF d = 0 THEN
       STRI = STRI + "None Checked"
       Box4.checked = 0
       Box4.CAPTION = STRI
      END IF
      IF d = 1 THEN
       box4.checked = 1
       Box4.CAPTION = STRI
      END IF
      Box4.CAPTION = STRI
      STRI = ""
      Form.repaint
     END SUB


掌柜推荐
 
 
 
 
 
 
 
 
 
 
 
 
© Sat 2018-10-20  Guidance Laboratory Inc.
Email:webmaster1g.yi.org Hits:0 Last modified:2004-12-20 19:23:00