(Dec 22, 2014 01:32 PM)Marwix Wrote: I'm not really into GUI/form designing myself but I'll hit you up if I find a good one that matches the other ones on your website ✌
I never told you guys to add one my themes since I don't deal with that shit, nor do I have my own theme(s).
What do you mean that 'matches'?
None of the themes on my website have any sort of correlation to each other,
you have a very wrong idea about what netheme is
Great release :) Will be nice for people looking for new themes!
(Dec 22, 2014 12:54 PM)NETExplorer Wrote: Fuck off you chavvy bastard
Go mc or something
Quote of the year
looks good man, especially with the working GIF as thumbnails
Good Site! Thanks for this! :) Waiting more themes :)
(Dec 22, 2014 01:55 PM)OffCode Wrote: Good Site! Thanks for this! :) Waiting more themes :)
Feel free to post some themes you like on here, and Ill add them if they are up to par 🤝
This is awesome will be very helpful for me in the future, thank you mate.
(Dec 22, 2014 02:33 PM)Zen Wrote: This is awesome will be very helpful for me in the future, thank you mate.
No problem 🤝
Glad I could help
Dec 23, 2014 03:19 PM
(This post was last modified: Dec 23, 2014 03:20 PM by GenericSkid.)
Your submit button is 404ing on me. Says the page is unavailable.
Also, for the Influence theme your screenshot contains the TabControl control... The source code does not contain it.
![[Image: 72ecb04bec.png]](https://puu.sh/dd4Ao/72ecb04bec.png)
Code Public Class InfluenceTabControl : Inherits TabControl
#Region " Control Help - Properties & Flicker Control "
Private DrawGradientBrush, DrawGradientBrush2 As LinearGradientBrush
Private _TabBrColor As Color
Public Property TabBorderColor() As Color
Get
Return _TabBrColor
End Get
Set(ByVal v As Color)
_TabBrColor = v
Invalidate()
End Set
End Property
Private _ControlBColor As Color
Public Property TabTextColor() As Color
Get
Return _ControlBColor
End Get
Set(ByVal v As Color)
_ControlBColor = v
Invalidate()
End Set
End Property
Protected Overrides Sub OnPaintBackground(ByVal pevent As System.Windows.Forms.PaintEventArgs)
End Sub
#End Region
Sub New()
MyBase.New()
SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.ResizeRedraw Or ControlStyles.UserPaint Or ControlStyles.DoubleBuffer, True)
TabBorderColor = Color.White
TabTextColor = Color.White
End Sub
Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
Dim g As Graphics = e.Graphics
MyBase.OnPaint(e)
Dim d As New Draw
g.Clear(Color.FromArgb(20, 20, 20))
g.SmoothingMode = SmoothingMode.HighQuality
'| Main shape
Dim OuterMainRect As New Rectangle(0, 0, Width - 1, Height - 1)
Dim InnerMainRect As New Rectangle(1, 1, Width - 3, Height - 3)
Dim TopGradientPath As GraphicsPath = d.RoundRect(New Rectangle(1, 1, Width - 3, 20), 4)
Dim TopGradientBrush As New LinearGradientBrush(New Point(0, 0), New Point(0, 22), Color.FromArgb(35, 35, 35), Color.Transparent)
g.FillPath(TopGradientBrush, TopGradientPath)
g.DrawPath(Pens.Black, d.RoundRect(OuterMainRect, 4))
g.DrawPath(New Pen(Color.FromArgb(40, Color.White)), d.RoundRect(InnerMainRect, 4))
Dim TabIndexBounds As Rectangle
Dim TextBrush As New SolidBrush(Color.Empty)
For TabIndex As Integer = 0 To Me.TabCount - 1
TabIndexBounds = Me.GetTabRect(TabIndex)
If TabIndex = SelectedIndex Then
'|Filling the selected index
Dim SmallIndexBounds As New Rectangle(TabIndexBounds.X + 2, TabIndexBounds.Y + 2, TabIndexBounds.Width - 4, TabIndexBounds.Height - 4)
Dim TabPath As GraphicsPath = d.RoundRect(SmallIndexBounds, 3)
FillDualGradPath(g, Color.FromArgb(55, 55, 55), Color.FromArgb(40, 40, 40), SmallIndexBounds, TabPath)
'|Adding borders
Dim SmallerIndexBounds As New Rectangle(TabIndexBounds.X + 2, TabIndexBounds.Y + 3, TabIndexBounds.Width - 4, TabIndexBounds.Height - 6)
Dim TabHighlightPath As GraphicsPath = d.RoundRect(SmallerIndexBounds, 3)
g.DrawPath(New Pen(Color.FromArgb(25, Color.White)), TabHighlightPath)
g.DrawPath(Pens.Black, TabPath)
End If
Dim SF As New StringFormat : SF.LineAlignment = StringAlignment.Center : SF.Alignment = StringAlignment.Center
If Me.SelectedIndex = TabIndex Then : TextBrush.Color = TabTextColor
Else : TextBrush.Color = Color.DimGray : End If
Dim TextRectangle As New Rectangle(TabIndexBounds.X, TabIndexBounds.Y, TabIndexBounds.Width, TabIndexBounds.Height + 3)
g.DrawString(Me.TabPages(TabIndex).Text, Me.Font, TextBrush, TextRectangle, SF)
Try : Me.TabPages(TabIndex).BackColor = Color.FromArgb(20, 20, 20) : Catch : End Try
Next
Try
For Each TbPage As TabPage In Me.TabPages : TbPage.BorderStyle = BorderStyle.None : Next
Catch : End Try
End Sub
Public Sub FillDualGradPath(ByVal g As Graphics, ByVal Col1 As Color, ByVal Col2 As Color, ByVal rect As Rectangle, ByVal gp As GraphicsPath)
Dim stored As SmoothingMode = g.SmoothingMode
Dim Blend As New ColorBlend
g.SmoothingMode = SmoothingMode.HighQuality
Dim PathGradient As New LinearGradientBrush(New Point(rect.X, rect.Y), New Point(rect.X, rect.Y + rect.Height), Color.Black, Color.Black)
Blend.Positions = {0, 1 / 2, 1}
Blend.Colors = {Col1, Col2, Col1}
PathGradient.InterpolationColors = Blend
PathGradient.RotateTransform(0)
g.FillPath(PathGradient, gp)
g.SmoothingMode = stored
End Sub
End Class
(Dec 23, 2014 03:19 PM)GenericSkid Wrote: Your submit button is 404ing on me. Says the page is unavailable.
Also, for the Influence theme your screenshot contains the TabControl control... The source code does not contain it.
Code Public Class InfluenceTabControl : Inherits TabControl
#Region " Control Help - Properties & Flicker Control "
Private DrawGradientBrush, DrawGradientBrush2 As LinearGradientBrush
Private _TabBrColor As Color
Public Property TabBorderColor() As Color
Get
Return _TabBrColor
End Get
Set(ByVal v As Color)
_TabBrColor = v
Invalidate()
End Set
End Property
Private _ControlBColor As Color
Public Property TabTextColor() As Color
Get
Return _ControlBColor
End Get
Set(ByVal v As Color)
_ControlBColor = v
Invalidate()
End Set
End Property
Protected Overrides Sub OnPaintBackground(ByVal pevent As System.Windows.Forms.PaintEventArgs)
End Sub
#End Region
Sub New()
MyBase.New()
SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.ResizeRedraw Or ControlStyles.UserPaint Or ControlStyles.DoubleBuffer, True)
TabBorderColor = Color.White
TabTextColor = Color.White
End Sub
Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
Dim g As Graphics = e.Graphics
MyBase.OnPaint(e)
Dim d As New Draw
g.Clear(Color.FromArgb(20, 20, 20))
g.SmoothingMode = SmoothingMode.HighQuality
'| Main shape
Dim OuterMainRect As New Rectangle(0, 0, Width - 1, Height - 1)
Dim InnerMainRect As New Rectangle(1, 1, Width - 3, Height - 3)
Dim TopGradientPath As GraphicsPath = d.RoundRect(New Rectangle(1, 1, Width - 3, 20), 4)
Dim TopGradientBrush As New LinearGradientBrush(New Point(0, 0), New Point(0, 22), Color.FromArgb(35, 35, 35), Color.Transparent)
g.FillPath(TopGradientBrush, TopGradientPath)
g.DrawPath(Pens.Black, d.RoundRect(OuterMainRect, 4))
g.DrawPath(New Pen(Color.FromArgb(40, Color.White)), d.RoundRect(InnerMainRect, 4))
Dim TabIndexBounds As Rectangle
Dim TextBrush As New SolidBrush(Color.Empty)
For TabIndex As Integer = 0 To Me.TabCount - 1
TabIndexBounds = Me.GetTabRect(TabIndex)
If TabIndex = SelectedIndex Then
'|Filling the selected index
Dim SmallIndexBounds As New Rectangle(TabIndexBounds.X + 2, TabIndexBounds.Y + 2, TabIndexBounds.Width - 4, TabIndexBounds.Height - 4)
Dim TabPath As GraphicsPath = d.RoundRect(SmallIndexBounds, 3)
FillDualGradPath(g, Color.FromArgb(55, 55, 55), Color.FromArgb(40, 40, 40), SmallIndexBounds, TabPath)
'|Adding borders
Dim SmallerIndexBounds As New Rectangle(TabIndexBounds.X + 2, TabIndexBounds.Y + 3, TabIndexBounds.Width - 4, TabIndexBounds.Height - 6)
Dim TabHighlightPath As GraphicsPath = d.RoundRect(SmallerIndexBounds, 3)
g.DrawPath(New Pen(Color.FromArgb(25, Color.White)), TabHighlightPath)
g.DrawPath(Pens.Black, TabPath)
End If
Dim SF As New StringFormat : SF.LineAlignment = StringAlignment.Center : SF.Alignment = StringAlignment.Center
If Me.SelectedIndex = TabIndex Then : TextBrush.Color = TabTextColor
Else : TextBrush.Color = Color.DimGray : End If
Dim TextRectangle As New Rectangle(TabIndexBounds.X, TabIndexBounds.Y, TabIndexBounds.Width, TabIndexBounds.Height + 3)
g.DrawString(Me.TabPages(TabIndex).Text, Me.Font, TextBrush, TextRectangle, SF)
Try : Me.TabPages(TabIndex).BackColor = Color.FromArgb(20, 20, 20) : Catch : End Try
Next
Try
For Each TbPage As TabPage In Me.TabPages : TbPage.BorderStyle = BorderStyle.None : Next
Catch : End Try
End Sub
Public Sub FillDualGradPath(ByVal g As Graphics, ByVal Col1 As Color, ByVal Col2 As Color, ByVal rect As Rectangle, ByVal gp As GraphicsPath)
Dim stored As SmoothingMode = g.SmoothingMode
Dim Blend As New ColorBlend
g.SmoothingMode = SmoothingMode.HighQuality
Dim PathGradient As New LinearGradientBrush(New Point(rect.X, rect.Y), New Point(rect.X, rect.Y + rect.Height), Color.Black, Color.Black)
Blend.Positions = {0, 1 / 2, 1}
Blend.Colors = {Col1, Col2, Col1}
PathGradient.InterpolationColors = Blend
PathGradient.RotateTransform(0)
g.FillPath(PathGradient, gp)
g.SmoothingMode = stored
End Sub
End Class
Thanks for that
Also, the submit still isn't up yet. Still not comfortable with putting it up jussttt yet :P
Dec 23, 2014 05:56 PM
(This post was last modified: Dec 23, 2014 05:56 PM by Tidas.)
You should make the name of the creator clickable and it would link to their HF profile.
(Dec 23, 2014 05:56 PM)Tidas Wrote: You should make the name of the creator clickable and it would link to their HF profile.
I was thinking of doing that, but for some reason during development I never got to it
I've sent you a PM
oh my thank you for this 👍
|
![[Image: jlscvfi.png]](https://i.imgur.com/jlscvfi.png)
![[Image: 2f4032b5f1170bc8fedd7e367c680327.png]](https://i.gyazo.com/2f4032b5f1170bc8fedd7e367c680327.png)
![[Image: vjPWhyy.gif]](https://i.imgur.com/vjPWhyy.gif)
