怎么设置应用按钮只响应有变化数据的TabStrip页面或只响应当前TabStrip页面内容改变？

Question

Private Sub Form_Load()
Dim i As Integer'初始化每一个 tab page
tabSetting.Tabs(1).Caption = "基本设置"
tabSetting.Tabs.Add , , "短信设置"
tabSetting.Tabs.Add , , "照片服务器"
tabSetting.Tabs(1).Selected = True'初始化三个frame大小以匹配tab控件
For i = 0 To 2
    fraSetting(i).Width = tabSetting.ClientWidth 'tab内部宽度
    fraSetting(i).Height = tabSetting.ClientHeight 'tab内部高度
    fraSetting(i).Left = tabSetting.ClientLeft 'tab内部左间柜
    fraSetting(i).Top = tabSetting.ClientTop 'tab内部顶部间拒
    fraSetting(i).Visible = False
Next ifraSetting(tabSetting.SelectedItem.Index - 1).Visible = True '把被选中的tab对应的frame显示出来
End Sub
Private Sub tabSetting_Click()Call frame_visible_false
fraSetting(tabSetting.SelectedItem.Index - 1).Caption = tabSetting.SelectedItem.Caption
fraSetting(tabSetting.SelectedItem.Index - 1).Visible = True '把被选中的tab对应的frame显示出来End Sub'默认先把所有frame控件隐藏起来
Private Sub frame_visible_false()
Dim i As Integer
For i = 0 To 2
    
    fraSetting(i).Visible = False
Next iEnd Sub如上面的代码，怎么设置应用按钮只响应有变化数据的TabStrip页面或只响应当前TabStrip页面内容改变？

Answer 1

就是像IE浏览器中的“Internet 选项”那样的功能。