请大家指点呀：）

窗口A.按钮A1.Click 事件： 窗口B.Activate
窗口A.按钮B1.Click 事件： 窗口C.Activate
窗口A.按钮C1.Click 事件： 窗口D.Activate

moz
你好
谢谢你的回答：）

moz老师
你好 
我想问问关于该段  
“按钮1”调用“窗口2” “按钮2”调用“窗口1”

我该如何实现呢？

是通过
SUB C.ButtonState (NWin, Inx, State)
  Sel = NWin * 100 + Inx
  SELECT CASE Sel
    CASE 0:
      
  END SELECT
END SUB
吗？



程序如下：

DEFINT A-Z
'-------------------------------------------------------------------
'定义各控件最多可用的数目:
CONST MaxButton = 5 , MaxCheck = 0 , MaxOptG = 0 , MaxOptI = 0 
'        按钮           复选按钮    单选按钮(组数),(每组项目数)
CONST MaxFrame = 0 , MaxList = 0 , MaxListItem = 100, MaxText = 1 
'        框架         列表框   ,  每一列表项目数     文本框
CONST MaxCombo = 0 , MaxLabel = 0 , MaxMainMenu = 0, MaxMenuItem = 5
'      下拉式列表      标签            菜单           菜单项目
CONST MaxPercent = 0 , ListItemBuffer = 64
'        进度条        列表项目大小

CONST ListScrollSpeed = 1       '列表屏幕滚动速度(-1最快)

'$INCLUDE: '..\QBWIN\QBWIN.BI'
'$INCLUDE: '..\QBWIN\QBWIN.DAT'

SystemInit 1      '系统初始化
'0:不使用中文字库与输入法文件
'1:必须要中文字库文件(QBWIN.FNT),否则程序不能运行
'-1:如果程序找到有中文字库与输入法文件时可以使用,可以不使用

'定义及初始化用户变量区域 ----------------------------

'-----------------------------------------------------


DO
  '桌面定义
  '格式: DrawDesktop 提示行开关,桌面颜色,提示行字体颜色,背景色,提示文字$
  IF ExitWin < 2 THEN DrawDesktop 2, 3, 0, 7, "Ctrl+X:关闭窗口    Ctrl+F1:输入法"

  '各表单控件读入区域, 读入各种控件之间用 [=] 表示该种控件读完
  SELECT CASE Wins
    '001.QWF
    CASE 0:
      '格式: LoadWindow X,Y,W,H,Font,BC,Box,TC,Caption
      LoadWindow 160,100,320,240,10,7,-1,1,"窗口1"
      RESTORE WIN00
WIN00:
      '热键值:  Alt+  F1=360 1=376 Q=272 A=286 Z=300

      'LoadMenu   '读入菜单
      '格式: DATA [-,Hotkey,] Enabled,Value,Caption    []里的参数为分组用
      'DATA -,289,1,0,文件(F)
      'DATA 1,0,Menu(1)
      'DATA =

      '格式: DATA X,Y,W,H,Enabled,FC,FW,FH,Hotkey,Caption
      LoadButton 0   '读入命令按钮  背景框
      DATA 65,80,70,19,-1,0,0,12,-1,"按钮1"
      DATA =

    '002.QWF
    CASE 1:
      '格式: LoadWindow X,Y,W,H,Font,BC,Box,TC,Caption
      LoadWindow 112,38,435,360,10,7,-1,1,"窗口2"
      RESTORE WIN01
WIN01:
      '热键值:  Alt+  F1=360 1=376 Q=272 A=286 Z=300

      'LoadMenu   '读入菜单
      '格式: DATA [-,Hotkey,] Enabled,Value,Caption    []里的参数为分组用
      'DATA -,289,1,0,文件(F)
      'DATA 1,0,Menu(1)
      'DATA =

      '格式: DATA X,Y,W,H,Enabled,FC,FW,FH,Hotkey,Caption
      LoadButton 0   '读入命令按钮  背景框
      DATA 195,5,70,19,-1,0,0,12,-1,"按钮2"
      DATA =


  END SELECT

  IF ExitWin = 0 THEN ProcessLoop     '过程循环处理


moz老师
你好 
我想问问关于该段  
“按钮1”调用“窗口2” “按钮2”调用“窗口1”

我该如何实现呢？

是通过
SUB C.ButtonState (NWin, Inx, State)
  Sel = NWin * 100 + Inx
  SELECT CASE Sel
    CASE 0:
      
  END SELECT
END SUB
吗？