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


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

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


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

示例1: Form1

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

Public Class Form1
    Inherits Form
    Private tabControl1 As TabControl
    Private tabPage1 As TabPage
    Private tabPage2 As TabPage
    Private tabPage3 As TabPage

    Private Sub MyTabs()
        Me.tabControl1 = New TabControl()
        Me.tabPage1 = New TabPage()
        Me.tabPage2 = New TabPage()
        Me.tabPage3 = New TabPage()

        ' Positions tabs on the left side of tabControl1.
        Me.tabControl1.Alignment = System.Windows.Forms.TabAlignment.Left

        Me.tabControl1.Controls.AddRange(New Control() {Me.tabPage1, Me.tabPage2, Me.tabPage3})
        Me.tabControl1.Location = New Point(16, 24)
        Me.tabControl1.SelectedIndex = 0
        Me.tabControl1.Size = New Size(248, 232)
        Me.tabControl1.TabIndex = 0

        Me.tabPage1.TabIndex = 0
        Me.tabPage2.TabIndex = 1
        Me.tabPage3.TabIndex = 2

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

    Public Sub New()
        MyTabs()
    End Sub

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

示例2: New

imports System
imports System.Drawing
imports System.Windows.Forms


public class TabControls : inherits Form
  public sub New()
    Size = new Size(325,375)

    dim tc as new TabControl()
    tc.Parent = me
    tc.Size = new Size(275,300)
    tc.Location = new Point(25,25)
    tc.Anchor = AnchorStyles.Top or AnchorStyles.Bottom or AnchorStyles.Left or AnchorStyles.Right
    tc.Alignment = TabAlignment.Top
    tc.Appearance = TabAppearance.Normal
    tc.HotTrack = true
    tc.Multiline = true
    tc.Padding = new Point(20,3)
    tc.SizeMode = TabSizeMode.FillToRight
    AddHandler tc.SelectedIndexChanged, AddressOf tc_Changed
    tc.Text = "Some text"

    dim img as Image = Image.FromFile("1.ico")
    dim imgList as new ImageList()
    imgList.Images.Add(img)
    tc.ImageList = imgList

    dim tpAddress as new TabPage()
    tpAddress.Parent = tc
    tpAddress.Text = "Address Book"

    dim tpDates as new TabPage()
    tpDates.Parent = tc
    tpDates.Text = "Date Book"

    dim tpToDo as new TabPage()
    tpToDo.Parent = tc
    tpToDo.Text = "ToDo List"

    dim tpMisc as new TabPage()
    tpMisc.Parent = tc
    tpMisc.Text = "A Really Long Tab"
    tpMisc.ImageIndex = 0

    dim lbl as new Label()
    lbl.Parent = tpAddress
    lbl.Text = "Put the Address book controls on this page."
    lbl.AutoSize = true
    lbl.Location = new Point(10,25)

    dim pnl as new Panel()
    pnl.Parent = tpDates
    pnl.BorderStyle = BorderStyle.Fixed3D
    pnl.Location = new Point(10,10)
    pnl.Anchor = AnchorStyles.Top or AnchorStyles.Bottom or _
          AnchorStyles.Left or AnchorStyles.Right
    pnl.Size = new Size(tpDates.Width - 20, tpDates.Height - 20)

    dim cal as new MonthCalendar()
    cal.Parent = pnl
    cal.Location = new Point(25,25)

    dim rtxt as new RichTextBox()
    rtxt.Parent = tpToDo
    rtxt.Dock = DockStyle.Fill
    rtxt.BorderStyle = BorderStyle.FixedSingle
  end sub

  public shared sub Main() 
    Application.Run(new TabControls())
  end sub

  private sub tc_Changed(ByVal sender as object,ByVal e as EventArgs)
    dim tc as TabControl = CType(sender,TabControl)
    Console.WriteLine("Button " + tc.SelectedIndex.ToString())
  end sub

end class
开发者ID:VB程序员,项目名称:System.Windows.Forms,代码行数:79,代码来源:TabControl.Alignment


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