关于窗体

如何制作一窗体A,B,C  
  当B调用A时,要求A在B之上，并且B不能被用户激活，w但要求系统进程在B中,因为B中的语句在还能运行。直到关闭A时才能被激活， 问题点数：100、回复次数：15Top

1 楼szyhy810518（)(）回复于 2003-12-03 18:45:21 得分 10

当B调用A时:  
  A.Show  
  B.Enabled   =   False  
   
  关闭A时:  
  Private   Sub   A_Unload(Cancel   As   Integer)  
          B.Enabled   =   True  
  End   SubTop

2 楼sonique（雨季不再来）回复于 2003-12-03 18:46:07 得分 0

使用模式窗体  
  b.show   vbModel，meTop

3 楼eports（飘零风）回复于 2003-12-03 18:50:54 得分 0

使用模式窗体可以满足你的全部要求。  
  Load   FrmB  
  FrmB.Show   vbModelTop

4 楼eports（飘零风）回复于 2003-12-03 18:52:24 得分 0

唔唔，看着上边写，没想到楼上写错了  
  Load   FrmB  
  FrmB.Show   vbModal     '<--   是vbModal，不是vbModel。Top

5 楼5653325（等待开刃的刀）回复于 2003-12-03 19:14:06 得分 0

唔唔，看着上边写，没想到楼上写错了  
  Load   FrmB  
  FrmB.Show   vbModal     '<--   是vbModal，不是vbModel。Top

6 楼rainstormmaster（暴风雨 v2.0）回复于 2003-12-03 19:16:18 得分 5

//当B调用A时,要求A在B之上，并且B不能被用户激活，w但要求系统进程在B中,因为B中的语句在还能运行。直到关闭A时才能被激活  
   
  呵呵，楼上的兄弟们，考虑后半句没有？Top

7 楼myhot（大头河马）回复于 2003-12-03 19:16:29 得分 0

你们都错误理解俺的题意啦。。  
   
  如果用模式窗体的话，那么B窗体中的语句就不行被运行了。Top

8 楼myhot（大头河马）回复于 2003-12-03 19:18:25 得分 0

rainstormmaster(rainstormmaster还是你说得对Top

9 楼jpinglee（想去海边）回复于 2003-12-03 19:37:06 得分 0

学习ing  
  upTop

10 楼bbgbianbaogui（）回复于 2003-12-04 10:45:51 得分 0

上面的大哥很对Top

11 楼Rick110AAA（海牛猪猪 And HerosⅢ之比蒙）回复于 2003-12-04 10:52:34 得分 0

使用，模式窗体会中断B窗体的执行啊！Top

12 楼Rick110AAA（海牛猪猪 And HerosⅢ之比蒙）回复于 2003-12-04 11:00:07 得分 85

'下面的效果可能是搂住想要的吧！  
  '在Form1中：  
  '添加一个CommandButton  
  Option   Explicit  
  Private   Declare   Sub   Sleep   Lib   "kernel32"   (ByVal   dwMilliseconds   As   Long)  
   
  Private   Sub   Command1_Click()  
          Dim   K   As   Long  
          Dim   frmT   As   New   Form2  
           
          frmT.ShowMe   Me  
          Do   Until   frmT.bContinue   =   False  
                  frmT.MyValue   =   K  
                  Sleep   10  
                  DoEvents  
                  K   =   K   +   1  
          Loop  
          Set   frmT   =   Nothing  
  End   Sub  
   
   
   
  '在Form2中：  
  '添加一个Label控件  
  Option   Explicit  
   
  Dim   objMyParent   As   Form  
  Public   bContinue   As   Boolean  
   
  Public   Property   Let   MyValue(ByRef   strValue   As   String)  
          Me.Label1.Caption   =   strValue  
          DoEvents  
  End   Property  
   
  Public   Sub   ShowMe(objParent   As   Form)  
          objParent.Enabled   =   False  
          Set   objMyParent   =   objParent  
          bContinue   =   True  
          Me.Show  
  End   Sub  
   
  Private   Sub   Form_Unload(Cancel   As   Integer)  
          objMyParent.Enabled   =   True  
          bContinue   =   False  
  End   SubTop

13 楼Rick110AAA（海牛猪猪 And HerosⅢ之比蒙）回复于 2003-12-04 11:00:47 得分 0

'下面的效果可能是搂住想要的吧！  
  '在Form1中：  
  '添加一个CommandButton  
  Option   Explicit  
  Private   Declare   Sub   Sleep   Lib   "kernel32"   (ByVal   dwMilliseconds   As   Long)  
   
  Private   Sub   Command1_Click()  
          Dim   K   As   Long  
          Dim   frmT   As   New   Form2  
           
          frmT.ShowMe   Me  
          Do   Until   frmT.bContinue   =   False  
                  frmT.MyValue   =   K  
                  Sleep   10  
                  DoEvents  
                  K   =   K   +   1  
          Loop  
          Set   frmT   =   Nothing  
  End   Sub  
   
   
   
  '在Form2中：  
  '添加一个Label控件  
  Option   Explicit  
   
  Dim   objMyParent   As   Form  
  Public   bContinue   As   Boolean  
   
  Public   Property   Let   MyValue(ByRef   strValue   As   String)  
          Me.Label1.Caption   =   strValue  
          DoEvents  
  End   Property  
   
  Public   Sub   ShowMe(objParent   As   Form)  
          objParent.Enabled   =   False  
          Set   objMyParent   =   objParent  
          bContinue   =   True  
          Me.Show  
  End   Sub  
   
  Private   Sub   Form_Unload(Cancel   As   Integer)  
          objMyParent.Enabled   =   True  
          bContinue   =   False  
  End   SubTop

14 楼kimurakenshin（浪客）回复于 2003-12-04 11:05:35 得分 0

upTop

15 楼simanh（）回复于 2003-12-04 20:16:30 得分 0

FrmB.Show   vbModalTop

相关问题

• 模式
• 窗体
• 当b调用
• 激活
• 使用模式
• show vbmodel
• 关闭
• load frmbfrmb
• 要求
• enabled

• 帖主：myhot
• szyhy810518
• rainstormmaster
• Rick110AAA

• Visual Basic类图书
• Visual Basic类源码下载