VB.NET TabControl.HotTrack屬性代碼示例

' 導入命名空間
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 Sub MyTabs()
        Me.tabControl1 = New TabControl()
        Me.tabPage1 = New TabPage()
        Me.tabPage2 = New TabPage()

        Me.tabControl1.Controls.AddRange(New Control() {Me.tabPage1, Me.tabPage2})
        Me.tabControl1.Padding = New Point(15, 10)
        Me.tabControl1.Location = New Point(35, 25)
        Me.tabControl1.Size = New Size(220, 220)

        ' Highlights TabPage.Text when the mouse passes over tabs.
        Me.tabControl1.HotTrack = True

        Me.tabPage1.Text = "myTabPage1"
        Me.tabPage2.Text = "myTabPage2"

        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

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