请有tabstrip的例子啊,能给我看看,学习一记吗?

leoxue 2003-05-11 04:28:03
请有tabstrip的例子啊,能给我看看,学习一记吗?
谢谢
xue.qi@163.com
...全文
114 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
online 2003-05-17
  • 打赏
  • 举报
回复
没有用过
可以试试sstab控件
CloneCenter 2003-05-17
  • 打赏
  • 举报
回复
本示例用 BeforeClick 事件来演示怎样防止用户切换到另一个选项卡。这常用于在显示新选定的选项卡之前校验当前标记上的信息。

要试用此例,将 TabStrip 控件和双元素的 Frame 控件数组放到窗体上(设置 BorderStyle 属性为 None)。在第一个 Frame 控件中,添加 CheckBox 控件,而在第二个 Frame 控件中添加 TextBox 控件。把下面的代码粘贴到 Form 对象的 Load 事件中,并运行该程序。在选定/撤消标为“检查”的选项卡上的复选框之后,单击标为“文本”的选项卡。

Private Sub Form_Load()
Dim i As Integer
Dim Tabx As Object
'设置第一个选项卡的标题为“检查”。
TabStrip1.Tabs(1).Caption = "Check"
'添加以“文本”为标题的第二个选项卡。
Set Tabx = TabStrip1.Tabs.Add(2, , "Text")
'标记复选框。
Check1.Caption = "Cancel tab switch"
'使框架跟 Tabstrip 控件的内部区域对齐。
For i = 0 To 1
Frame1(i).Left = TabStrip1.ClientLeft
Frame1(i).Top = TabStrip1.ClientTop
Frame1(i).Height = TabStrip1.ClientHeight
Frame1(i).Width = TabStrip1.ClientWidth
Next
'把第一个选项卡的框架容器放在顶端。
Frame1(0).ZOrder 0
End Sub

'用 BeforeClick 事件校认复选框的值,决定是否继续进行 Click
'事件。
Private Sub TabStrip1_BeforeClick(Cancel As Integer)
If TabStrip1.Tabs(1).Selected Then
If Check1.Value = 1 Then Cancel = True
End If
End Sub

Private Sub TabStrip1_Click()
Frame1(TabStrip1.SelectedItem.Index-1).ZOrder 0
End Sub

1,453

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧