关于TabStrip下的“确定 取消 应用”VB codePrivate Sub Form_Load()Dim i As Integer初始化每一个 tab pag
关于TabStrip下的“确定 取消 应用”
- VB code
Private Sub Form_Load()Dim i As Integer'初始化每一个 tab pagetabSetting.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 = FalseNext ifraSetting(tabSetting.SelectedItem.Index - 1).Visible = True '把被选中的tab对应的frame显示出来End SubPrivate Sub tabSetting_Click()Call frame_visible_falsefraSetting(tabSetting.SelectedItem.Index - 1).Caption = tabSetting.SelectedItem.CaptionfraSetting(tabSetting.SelectedItem.Index - 1).Visible = True '把被选中的tab对应的frame显示出来End Sub'默认先把所有frame控件隐藏起来Private Sub frame_visible_false()Dim i As IntegerFor i = 0 To 2 fraSetting(i).Visible = FalseNext iEnd Sub
如上面的代码,怎么设置应用按钮只响应有变化数据的TabStrip页面或只响应当前TabStrip页面内容改变?
[解决办法]
确定和应用都是对对话框中所有元素有效的,区别是前者会关闭,后者不会。
你可以试验下包括你说的IE选项在内的别的程序。
