你可以在Tabscrip控件上的Tab页上分别放置一个Frame控件,然后再在各自的Frame上编辑按钮控件。然后在程序运行时期,对各自进行控制。要注意一点第二个Frame控件不要放到第一个Frame上面了,要不然的话,第二个按钮就不会出来了。
Runtime时期可以对Tabstrip_Click()事件进行控制。如:
Private Sub TabStrip1_Click()
Select Case TabStrip1.SelectedItem.Key
Case "key1"
Frame1.Visible = True
Frame2.Visible = False
Cmdpush.Enabled = True
Cmdclear.Enabled = True
Text1 = ""
Text1.SetFocus
Case "key2"
Frame1.Visible = False
Frame2.Visible = True
CmdFirst.Enabled = True
CmdNext.Enabled = True
CmdPrevious.Enabled = True
CmdLast.Enabled = True
Text3 = ""
CmdFirst.SetFocus
End Select
End Sub其中的Cmdpush、Cmdclear、CmdFirst、CmdNext、CmdLast、CmdPrevious均为CommandButton控件。
Runtime时期可以对Tabstrip_Click()事件进行控制。如:
Private Sub TabStrip1_Click()
Select Case TabStrip1.SelectedItem.Key
Case "key1"
Frame1.Visible = True
Frame2.Visible = False
Cmdpush.Enabled = True
Cmdclear.Enabled = True
Text1 = ""
Text1.SetFocus
Case "key2"
Frame1.Visible = False
Frame2.Visible = True
CmdFirst.Enabled = True
CmdNext.Enabled = True
CmdPrevious.Enabled = True
CmdLast.Enabled = True
Text3 = ""
CmdFirst.SetFocus
End Select
End Sub其中的Cmdpush、Cmdclear、CmdFirst、CmdNext、CmdLast、CmdPrevious均为CommandButton控件。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货