您提出这么好的问题是CSDN的福气,也是大家的福气,尽管没人回答得了,但您总不至于不结贴吧?既然一个回答的都没有,您就无法结贴了。我帮你UP吧,你只要在结贴的时候给我所有的分。万一碰上高人能回答了您的问题,那时候给我一半就可以了。

解决方案 »

  1.   

    Public Sub Form_Load()
       
       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