private sub command1_click()    SSTab1.Tab = 1
  SSTab1.TabEnabled(0) = True
  SSTab1.TabEnabled(1) = False
  SSTab1.TabEnabled(1) = Falseend subprivate sub command2_click()    SSTab1.Tab = 2
  SSTab1.TabEnabled(0) = False
  SSTab1.TabEnabled(1) = True
  SSTab1.TabEnabled(1) = Falseend sub

解决方案 »

  1.   

    kmcyz(阿成) 谢谢你的回复!
    * 怎样当sstab1.TabEnabled(0)抬起,
      sstab1.TabEnable(1),sstab1.TabEnable(2)沉下时单击Command1
      sstab1.TabEnable(1),sstab1.TabEnable(2)不可用,单击sstab1上的
      Command时
      sstab1.TabEnabled(0),sstab1.TabEnable(1),sstab1.TabEnable(2) 
      全都可用。
    * 怎样当sstab1.TabEnabled(1)抬起,
      sstab1.TabEnable(0),sstab1.TabEnable(2)沉下时单击Command1
      sstab1.TabEnable(0),sstab1.TabEnable(2)不可用,单击sstab1上的
      Command时
      sstab1.TabEnabled(0),sstab1.TabEnable(1),sstab1.TabEnable(2)
      全都可用。
    * 怎样当sstab1.TabEnabled(2)抬起,
      sstab1.TabEnable(0),sstab1.TabEnable(1)沉下时单击Command1
      sstab1.TabEnable(0),sstab1.TabEnable(1)不可用,单击sstab1上的
      Command时
      sstab1.TabEnabled(0),sstab1.TabEnable(1),sstab1.TabEnable(2) 
      全都可用。
    还有,用Enable属性,字体都变灰了,怎样使它还保持原来的颜色?
    请看清楚再回答我,谢谢!!!!!!