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
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
解决方案 »
- 关于RichtextBox的格式输入
- Private WithEvents objWinSock As MSWinsockLib.Winsock
- 各位老大,有没有好的,真正免费的上传组件给推荐一下(ASP)急。
- 只有Sheet1有内容的而Sheet2和Sheet3都没有内容.
- 请问:当text不与数据库关联,如何把所填内容追加到数据库里面去?
- 关于菜单里调用发E-MAIL程序!
- Win2000下VB6编译的EXE(程序内嵌有一个自定义控件)为啥不能在win98下运行
- 我虚心的向各位大虾请教!
- 一个小问题,谢谢各位指导
- 关于form1的问题!
- Microsoft forms 2.0 Object Library中的控件在win98中不能加载?有高手能解吗?
- ru he you xuan zhe de ba yi ge table zhong de xin xi tian dao di er ge table zhong ,sheng xu tian 0
* 怎样当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属性,字体都变灰了,怎样使它还保持原来的颜色?
请看清楚再回答我,谢谢!!!!!!