very初级问题,那里有TabStrip控件的例子?谢谢 您提出这么好的问题是CSDN的福气,也是大家的福气,尽管没人回答得了,但您总不至于不结贴吧?既然一个回答的都没有,您就无法结贴了。我帮你UP吧,你只要在结贴的时候给我所有的分。万一碰上高人能回答了您的问题,那时候给我一半就可以了。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Public Sub Form_Load() TabStrip1.Tabs(1).Caption = "索引(&I)" TabStrip1.Tabs.Add 2, , "搜索(&S)"End subPrivate Sub TabStrip1_Click()If TabStrip1.Tabs(1).Selected ThenText1.Visible = TrueList1.Visible = TrueCommand2.Visible = FalseCommand3.Visible = FalseList2.Visible = FalseText1.SetFocusText2.Visible = FalseText3.Text = "请输入索引关键字:"ElseCommand2.Visible = TrueCommand3.Visible = TrueList2.Visible = TrueList1.Visible = FalseText3.Text = "请输入要查找的字符:"Text1.Visible = FalseText2.Visible = TrueText2.SetFocusEnd IfEnd Sub vb链接数据库有没有节省资源的方法? 大家好 有关instr的问题 我实在是不明白 在每个窗体的最大化、最小化、关闭的边上放上按钮 UP有分 Win2000、XP下如何调整纸张大小(API) msflexgrid问题,高手请进 大家给几个发布软件的地方?谢谢! 一个用户控件的问题!请求帮助! VB写入XLS模板,如何把数据写到一个XLS的特定单元格文件中?我要保留的格式 考考你们!关于编译的问题! VB中报表及打印问题 如何用Mordem拨号访问宽带用户上的SQL Server? 定时问题:每隔10小时或更长的时间,弹出一个提示框?
TabStrip1.Tabs(1).Caption = "索引(&I)"
TabStrip1.Tabs.Add 2, , "搜索(&S)"
End subPrivate Sub TabStrip1_Click()
If TabStrip1.Tabs(1).Selected Then
Text1.Visible = True
List1.Visible = True
Command2.Visible = False
Command3.Visible = False
List2.Visible = False
Text1.SetFocus
Text2.Visible = False
Text3.Text = "请输入索引关键字:"
Else
Command2.Visible = True
Command3.Visible = True
List2.Visible = True
List1.Visible = False
Text3.Text = "请输入要查找的字符:"
Text1.Visible = False
Text2.Visible = True
Text2.SetFocusEnd If
End Sub