[mikrodotnet]

thanks for the share, also written very clean

[Josh‎]

Erm... What?


Maybe make it scroll instead?

I fixed it (And changed colours/alignment) :D

[Madara-Uchiha]

Nice, looks similar to the TabControl of Imminent Monitor.

[SIM-1676753]

Nice, looks similar to the TabControl of Imminent Monitor.

Yep, because everyone is using the same design pattern.

[Only3]

Nice, looks similar to the TabControl of Imminent Monitor.

u mean aeon tabcontrol https://hackforums.net/showthread.php?tid=2541240

anyway why u use bmp (Graphics.FromImage)

Code

Public Class Tb
    Inherits TabControl

    Sub New()
      SetStyle(ControlStyles.UserPaint Or ControlStyles.AllPaintingInWmPaint Or ControlStyles.Opaque Or ControlStyles.ResizeRedraw, True)
      'SetStyle(ControlStyles.Selectable, False)
      Dock = DockStyle.Fill
      ItemSize = New Size(120, 25)
      SizeMode = TabSizeMode.Fixed
      Alignment = TabAlignment.Left
      DrawMode = TabDrawMode.OwnerDrawFixed
    End Sub

    Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
      Dim G As Graphics = e.Graphics
      G.Clear(Color.FromArgb(71, 80, 100))
      'G.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
      For i = 0 To TabCount - 1
      Dim TabRectangle As Rectangle = GetTabRect(i)
      If i = SelectedIndex Then
      G.FillRectangle(New SolidBrush(Color.FromArgb(95, 105, 127)), TabRectangle)
      G.FillRectangle(Brushes.DeepSkyBlue, New Rectangle(TabRectangle.Location.X + 2, TabRectangle.Location.Y + 2, 3, TabRectangle.Height - 4))
      Else
      G.FillRectangle(New SolidBrush(Color.FromArgb(71, 80, 100)), TabRectangle)
      G.FillRectangle(New SolidBrush(Color.FromArgb(90, 102, 127)), New Rectangle(TabRectangle.Location.X + 2, TabRectangle.Location.Y + 2, 3, TabRectangle.Height - 4))
      End If
      G.DrawString(TabPages(i).Text, Font, Brushes.White, TabRectangle, New StringFormat With {.Alignment = StringAlignment.Center, .LineAlignment = StringAlignment.Center})
      Next
      G.Dispose()
      MyBase.OnPaint(e)
    End Sub
End Class

[$lick]

u mean aeon tabcontrol https://hackforums.net/showthread.php?tid=2541240

anyway why u use bmp (Graphics.FromImage)

Code

Public Class Tb
    Inherits TabControl

    Sub New()
      SetStyle(ControlStyles.UserPaint Or ControlStyles.AllPaintingInWmPaint Or ControlStyles.Opaque Or ControlStyles.ResizeRedraw, True)
      'SetStyle(ControlStyles.Selectable, False)
      Dock = DockStyle.Fill
      ItemSize = New Size(120, 25)
      SizeMode = TabSizeMode.Fixed
      Alignment = TabAlignment.Left
      DrawMode = TabDrawMode.OwnerDrawFixed
    End Sub

    Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
      Dim G As Graphics = e.Graphics
      G.Clear(Color.FromArgb(71, 80, 100))
      'G.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
      For i = 0 To TabCount - 1
      Dim TabRectangle As Rectangle = GetTabRect(i)
      If i = SelectedIndex Then
      G.FillRectangle(New SolidBrush(Color.FromArgb(95, 105, 127)), TabRectangle)
      G.FillRectangle(Brushes.DeepSkyBlue, New Rectangle(TabRectangle.Location.X + 2, TabRectangle.Location.Y + 2, 3, TabRectangle.Height - 4))
      Else
      G.FillRectangle(New SolidBrush(Color.FromArgb(71, 80, 100)), TabRectangle)
      G.FillRectangle(New SolidBrush(Color.FromArgb(90, 102, 127)), New Rectangle(TabRectangle.Location.X + 2, TabRectangle.Location.Y + 2, 3, TabRectangle.Height - 4))
      End If
      G.DrawString(TabPages(i).Text, Font, Brushes.White, TabRectangle, New StringFormat With {.Alignment = StringAlignment.Center, .LineAlignment = StringAlignment.Center})
      Next
      G.Dispose()
      MyBase.OnPaint(e)
    End Sub
End Class

No I'm pretty sure he meant Imminent Monitor.

[Earn]

I love the design OP. Great work. I might even make a theme based on those colours in the future.

I fixed it (And changed colours/alignment) :D

Nice man. Also, another suggestion would be instead of those 2 buttons, just automatically make the tabs smaller (like in Google Chrome). That would be sexy as fuck.

[Josh‎]

Nice man. Also, another suggestion would be instead of those 2 buttons, just automatically make the tabs smaller (like in Google Chrome). That would be sexy as fuck.

I can try, not very good at making this sort of thing.

[Only3]

No I'm pretty sure he meant Imminent Monitor.

😁 u should open ur mind from time to time 😏

[$lick]

😁 u should open ur mind from time to time 😏

Well you corrected him on something that was correct.

[Only3]

Well you corrected him on something that was correct.

you are right 👍 but isnt it obvious 😊 so what was my point lazy ? 😁

[DopeDatabase]

Nice Release Love it! Thanks for This!

[DAVIDLEX]

If you need i will make vertical tab control for you... currently working on your suggestions too...

@OP nice work mate.. Keep coding... ;)

HI

i need vertical tab control i will want you to make some for me

[oRequiem]

Looks really nice, thanks for the share (: Could be useful!

[SaketSaket]

HI

i need vertical tab control i will want you to make some for me

check my themes... they have vertical tab control in few of them... ;)