本文整理汇总了VB.NET中System.Windows.Forms.TabControl.ImageList属性的典型用法代码示例。如果您正苦于以下问题:VB.NET TabControl.ImageList属性的具体用法?VB.NET TabControl.ImageList怎么用?VB.NET TabControl.ImageList使用的例子?那么, 这里精选的属性代码示例或许可以为您提供帮助。您也可以进一步了解该属性所在类System.Windows.Forms.TabControl
的用法示例。
在下文中一共展示了TabControl.ImageList属性的2个代码示例,这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞,您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: Form1
' 导入命名空间
Imports System.Drawing
Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.Resources
Public Class Form1
Inherits Form
Public Sub New()
Dim components = New Container()
Dim resources As New ResourceManager(GetType(Form1))
Dim tabControl1 As New TabControl()
Dim tabPage1 As New TabPage()
' Declares and instantiates the ImageList object.
Dim myImages As New ImageList(components)
tabControl1.Controls.Add(tabPage1)
' Sets the images in myImages to display on the tabs of tabControl1.
tabControl1.ImageList = myImages
tabPage1.ImageIndex = 0
tabPage1.Text = "tabPage1"
' Gets the handle that provides the data of myImages.
myImages.ImageStream = CType(resources.GetObject("myImages.ImageStream"), ImageListStreamer)
' Sets properties of myImages.
myImages.ColorDepth = ColorDepth.Depth8Bit
myImages.ImageSize = New Size(16, 16)
myImages.TransparentColor = Color.Transparent
Me.Controls.Add(tabControl1)
End Sub
Shared Sub Main()
Application.Run(New Form1())
End Sub
End Class
示例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