当前位置: 首页>>代码示例>>VB.NET>>正文


VB.NET TabControl.TabCount属性代码示例

本文整理汇总了VB.NET中System.Windows.Forms.TabControl.TabCount属性的典型用法代码示例。如果您正苦于以下问题:VB.NET TabControl.TabCount属性的具体用法?VB.NET TabControl.TabCount怎么用?VB.NET TabControl.TabCount使用的例子?那么, 这里精选的属性代码示例或许可以为您提供帮助。您也可以进一步了解该属性所在System.Windows.Forms.TabControl的用法示例。


在下文中一共展示了TabControl.TabCount属性的1个代码示例,这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞,您的评价将有助于系统推荐出更棒的VB.NET代码示例。

示例1: Form1

' 导入命名空间
Imports System.Drawing
Imports System.Windows.Forms

Public Class Form1
    Inherits Form

    Public Sub New()
        Dim tabControl1 As New TabControl()
        Dim tabPage1 As New TabPage()
        Dim tabPage2 As New TabPage()
        Dim tabPage3 As New TabPage()
        Dim tabPage4 As New TabPage()
        Dim tabPage5 As New TabPage()
        Dim label1 As New Label()

        tabControl1.Multiline = True
        tabControl1.SizeMode = TabSizeMode.FillToRight
        tabControl1.Padding = New Point(15, 5)
        tabControl1.Controls.AddRange(New Control() {tabPage1, tabPage2, tabPage3, tabPage4, tabPage5})
        tabControl1.Location = New Point(35, 65)
        tabControl1.Size = New Size(220, 180)

        ' Gets the number of tabs currently in the tabControl1 tab strip.
        ' Assigns int value to the tabsInTabStrip variable.
        Dim tabsInTabStrip As Integer = tabControl1.TabCount

        label1.Text = "There are " + tabsInTabStrip.ToString() + " tabs in the tabControl1 tab strip."
        label1.Location = New Point(35, 25)
        label1.Size = New Size(220, 30)

        Size = New Size(300, 300)
        Controls.AddRange(New Control() {label1, tabControl1})
    End Sub

    Shared Sub Main()
        Application.Run(New Form1())
    End Sub
End Class
开发者ID:VB.NET开发者,项目名称:System.Windows.Forms,代码行数:39,代码来源:TabControl.TabCount


注:本文中的System.Windows.Forms.TabControl.TabCount属性示例由纯净天空整理自Github/MSDocs等开源代码及文档管理平台,相关代码片段筛选自各路编程大神贡献的开源项目,源码版权归原作者所有,传播和使用请参考对应项目的License;未经允许,请勿转载。