vb中如何得到Form的visible的改变状态？

我的意思是现在这样：  
  本来form1.visible是为true的状态，当form1.visible的状态变为false时，我想调用一个function; 问题点数：20、回复次数：4Top

1 楼wang7655（寂寞夜归人）回复于 2003-12-03 13:46:15 得分 0

不是很明白？  
   
  这个属性可以在程序里设置的啊   ！  
   
  什么地方为TRUE，什么地方为FALSETop

2 楼SoHo_Andy（冰）回复于 2003-12-03 13:50:44 得分 10

使用Timer控件，代码如下，调试通过  
  Private   Sub   Command1_Click()  
          Timer1.Enabled   =   True  
          Timer1.Interval   =   1000  
          Form1.Visible   =   False  
  End   Sub  
   
  Private   Sub   Timer1_Timer()  
          If   Form1.Visible   =   False   Then  
                  MsgBox   "窗体不可见了"  
                  Form1.Visible   =   True  
                  Timer1.Enabled   =   False  
          End   If  
  End   SubTop

3 楼Rick110AAA（海牛猪猪 And HerosⅢ之比蒙）回复于 2003-12-03 14:16:16 得分 10

借楼上的代码一用^_^：  
  在窗体申明区：  
  Dim   bVisible   As   Boolean  
   
  Private   Sub   Timer1_Timer()  
          If   Form1.Visible   <>bVisible   Then  
                  Msgbox   "OK"  
                  ·  
                  ·  
                  ·  
                  bVisible   =Form1.Visible  
          End   If  
  End   Sub  
  Top

4 楼sysroger（roger）回复于 2003-12-04 12:44:02 得分 0

对呀，我用timer搞定，不过用了两个timer才实现我需要的功能，谢谢！Top

相关问题

• visible
• timer
• bvisible
• 状态
• sub
• form
• true

• 帖主：sysroger
• SoHo_Andy
• Rick110AAA

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