Orange bar on Tabs
Posted on 2006-07-21
Hi, This question is worth 250 points and they will be awarded to the person that provide a "specific" answer to my question below.
My question is regarding the small orange bar that appears at the top of a TAB, when that tab is selected. In other words, I've noticed on some VB application that if you select a tab from a group of tabs, the selected tab will have a thin orange bar above the tab name to indicate that it is "selected". Windows XP uses these same orange bars on their tabs. If you go to Start > Control Panel > Folder Options for example, you'll notice that there are 3 tabs (General, View, and File Types). Depending on the tab that is selected (or on top), the little orange bar will appear.
I would like to know how to produce that same effect on my applications. I have seen it in other custom made VB apps, but do not know how its being done. An example is listed below.
Does anyone know how to do this? -- Keep in mind, I do not wish to add an icon, but rather make the orange bar appear on the selected tab.
As mentioned above, included is the code for one of the tabs in the custom VB app that I found on the Internet that uses these orange bars, but I cannot determine how the developer is producing the bar effect. If anyone can help decipher this it would be great. Please see code below:
Me.TabControl1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.TabControl1.Location = New System.Drawing.Point(8, 40)
Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 0
Me.TabControl1.Size = New System.Drawing.Size(456, 288)
Me.TabControl1.TabIndex = 0
Me.TabPage1.BackColor = System.Drawing.Color.White
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Size = New System.Drawing.Size(448, 262)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "QuotedPrintable"