Guidance
指路人
g.yi.org
software / rapidq / Examples / GUI / Dialog / dialogFRM.bas

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

  
'$INCLUDE "RAPIDQ.INC"

     DECLARE SUB btnClick (Sender AS QBUTTON)

     CREATE DirTreeForm AS QFORM
      CAPTION = "Directory Tree"
''  Center
      top=260
      left=250
      height=250
      FormStyle =3'' fsStayOnTop
      AutoScroll=false
      KeyPreview = 1        'this line does the trick
''  OnKeyPress = CheckDir
      COLOR=&h9E8865
      CREATE DirTree AS QDIRTREE
       Align=center
       Left = 4
       top=60
       InitialDir = "c:\"
       Width =DirTreeForm.ClientHeight -5
       Height =DirTreeForm.ClientHeight -65
''            OnChange =ChangeDirectory1
       TabOrder=1
       ShowHint=false
      END CREATE
      CREATE LblHotDir AS QLABEL
       CAPTION = "Hot directories":
       Left = 4:Top = 4:
       Transparent = 0
       Width =200
      END CREATE
      CREATE BtnAddHotDir AS QBUTTON
       CAPTION = "+"
       Left = 220
       Top = 4
       Width = 15
       Height = 15
 ''            OnClick = BtnAddHotDirClick
       Spacing=1
      END CREATE
      CREATE BtnDelHotDir AS QBUTTON
       CAPTION = "-"
       Left = 240
       Top = 4
       Width = 15
       Height = 15
  ''           OnClick = BtnDelHotDirClick
       Spacing=1
      END CREATE
      CREATE CBoxHotDir AS QCOMBOBOX
       Text = DirTree.InitialDir'"c:\"
       Left = 4
       Top = 25
       Width = DirTreeForm.ClientWidth -5
       Height = 99
                  'DropDownCount = 9
                  'Sorted = 1
       TabOrder = 10
       AddItems "c:\", "c:\temp"
   ''               OnChange=GotoHotDir
      END CREATE

     END CREATE 'dirform'
'!!! ========================
     CREATE Form AS QFORM
      CAPTION = "RQ Search&Replace"
      Width =Screen.Width/1.5'' 800
      Height =Screen.Height/1.5'' 550
      KeyPreview = 1        'this line does the trick
 ''   OnKeyPress = Check
      Font.size=8
      windowstate=0'2
      center
''    OnResize=MainFormResize
''    Font.AddStyles=fsBold
''    OnClose=FrmClose

      CREATE DirBtn AS QBUTTON
       CAPTION = "Directory Tree"
       Left =20 'DirBox.Width+6'148'710
       Top = 20
       Spacing=2
       Width = 125
       Height = 25
       tag=22
       OnClick = btnClick
       'BMP = "c:\BAS\RAPIDQ\STRP\sOpen.bmp"
''       bmpHandle = sOpen

      END CREATE

     END CREATE '=== main form'

''    Form.Width =Screen.Width-5'' 800
''    Form.Height =Screen.Height*0.8'' 550

     Form.SHOWMODAL

     SUB btnClick (Sender AS QBUTTON)
      SELECT CASE Sender.Tag
''        Case 0:sound 2000, 3:  Call Main    ' Get
''        Case 1: Call     ChangeDirectory    ' New
''        Case 21: Call FindText (Sender )
      CASE 22:
       DirTreeForm.show:
      END SELECT
     END SUB

掌柜推荐
 
 
 
 
 
 
 
 
 
 
 
 
© Mon 2022-9-26  Guidance Laboratory Inc.
Email:webmaster1g.yi.org Hits:0 Last modified:2003-05-11 23:02:43