操纵窗口.mb

mabasic 经典使用案例。主要关于菜单建立

SUB CZCK 
 '精彩演示
P$="R0300179" R=1
   FOR I=0 TO 8  STEP 4
      FOR J=0 TO 8 STEP 4
         P$="界面"+STR$(R)
         Open Table P$
         Map From P$
         PositIon (J,I) Units "in"
         Height 3 Units "in"      '窗口高度16最大
        Width 4 Units  "in"      '    宽度12
     R=R+1 IF R>10 THEN R=1 END IF 
     NEXT NEXT
Close All Interactive
  FOR I=1 TO 0 STEP 6 
     P$="界面"+STR$(I+1)
     Open Table P$
     Map From P$
     PositIon (I,I) Units "in"
     Height 3 Units "in"      '窗口高度16最大
     Width 4 Units  "in"      '    宽度12
  NEXT
Close All Interactive
  FOR I=6 TO 0 STEP -1 
     P$="界面"+STR$(I+1)
     Open Table P$
     Map From P$
     PositIon (I,I) Units "in"
     Height 3 Units "in"      '窗口高度16最大
     Width 4 Units  "in"      '    宽度12
  NEXT
Close All Interactive
R=1
FOR I=8 TO 0 STEP -4 
    FOR J=0 TO 8 STEP 4
P$="界面"+STR$(R)
   Open Table P$
   Map From P$
   PositIon (I,J) Units "in"
   Height 3 Units "in"      '窗口高度16最大
   Width 4 Units  "in"      '    宽度12
R=R+1
   NEXT
NEXT
Close All Interactive
R=2
FOR I=0 TO 8 STEP 4 
    FOR J=0 TO 8 STEP 4
P$="界面"+STR$(R)
   Open Table P$
   Map From P$
   PositIon (I,J) Units "in"
   Height 3 Units "in"      '窗口高度16最大
   Width 4 Units  "in"      '    宽度12
R=R+1
   NEXT
NEXT
R=0
 M1$="用Map From语句指定窗口的尺寸和位置;用Set Window语句指定窗口的尺寸和位置"
    dialog
    title"络屹科技欢迎您使用地图操作实验程序" 
    position 340,200               
    control radiogroup
    title M1$
    position 30,8
    into R                       
    control okbutton
    title "确定"
    position 50,220
    control cancelbutton
    title "取消"
    position 130,220
    IF R=0 THEN EXIT SUB END IF
    IF R=1 THEN GOTO DH01 END IF
    IF R=2 THEN GOTO DH02 END IF
    IF R=3 THEN GOTO DH03 END IF
    IF R=4 THEN GOTO DH04 END IF
    IF R=5 THEN GOTO DH05 END IF
    IF R=6 THEN GOTO DH06 END IF
    IF R=7 THEN GOTO DH07 END IF
    IF R=8 THEN GOTO DH08 END IF
    IF R=9 THEN GOTO DH09 END IF
    IF R=10 THEN GOTO DH10 END IF
    IF R=11 THEN GOTO DH11 END IF
    IF R=12 THEN GOTO DH12 END IF
    IF R=13 THEN GOTO DH13 END IF
    IF R=14 THEN GOTO DH14 END IF
DH01:'用Map From语句指定窗口的尺寸和位置
Close All Interactive
   Open Table "R0300179"
   Map From R0300179
   PositIon (I,I) Units "in"
   Height 3 Units "in"      '窗口高度16最大
   Width 4 Units  "in"      '    宽度12
DH02:'用Set Window语句指定窗口的尺寸和位置
Close All Interactive
   Open Table "world" 
   Map From world
   r=FrontWindow() 
   NOTE "当前窗口号为"+R
   Set Window r Width 3 Height 4
   EXIT SUB

DH03:
DH04:'EditText控件(对话框尺寸演示)
   FOR I=20 TO 200 STEP 10
      FOR J=10 TO 200 STEP 10
        dialog
        title "宽度="+I+"高度="+J
        Control EditText
        Value "EditText控件"  
        Into M1$           
        position I,J         
      NEXT
   NEXT EXIT SUB
DH05:'GroupBox控件
dialog
title "GroupBox控件实验"
Control GroupBox
Title "络屹科技广交朋友"
PositIon 50,20
width 80 height 40
EXIT SUB
DH05:'penpicker控件(选择线型)
dialog
title "络屹科技请您选择线型"
position 450,250    '前数为距左距离
control penpicker
position 60,20      '前数为边框宽度 后为高度
width 10 height 10  '10为方框
EXIT SUB
DH06:'BrushPicker控件(填充样式)
dialog
title "络屹科技请您选择填充样式"
position 450,250    '前数为距左距离
control BrushPicker
position 60,20      '前数为边框宽度 后为高度
width 10 height 10  '10为方框
EXIT SUB
DH07:'FontPicker控件(字符样式)
dialog
title "络屹科技请您选择字符样式"
position 450,250    '前数为距左距离
control FontPicker
position 60,20      '前数为边框宽度 后为高度
width 10 height 10  '10为方框
EXIT SUB
DH08:'SymbolPicker控件(选择符号)
dialog
title "络屹科技请您选择符号"
position 450,250    '前数为距左距离
control SymbolPicker
position 60,20      '前数为边框宽度 后为高度
width 10 height 10  '10为方框
EXIT SUB
DH09:'MultiListBox控件
dialog
title"络屹科技欢迎您使用对话框实验程序" 
position 440,150               
control MultiListBox
title M1$
position 40,20
into R                       
control okbutton
title "确定"
position 20,120
control cancelbutton
title "取消"
position 90,120
DH10:'PopupMenu控件
dialog
title "络屹科技请您运行PopupMenu控件"
position 450,250 
Control PopupMenu
title M1$
Value 2
Into R
ID 6
position 90,5
EXIT SUB
DH11:'CheckBox控件
dialog
title "络屹科技请您运行CheckBox控件"
position 450,350
Control CheckBox
Title "功能确认框"
ID 7
PositIon 50,20
EXIT SUB
DH12:'OkButton和CancelButton控件
dialog
title "络屹科技请您运行OkButtonh和CancelButton控件"
Control OkButton
title "确定"
position 20,30
'Calling r
Control CancelButton
title "取消"
EXIT SUB
DH13:'默认位置和尺寸的OkButton和CancelButton控件
Dialog
Title"络屹科技请您运行OkButtonh和CancelButton控件"
Control OkButton
Title"查找"
Control CancelButton
Title"取消"
EXIT SUB
DH14:'指出位置的OkButton和CancelButton控件
Dialog
Title"络屹科技请您运行OkButtonh和CancelButton控件"
       width 200 height 50      '200为宽度,50为高度
Control OkButton
Title"查找符合条件的对象"
position 15,30
Control CancelButton
Title"取 消 查 找 对 象"
position 115,30
EXIT SUB
END SUB