├── .gitattributes ├── .gitignore ├── 3Teen ├── 3Teen Theme.txt └── EndAcQO.png ├── 8Ball ├── 8Ball Theme.txt └── YPxsS0Q.png ├── BDT └── BDT.txt ├── Bionic ├── Bionic Theme.txt └── eMDOkit.png ├── Bonfire Theme ├── Bonfire Theme.txt └── yRIWTT0.png ├── Booster ├── Booster Theme.txt └── aHR0cDovL2k5NjMucGhvdG9idWNrZXQuY29tL2FsYnVtcy9hZTExNS9kbHdoZHJsZi9Cb29zdGVyVGhlbWVGaW5hbDEucG5n.png ├── Butterscotch ├── Butterscotch Theme.txt ├── a.png ├── b.png └── c.jpg ├── Clarity ├── Clarity Theme.txt └── aAjhYkr.png ├── Classic ├── Classic Theme.txt └── aHR0cDovL2k4MTkucGhvdG9idWNrZXQuY29tL2FsYnVtcy96ejExMi9FcHJvdXZlei9DbGFzc2ljLmpwZw.jpg ├── Dark Flat ├── PNHPmaw.png └── dark_flat_ui.txt ├── Earn ├── Earn Theme.txt └── nXRI8qX.png ├── EasyColour ├── 2njduQ6.png ├── EasyColour Theme.txt └── IDQLG1y.png ├── Element ├── 0LZSSxD.png ├── Element Theme.txt └── cmQ9qfK.png ├── Google Chrome ├── Google Chrome Theme.txt └── MYegQrh.png ├── GrayBlue ├── 5Tw9x.png └── GrayBlue.txt ├── Greywash ├── Greywash Theme.txt └── cxKrAZf.png ├── Hex ├── Hex Theme.txt └── wpcNSiS.png ├── High Roller ├── High Roller Theme.txt └── aHR0cDovL2kuZ3lhem8uY29tLzViN2E0YTJlOWJjYWJkNDgyYTEzMWVlMTUzMWY3MGVmLnBuZw.png ├── Knight ├── Knight Theme.txt └── S21Ibji.png ├── LICENSE ├── LogIn ├── LogIn Theme.txt └── cYVrCK2.png ├── Meph ├── Meph Theme.txt └── xCaSEYm.png ├── MonoFlat ├── L5KfFGe.png └── monoflat Theme.txt ├── Morphic ├── CpB6D3t.png └── Morphic Theme.txt ├── Mystic ├── 2xhMnVQ.png └── Mystic Theme.txt ├── NEF Theme ├── 9510199357.png └── NEF Theme.txt ├── New ├── New Theme.txt └── c61bd7bc03549ad364c631e2aff70272.png ├── Onlykl ├── Onlykl Theme.txt └── gSYjnZK.png ├── PV ├── 5dc5ee8bd2.png ├── PV Theme.txt └── f5a132db01.png ├── Positron ├── Positron Theme.txt └── lREzeIc.png ├── Pro Controls ├── Pro Controls Theme.txt └── ZALULud.png ├── Steam ├── Steam Theme.txt └── gzyoEqw.png ├── VI ├── VI Theme.txt └── aHR0cDovL2RsLmRyb3Bib3guY29tL3UvNDc2NTQ3NjAvVkl0aGVtZS5wbmc.png ├── Valley ├── Valley Theme.txt └── sOvzFMY.png ├── VibeLander ├── VibeLander Theme.txt └── b8p9ggI.png ├── Visual Studio (Dark) ├── Rdmevnk.png └── Visual Studo Theme.txt ├── Vitality ├── Vitality Theme.txt └── oYtEQFp.png └── Winter ├── T8SwDUr.png └── Winter Theme.txt /.gitattributes: -------------------------------------------------------------------------------- 1 | # Auto detect text files and perform LF normalization 2 | * text=auto 3 | 4 | # Custom for Visual Studio 5 | *.cs diff=csharp 6 | 7 | # Standard to msysgit 8 | *.doc diff=astextplain 9 | *.DOC diff=astextplain 10 | *.docx diff=astextplain 11 | *.DOCX diff=astextplain 12 | *.dot diff=astextplain 13 | *.DOT diff=astextplain 14 | *.pdf diff=astextplain 15 | *.PDF diff=astextplain 16 | *.rtf diff=astextplain 17 | *.RTF diff=astextplain 18 | -------------------------------------------------------------------------------- /.gitignore: -------------------------------------------------------------------------------- 1 | ## Ignore Visual Studio temporary files, build results, and 2 | ## files generated by popular Visual Studio add-ons. 3 | 4 | # User-specific files 5 | *.suo 6 | *.user 7 | *.userosscache 8 | *.sln.docstates 9 | 10 | # User-specific files (MonoDevelop/Xamarin Studio) 11 | *.userprefs 12 | 13 | # Build results 14 | [Dd]ebug/ 15 | [Dd]ebugPublic/ 16 | [Rr]elease/ 17 | [Rr]eleases/ 18 | x64/ 19 | x86/ 20 | build/ 21 | bld/ 22 | [Bb]in/ 23 | [Oo]bj/ 24 | 25 | # Visual Studio 2015 cache/options directory 26 | .vs/ 27 | # Uncomment if you have tasks that create the project's static files in wwwroot 28 | #wwwroot/ 29 | 30 | # MSTest test Results 31 | [Tt]est[Rr]esult*/ 32 | [Bb]uild[Ll]og.* 33 | 34 | # NUNIT 35 | *.VisualState.xml 36 | TestResult.xml 37 | 38 | # Build Results of an ATL Project 39 | [Dd]ebugPS/ 40 | [Rr]eleasePS/ 41 | dlldata.c 42 | 43 | # DNX 44 | project.lock.json 45 | artifacts/ 46 | 47 | *_i.c 48 | *_p.c 49 | *_i.h 50 | *.ilk 51 | *.meta 52 | *.obj 53 | *.pch 54 | *.pdb 55 | *.pgc 56 | *.pgd 57 | *.rsp 58 | *.sbr 59 | *.tlb 60 | *.tli 61 | *.tlh 62 | *.tmp 63 | *.tmp_proj 64 | *.log 65 | *.vspscc 66 | *.vssscc 67 | .builds 68 | *.pidb 69 | *.svclog 70 | *.scc 71 | 72 | # Chutzpah Test files 73 | _Chutzpah* 74 | 75 | # Visual C++ cache files 76 | ipch/ 77 | *.aps 78 | *.ncb 79 | *.opensdf 80 | *.sdf 81 | *.cachefile 82 | 83 | # Visual Studio profiler 84 | *.psess 85 | *.vsp 86 | *.vspx 87 | *.sap 88 | 89 | # TFS 2012 Local Workspace 90 | $tf/ 91 | 92 | # Guidance Automation Toolkit 93 | *.gpState 94 | 95 | # ReSharper is a .NET coding add-in 96 | _ReSharper*/ 97 | *.[Rr]e[Ss]harper 98 | *.DotSettings.user 99 | 100 | # JustCode is a .NET coding add-in 101 | .JustCode 102 | 103 | # TeamCity is a build add-in 104 | _TeamCity* 105 | 106 | # DotCover is a Code Coverage Tool 107 | *.dotCover 108 | 109 | # NCrunch 110 | _NCrunch_* 111 | .*crunch*.local.xml 112 | nCrunchTemp_* 113 | 114 | # MightyMoose 115 | *.mm.* 116 | AutoTest.Net/ 117 | 118 | # Web workbench (sass) 119 | .sass-cache/ 120 | 121 | # Installshield output folder 122 | [Ee]xpress/ 123 | 124 | # DocProject is a documentation generator add-in 125 | DocProject/buildhelp/ 126 | DocProject/Help/*.HxT 127 | DocProject/Help/*.HxC 128 | DocProject/Help/*.hhc 129 | DocProject/Help/*.hhk 130 | DocProject/Help/*.hhp 131 | DocProject/Help/Html2 132 | DocProject/Help/html 133 | 134 | # Click-Once directory 135 | publish/ 136 | 137 | # Publish Web Output 138 | *.[Pp]ublish.xml 139 | *.azurePubxml 140 | # TODO: Comment the next line if you want to checkin your web deploy settings 141 | # but database connection strings (with potential passwords) will be unencrypted 142 | *.pubxml 143 | *.publishproj 144 | 145 | # NuGet Packages 146 | *.nupkg 147 | # The packages folder can be ignored because of Package Restore 148 | **/packages/* 149 | # except build/, which is used as an MSBuild target. 150 | !**/packages/build/ 151 | # Uncomment if necessary however generally it will be regenerated when needed 152 | #!**/packages/repositories.config 153 | 154 | # Windows Azure Build Output 155 | csx/ 156 | *.build.csdef 157 | 158 | # Windows Azure Emulator 159 | efc/ 160 | rfc/ 161 | 162 | # Windows Store app package directory 163 | AppPackages/ 164 | 165 | # Visual Studio cache files 166 | # files ending in .cache can be ignored 167 | *.[Cc]ache 168 | # but keep track of directories ending in .cache 169 | !*.[Cc]ache/ 170 | 171 | # Others 172 | ClientBin/ 173 | [Ss]tyle[Cc]op.* 174 | ~$* 175 | *~ 176 | *.dbmdl 177 | *.dbproj.schemaview 178 | *.pfx 179 | *.publishsettings 180 | node_modules/ 181 | orleans.codegen.cs 182 | 183 | # RIA/Silverlight projects 184 | Generated_Code/ 185 | 186 | # Backup & report files from converting an old project file 187 | # to a newer Visual Studio version. Backup files are not needed, 188 | # because we have git ;-) 189 | _UpgradeReport_Files/ 190 | Backup*/ 191 | UpgradeLog*.XML 192 | UpgradeLog*.htm 193 | 194 | # SQL Server files 195 | *.mdf 196 | *.ldf 197 | 198 | # Business Intelligence projects 199 | *.rdl.data 200 | *.bim.layout 201 | *.bim_*.settings 202 | 203 | # Microsoft Fakes 204 | FakesAssemblies/ 205 | 206 | # GhostDoc plugin setting file 207 | *.GhostDoc.xml 208 | 209 | # Node.js Tools for Visual Studio 210 | .ntvs_analysis.dat 211 | 212 | # Visual Studio 6 build log 213 | *.plg 214 | 215 | # Visual Studio 6 workspace options file 216 | *.opt 217 | 218 | # Visual Studio LightSwitch build output 219 | **/*.HTMLClient/GeneratedArtifacts 220 | **/*.DesktopClient/GeneratedArtifacts 221 | **/*.DesktopClient/ModelManifest.xml 222 | **/*.Server/GeneratedArtifacts 223 | **/*.Server/ModelManifest.xml 224 | _Pvt_Extensions 225 | 226 | # Paket dependency manager 227 | .paket/paket.exe 228 | 229 | # FAKE - F# Make 230 | .fake/ 231 | 232 | # ========================= 233 | # Operating System Files 234 | # ========================= 235 | 236 | # OSX 237 | # ========================= 238 | 239 | .DS_Store 240 | .AppleDouble 241 | .LSOverride 242 | 243 | # Thumbnails 244 | ._* 245 | 246 | # Files that might appear in the root of a volume 247 | .DocumentRevisions-V100 248 | .fseventsd 249 | .Spotlight-V100 250 | .TemporaryItems 251 | .Trashes 252 | .VolumeIcon.icns 253 | 254 | # Directories potentially created on remote AFP share 255 | .AppleDB 256 | .AppleDesktop 257 | Network Trash Folder 258 | Temporary Items 259 | .apdisk 260 | 261 | # Windows 262 | # ========================= 263 | 264 | # Windows image file caches 265 | Thumbs.db 266 | ehthumbs.db 267 | 268 | # Folder config file 269 | Desktop.ini 270 | 271 | # Recycle Bin used on file shares 272 | $RECYCLE.BIN/ 273 | 274 | # Windows Installer files 275 | *.cab 276 | *.msi 277 | *.msm 278 | *.msp 279 | 280 | # Windows shortcuts 281 | *.lnk 282 | -------------------------------------------------------------------------------- /3Teen/EndAcQO.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/VBTheme/729263e38ab40c4139b82e831cfe5eef85755ec0/3Teen/EndAcQO.png -------------------------------------------------------------------------------- /8Ball/YPxsS0Q.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/VBTheme/729263e38ab40c4139b82e831cfe5eef85755ec0/8Ball/YPxsS0Q.png -------------------------------------------------------------------------------- /BDT/BDT.txt: -------------------------------------------------------------------------------- 1 | Imports System.Drawing.Drawing2D 2 | 3 | '-----11/16/2015-----' 4 | '--------------------' 5 | '--------VmX5--------' 6 | '---Please Credit!---' 7 | '--------------------' 8 | '-----11/16/2015-----' 9 | 10 | Public Class Bitdefender_Form 11 | Inherits ContainerControl 12 | Private drag As Boolean = False 13 | Private savePoint As New Point(0, 0) 14 | Sub New() 15 | DoubleBuffered = True 16 | Dock = DockStyle.Fill 17 | Font = New Font("Segoe UI", 12) 18 | End Sub 19 | 20 | Protected Overrides Sub OnCreateControl() 21 | MyBase.OnCreateControl() 22 | FindForm.FormBorderStyle = FormBorderStyle.None 23 | FindForm.BackColor = ColorTranslator.FromHtml("#212426") 24 | End Sub 25 | 26 | Protected Overrides Sub OnPaint(e As PaintEventArgs) 27 | MyBase.OnPaint(e) 28 | Dim g As Graphics = e.Graphics 29 | g.SmoothingMode = Drawing2D.SmoothingMode.HighQuality 30 | 31 | g.FillRectangle(New SolidBrush(ColorTranslator.FromHtml("#212426")), -1, -1, Width + 1, Height + 1) 32 | g.DrawLine(New Pen(ColorTranslator.FromHtml("#40474d")), 1, 51, Width, 51) 33 | 34 | g.DrawString("0", New Font("Marlett", 12), New SolidBrush(ColorTranslator.FromHtml("#808d98")), Width - 60, 12) 35 | g.DrawString("0", New Font("Marlett", 12), New SolidBrush(ColorTranslator.FromHtml("#808d98")), Width - 65, 12) 36 | g.DrawString("r", New Font("Marlett", 12), New SolidBrush(ColorTranslator.FromHtml("#808d98")), Width - 29, 12) 37 | 38 | 39 | g.DrawString(Text, Font, Brushes.White, (Width / 2) - (g.MeasureString(Text, Font).Width / 2), 25 - (g.MeasureString(Text, Font).Height / 2)) 40 | End Sub 41 | 42 | Protected Overrides Sub OnMouseDown(e As MouseEventArgs) 43 | MyBase.OnMouseDown(e) 44 | If New Rectangle(731, 12, 21.8, 18).Contains(e.X, e.Y) Then 45 | Application.Exit() 46 | End If 47 | If New Rectangle(695, 12, 21.8, 18).Contains(e.X, e.Y) Then 48 | FindForm.WindowState = FormWindowState.Minimized 49 | End If 50 | 51 | If New Rectangle(0, 0, Width, 51).Contains(e.X, e.Y) Then 52 | drag = True 53 | savePoint = New Point(e.X, e.Y) 54 | Else 55 | drag = False 56 | End If 57 | End Sub 58 | 59 | Protected Overrides Sub OnMouseUp(e As MouseEventArgs) 60 | MyBase.OnMouseUp(e) 61 | drag = False 62 | End Sub 63 | 64 | Protected Overrides Sub OnMouseMove(e As MouseEventArgs) 65 | MyBase.OnMouseMove(e) 66 | Dim g As Graphics = CreateGraphics() 67 | If drag Then 68 | Dim screenPoint As Point = PointToScreen(e.Location) 69 | FindForm().Location = New Point(screenPoint.X - Me.savePoint.X, screenPoint.Y - Me.savePoint.Y) 70 | End If 71 | Invalidate() 72 | End Sub 73 | End Class 74 | 75 | Public Class Bitdefender_Button 76 | Inherits Control 77 | Public _Image As Image 78 | 79 | Public Property Image As Image 80 | Get 81 | Return _Image 82 | End Get 83 | Set(value As Image) 84 | _Image = value 85 | Invalidate() 86 | End Set 87 | End Property 88 | Sub New() 89 | Size = New Size(172, 172) 90 | DoubleBuffered = True 91 | End Sub 92 | Protected Overrides Sub OnPaint(e As PaintEventArgs) 93 | MyBase.OnPaint(e) 94 | Dim g As Graphics = e.Graphics 95 | g.SmoothingMode = Drawing2D.SmoothingMode.HighQuality 96 | g.FillRectangle(New SolidBrush(ColorTranslator.FromHtml("#555e66")), -1, -1, Width + 1, Height + 1) 97 | If _Image IsNot Nothing Then 98 | g.DrawImage(_Image, New Rectangle(Width / 2 - 25, Height / 2 - 25, 50, 50)) 99 | g.DrawString(Text, Font, Brushes.White, (Width / 2) - (g.MeasureString(Text, Font).Width / 2) + 1, (Height / 2) + 35) 100 | Else 101 | g.DrawString(Text, Font, Brushes.White, (Width / 2) - (g.MeasureString(Text, Font).Width / 2) + 1, (Height / 2) - (g.MeasureString(Text, Font).Height / 2)) 102 | End If 103 | End Sub 104 | End Class 105 | 106 | Public Class Bitdefender_Button_Small 107 | Inherits Control 108 | Public _Image As Image 109 | Public Property Image As Image 110 | Get 111 | Return _Image 112 | End Get 113 | Set(value As Image) 114 | _Image = value 115 | Invalidate() 116 | End Set 117 | End Property 118 | Sub New() 119 | Size = New Size(84, 84) 120 | DoubleBuffered = True 121 | End Sub 122 | 123 | Protected Overrides Sub OnPaint(e As PaintEventArgs) 124 | MyBase.OnPaint(e) 125 | Dim g As Graphics = e.Graphics 126 | g.SmoothingMode = Drawing2D.SmoothingMode.HighQuality 127 | 128 | g.FillRectangle(New SolidBrush(ColorTranslator.FromHtml("#40474d ")), -1, -1, Width + 1, Height + 1) 129 | 130 | If _Image IsNot Nothing Then 131 | g.DrawImage(_Image, New Rectangle(Width / 2 - 15, Height / 2 - 15, 30, 30)) 132 | g.DrawString(Text, Font, Brushes.White, (Width / 2) - (g.MeasureString(Text, Font).Width / 2) + 1, (Height / 2) + 20) 133 | Else 134 | g.DrawString(Text, Font, Brushes.White, (Width / 2) - (g.MeasureString(Text, Font).Width / 2) + 1, (Height / 2) - (g.MeasureString(Text, Font).Height / 2)) 135 | End If 136 | End Sub 137 | 138 | End Class 139 | 140 | Public Class Bitdefender_Flip_Switch 141 | Inherits Control 142 | 143 | Public _checked As Boolean = False 144 | 145 | Public Property Checked As Boolean 146 | Get 147 | Return _checked 148 | End Get 149 | Set(value As Boolean) 150 | _checked = value 151 | Invalidate() 152 | End Set 153 | End Property 154 | 155 | Sub New() 156 | DoubleBuffered = True 157 | Size = New Size(60, 30) 158 | End Sub 159 | 160 | Protected Overrides Sub OnPaint(e As PaintEventArgs) 161 | MyBase.OnPaint(e) 162 | Dim g As Graphics = e.Graphics 163 | g.TextRenderingHint = Drawing.Text.TextRenderingHint.AntiAlias 164 | 165 | g.FillRectangle(New SolidBrush(ColorTranslator.FromHtml("#3f464c")), -1, -1, Width + 1, Height + 1) 166 | 167 | If _checked Then 168 | g.FillRectangle(New SolidBrush(ColorTranslator.FromHtml("#202325")), 2, 2, 27, 26) 169 | g.DrawString("✓", New Font("Segoe UI Light", 12), New SolidBrush(ColorTranslator.FromHtml("#808d98")), 4.5, 4) 170 | Else 171 | g.FillRectangle(New SolidBrush(ColorTranslator.FromHtml("#202325")), 31, 2, 27, 26) 172 | g.DrawString("r", New Font("Marlett", 12), New SolidBrush(ColorTranslator.FromHtml("#808d98")), 34.5, 6.7) 173 | End If 174 | End Sub 175 | 176 | Protected Overrides Sub OnMouseDown(e As MouseEventArgs) 177 | MyBase.OnMouseDown(e) 178 | If New Rectangle(2, 2, 27, 26).Contains(e.X, e.Y) Then 179 | If Checked = True Then 180 | Checked = False 181 | Else 182 | Checked = True 183 | End If 184 | ElseIf New Rectangle(31, 2, 27, 26).Contains(e.X, e.Y) Then 185 | If Checked = True Then 186 | Checked = False 187 | Else 188 | Checked = True 189 | End If 190 | End If 191 | End Sub 192 | 193 | End Class 194 | 195 | Public Class Bitdefender_ComboBox 196 | Inherits ComboBox 197 | Sub ReplaceItem(ByVal sender As System.Object, ByVal e As Windows.Forms.DrawItemEventArgs) Handles Me.DrawItem 198 | e.DrawBackground() 199 | If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then 200 | e.Graphics.FillRectangle(New SolidBrush(ColorTranslator.FromHtml("#4b5359")), e.Bounds.X, e.Bounds.Y, e.Bounds.Width, e.Bounds.Height) 201 | Else 202 | e.Graphics.FillRectangle(New SolidBrush(ColorTranslator.FromHtml("#4b5359")), e.Bounds.X, e.Bounds.Y, e.Bounds.Width, e.Bounds.Height) 203 | End If 204 | e.Graphics.DrawString(GetItemText(Items(e.Index)), e.Font, Brushes.White, New Rectangle(e.Bounds.X, e.Bounds.Y, e.Bounds.Width, e.Bounds.Height)) 205 | 206 | End Sub 207 | 208 | Sub New() 209 | SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.UserPaint Or _ 210 | ControlStyles.ResizeRedraw Or ControlStyles.OptimizedDoubleBuffer Or _ 211 | ControlStyles.SupportsTransparentBackColor, True) 212 | DoubleBuffered = True 213 | DrawMode = Windows.Forms.DrawMode.OwnerDrawFixed 214 | DropDownStyle = ComboBoxStyle.DropDownList 215 | Width = 120 216 | Font = New Font("Segoe UI", 12) 217 | End Sub 218 | 219 | Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs) 220 | MyBase.OnPaint(e) 221 | Dim g As Graphics = e.Graphics 222 | Dim Square As New Rectangle(Width - 25, 0, Width, Height) 223 | g.FillRectangle(New SolidBrush(ColorTranslator.FromHtml("#4b5359")), New Rectangle(0, 0, Width, Height)) 224 | g.DrawString(Text, Font, Brushes.White, New Rectangle(3, 0, Width - 20, Height), New StringFormat With {.LineAlignment = StringAlignment.Center, .Alignment = StringAlignment.Near}) 225 | g.DrawString("6", New Font("Marlett", 10), Brushes.White, Width - 20, 10) 226 | End Sub 227 | 228 | End Class 229 | 230 | Public Class Bitdefender_Checkmark 231 | Inherits Control 232 | 233 | Sub New() 234 | Size = New Size(120, 120) 235 | End Sub 236 | 237 | Protected Overrides Sub OnPaint(e As PaintEventArgs) 238 | MyBase.OnPaint(e) 239 | Dim g As Graphics = e.Graphics 240 | g.SmoothingMode = SmoothingMode.HighQuality 241 | g.Clear(ColorTranslator.FromHtml("#212426")) 242 | g.DrawEllipse(New Pen(ColorTranslator.FromHtml("#7eba18"), 2), 1, 1, 117, 117) 243 | g.DrawString("✓", New Font("Segoe UI Bold", 52), New SolidBrush(ColorTranslator.FromHtml("#7eba18")), (Width / 2) - (g.MeasureString("b", New Font("Marlett", 52)).Width / 2), (Height / 2) - (g.MeasureString("b", New Font("Marlett", 52)).Height / 2)) 244 | End Sub 245 | End Class 246 | 247 | Public Class Bitdefender_xMark 248 | Inherits Control 249 | 250 | Sub New() 251 | Size = New Size(120, 120) 252 | End Sub 253 | 254 | Protected Overrides Sub OnPaint(e As PaintEventArgs) 255 | MyBase.OnPaint(e) 256 | Dim g As Graphics = e.Graphics 257 | g.SmoothingMode = SmoothingMode.HighQuality 258 | g.Clear(ColorTranslator.FromHtml("#212426")) 259 | g.DrawEllipse(New Pen(ColorTranslator.FromHtml("#e85353"), 2), 1, 1, 117, 117) 260 | g.DrawString("✕", New Font("Segoe UI Bold", 52), New SolidBrush(ColorTranslator.FromHtml("#e85353")), (Width / 2) - (g.MeasureString("b", New Font("Marlett", 52)).Width / 2), (Height / 2) - (g.MeasureString("b", New Font("Marlett", 52)).Height / 2)) 261 | End Sub 262 | End Class 263 | 264 | Public Class Bitdefender_Label 265 | Inherits Label 266 | Sub New() 267 | BackColor = ColorTranslator.FromHtml("#212426") 268 | ForeColor = ColorTranslator.FromHtml("#8f9da6") 269 | Font = New Font("Segoe UI", 11) 270 | End Sub 271 | End Class 272 | 273 | Public Class Bitdefender_Link_Label 274 | Inherits Label 275 | Public _url As String 276 | Public Property URL As String 277 | Get 278 | Return _url 279 | End Get 280 | Set(value As String) 281 | _url = value 282 | End Set 283 | End Property 284 | 285 | Sub New() 286 | Cursor = Cursors.Hand 287 | BackColor = ColorTranslator.FromHtml("#212426") 288 | ForeColor = ColorTranslator.FromHtml("#00a1ff") 289 | Font = New Font("Segoe UI Semibold", 11) 290 | End Sub 291 | 292 | Protected Overrides Sub OnMouseDown(e As System.Windows.Forms.MouseEventArgs) 293 | MyBase.OnMouseDown(e) 294 | If Not _url Is Nothing Then 295 | Process.Start(_url) 296 | End If 297 | End Sub 298 | End Class -------------------------------------------------------------------------------- /Bionic/Bionic Theme.txt: -------------------------------------------------------------------------------- 1 | Imports System.Drawing 2 | Imports System.Drawing.Drawing2D 3 | Imports System.ComponentModel 4 | Imports System.Drawing.Text 5 | 6 | Enum MouseState 7 | None = 0 8 | Hover = 1 9 | Down = 2 10 | End Enum 11 | 12 | Class BionicTheme 13 | Inherits ContainerControl 14 | 15 | #Region " Declarations " 16 | Private _Down As Boolean = False 17 | Private _Header As Integer = 34 18 | Private _MousePoint As Point 19 | #End Region 20 | 21 | #Region " MouseStates " 22 | Protected Overrides Sub OnMouseUp(e As MouseEventArgs) 23 | MyBase.OnMouseUp(e) 24 | _Down = False 25 | End Sub 26 | 27 | Protected Overrides Sub OnMouseDown(e As MouseEventArgs) 28 | MyBase.OnMouseDown(e) 29 | If e.Location.Y < _Header AndAlso e.Button = Windows.Forms.MouseButtons.Left Then 30 | _Down = True 31 | _MousePoint = e.Location 32 | End If 33 | End Sub 34 | 35 | Protected Overrides Sub OnMouseMove(e As MouseEventArgs) 36 | MyBase.OnMouseMove(e) 37 | If _Down = True Then 38 | ParentForm.Location = MousePosition - _MousePoint 39 | End If 40 | End Sub 41 | #End Region 42 | 43 | Protected Overrides Sub OnCreateControl() 44 | MyBase.OnCreateControl() 45 | ParentForm.TransparencyKey = Color.Fuchsia 46 | ParentForm.FormBorderStyle = FormBorderStyle.None 47 | Dock = DockStyle.Fill 48 | BackColor = Color.FromArgb(48, 48, 48) 49 | Invalidate() 50 | End Sub 51 | 52 | Protected Overrides Sub OnPaint(e As PaintEventArgs) 53 | MyBase.OnPaint(e) 54 | Dim G = e.Graphics 55 | G.Clear(Color.FromArgb(29, 29, 29)) 56 | G.FillRectangle(New SolidBrush(Color.FromArgb(38, 38, 38)), New Rectangle(2, 2, Width - 4, 15)) 57 | G.FillRectangle(New SolidBrush(Color.FromArgb(48, 48, 48)), New Rectangle(2, 32, Width - 4, Height - 34)) 58 | Dim _StringF As New StringFormat 59 | _StringF.Alignment = StringAlignment.Center 60 | _StringF.LineAlignment = StringAlignment.Center 61 | G.DrawString(FindForm.Text, New Font("Arial", 11), Brushes.White, New RectangleF(2, 2, Width - 4, 30), _StringF) 62 | End Sub 63 | 64 | End Class 65 | 66 | Class BionicGroupBox 67 | Inherits ContainerControl 68 | 69 | Sub New() 70 | BackColor = Color.FromArgb(38, 38, 38) 71 | Size = New Size(200, 100) 72 | End Sub 73 | 74 | Protected Overrides Sub OnPaint(e As PaintEventArgs) 75 | MyBase.OnPaint(e) 76 | Dim G = e.Graphics 77 | G.Clear(Color.FromArgb(38, 38, 38)) 78 | G.DrawString(Text, New Font("Arial", 9), Brushes.White, New Point(5, 5)) 79 | End Sub 80 | 81 | End Class 82 | 83 | Class BionicButton 84 | Inherits Control 85 | 86 | #Region " Declarations " 87 | Private _State As MouseState = MouseState.None 88 | #End Region 89 | 90 | #Region " MouseStates " 91 | Protected Overrides Sub OnMouseEnter(e As EventArgs) 92 | MyBase.OnMouseEnter(e) 93 | _State = MouseState.Hover 94 | Invalidate() 95 | End Sub 96 | 97 | Protected Overrides Sub OnMouseLeave(e As EventArgs) 98 | MyBase.OnMouseLeave(e) 99 | _State = MouseState.None 100 | Invalidate() 101 | End Sub 102 | 103 | Protected Overrides Sub OnMouseDown(e As MouseEventArgs) 104 | MyBase.OnMouseDown(e) 105 | _State = MouseState.Down 106 | Invalidate() 107 | End Sub 108 | 109 | Protected Overrides Sub OnMouseUp(e As MouseEventArgs) 110 | MyBase.OnMouseUp(e) 111 | _State = MouseState.Hover 112 | Invalidate() 113 | End Sub 114 | #End Region 115 | 116 | Sub New() 117 | Size = New Size(90, 30) 118 | End Sub 119 | 120 | Protected Overrides Sub OnPaint(e As PaintEventArgs) 121 | MyBase.OnPaint(e) 122 | Dim G = e.Graphics 123 | G.Clear(Color.FromArgb(206, 145, 60)) 124 | G.FillRectangle(New LinearGradientBrush(New Point(1, 1), New Point(1, Height - 2), Color.FromArgb(252, 132, 19), Color.FromArgb(212, 75, 31)), New Rectangle(1, 1, Width - 2, Height - 2)) 125 | 126 | Select Case _State 127 | Case MouseState.Hover 128 | G.FillRectangle(New SolidBrush(Color.FromArgb(20, Color.White)), New Rectangle(1, 1, Width - 2, Height - 2)) 129 | Case MouseState.Down 130 | G.FillRectangle(New SolidBrush(Color.FromArgb(30, Color.Black)), New Rectangle(1, 1, Width - 2, Height - 2)) 131 | End Select 132 | 133 | Dim _StringF As New StringFormat 134 | _StringF.Alignment = StringAlignment.Center 135 | _StringF.LineAlignment = StringAlignment.Center 136 | G.DrawString(Text, New Font("Arial", 9), Brushes.White, New RectangleF(0, 0, Width, Height), _StringF) 137 | End Sub 138 | 139 | End Class 140 | 141 | 142 | Class BionicRadioButton 143 | Inherits Control 144 | 145 | #Region " Declarations " 146 | Private _State As MouseState = MouseState.None 147 | Private _Checked As Boolean 148 | #End Region 149 | 150 | #Region " Properties " 151 | Property Checked() As Boolean 152 | Get 153 | Return _Checked 154 | End Get 155 | Set(value As Boolean) 156 | _Checked = value 157 | InvalidateControls() 158 | RaiseEvent CheckedChanged(Me) 159 | Invalidate() 160 | End Set 161 | End Property 162 | Event CheckedChanged(ByVal sender As Object) 163 | Protected Overrides Sub OnClick(e As EventArgs) 164 | If Not _Checked Then Checked = True 165 | MyBase.OnClick(e) 166 | End Sub 167 | Private Sub InvalidateControls() 168 | If Not IsHandleCreated OrElse Not _Checked Then Return 169 | For Each C As Control In Parent.Controls 170 | If C IsNot Me AndAlso TypeOf C Is BionicRadioButton Then 171 | DirectCast(C, BionicRadioButton).Checked = False 172 | Invalidate() 173 | End If 174 | Next 175 | End Sub 176 | Protected Overrides Sub OnCreateControl() 177 | MyBase.OnCreateControl() 178 | InvalidateControls() 179 | End Sub 180 | 181 | 182 | Protected Overrides Sub OnResize(e As EventArgs) 183 | MyBase.OnResize(e) 184 | Height = 16 185 | End Sub 186 | 187 | #Region " Mouse States" 188 | 189 | Protected Overrides Sub OnMouseDown(e As MouseEventArgs) 190 | MyBase.OnMouseDown(e) 191 | _State = MouseState.Down : Invalidate() 192 | End Sub 193 | Protected Overrides Sub OnMouseUp(e As MouseEventArgs) 194 | MyBase.OnMouseUp(e) 195 | _State = MouseState.Hover : Invalidate() 196 | End Sub 197 | Protected Overrides Sub OnMouseEnter(e As EventArgs) 198 | MyBase.OnMouseEnter(e) 199 | _State = MouseState.Hover : Invalidate() 200 | End Sub 201 | Protected Overrides Sub OnMouseLeave(e As EventArgs) 202 | MyBase.OnMouseLeave(e) 203 | _State = MouseState.None : Invalidate() 204 | End Sub 205 | 206 | #End Region 207 | #End Region 208 | 209 | Protected Overrides Sub OnPaint(e As PaintEventArgs) 210 | MyBase.OnPaint(e) 211 | Dim G = e.Graphics 212 | G.SmoothingMode = 2 213 | G.TextRenderingHint = 5 214 | G.Clear(Parent.BackColor) 215 | 216 | G.FillEllipse(New SolidBrush(Color.FromArgb(29, 29, 29)), New Rectangle(0, 0, 15, 15)) 217 | Select Case _State 218 | Case MouseState.Hover 219 | G.FillEllipse(New SolidBrush(Color.FromArgb(5, Color.White)), New Rectangle(0, 0, 15, 15)) 220 | End Select 221 | If Checked Then 222 | G.FillEllipse(New LinearGradientBrush(New Point(4, 4), New Point(4, 11), Color.FromArgb(252, 132, 19), Color.FromArgb(212, 75, 31)), New Rectangle(4, 4, 7, 7)) 223 | End If 224 | G.DrawString(Text, New Font("Arial", 9), Brushes.White, New Point(18, 0)) 225 | End Sub 226 | 227 | End Class 228 | 229 | 230 | Class BionicCheckBox 231 | Inherits Control 232 | 233 | #Region " Declarations " 234 | Event CheckedChanged(ByVal sender As Object) 235 | Private _State As MouseState = MouseState.None 236 | Private _Checked As Boolean 237 | #End Region 238 | 239 | #Region " Properties " 240 | Public Property Checked() As Boolean 241 | Get 242 | Return _Checked 243 | End Get 244 | Set(ByVal value As Boolean) 245 | _Checked = value 246 | RaiseEvent CheckedChanged(Me) 247 | Invalidate() 248 | End Set 249 | End Property 250 | Protected Overrides Sub OnClick(e As EventArgs) 251 | MyBase.OnClick(e) 252 | If Not _Checked Then Checked = True 253 | End Sub 254 | 255 | Protected Overrides Sub OnResize(e As EventArgs) 256 | MyBase.OnResize(e) 257 | Height = 16 258 | End Sub 259 | 260 | #End Region 261 | 262 | Protected Overrides Sub OnPaint(e As PaintEventArgs) 263 | MyBase.OnPaint(e) 264 | Dim G = e.Graphics 265 | G.SmoothingMode = 2 266 | G.TextRenderingHint = 5 267 | G.Clear(Parent.BackColor) 268 | 269 | G.FillRectangle(New SolidBrush(Color.FromArgb(29, 29, 29)), New Rectangle(0, 0, 15, 15)) 270 | Select Case _State 271 | Case MouseState.Hover 272 | G.FillRectangle(New SolidBrush(Color.FromArgb(5, Color.White)), New Rectangle(0, 0, 15, 15)) 273 | End Select 274 | If Checked Then 275 | G.FillRectangle(New LinearGradientBrush(New Point(4, 4), New Point(4, 11), Color.FromArgb(252, 132, 19), Color.FromArgb(212, 75, 31)), New Rectangle(4, 4, 7, 7)) 276 | End If 277 | G.DrawString(Text, New Font("Arial", 9), Brushes.White, New Point(18, 0)) 278 | End Sub 279 | 280 | End Class 281 | 282 | Class BionicProgressBar 283 | Inherits Control 284 | 285 | #Region " Variables " 286 | 287 | Private _Value As Integer = 0 288 | Private _Maximum As Integer = 100 289 | 290 | #End Region 291 | 292 | #Region " Control " 293 | 294 | Public Property Maximum() As Integer 295 | Get 296 | Return _Maximum 297 | End Get 298 | Set(V As Integer) 299 | Select Case V 300 | Case Is < _Value 301 | _Value = V 302 | End Select 303 | _Maximum = V 304 | Invalidate() 305 | End Set 306 | End Property 307 | 308 | 309 | Public Property Value() As Integer 310 | Get 311 | Select Case _Value 312 | Case 0 313 | Return 0 314 | Invalidate() 315 | Case Else 316 | Return _Value 317 | Invalidate() 318 | End Select 319 | End Get 320 | Set(V As Integer) 321 | Select Case V 322 | Case Is > _Maximum 323 | V = _Maximum 324 | Invalidate() 325 | End Select 326 | _Value = V 327 | Invalidate() 328 | End Set 329 | End Property 330 | #End Region 331 | 332 | #Region " Events " 333 | Public Sub Increment(ByVal Amount As Integer) 334 | Value += Amount 335 | End Sub 336 | #End Region 337 | 338 | Sub New() 339 | SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.UserPaint Or _ 340 | ControlStyles.ResizeRedraw Or ControlStyles.OptimizedDoubleBuffer, True) 341 | DoubleBuffered = True 342 | End Sub 343 | 344 | Protected Overrides Sub OnPaint(e As PaintEventArgs) 345 | MyBase.OnPaint(e) 346 | Dim G = e.Graphics 347 | 348 | G.Clear(Color.FromArgb(206, 145, 60)) 349 | Dim ProgVal As Integer = CInt(_Value / _Maximum * Width) 350 | G.FillRectangle(New SolidBrush(Color.FromArgb(29, 29, 29)), New Rectangle(1, 1, Width - 2, Height - 2)) 351 | G.FillRectangle(New LinearGradientBrush(New Point(1, 1), New Point(1, Height - 1), Color.FromArgb(252, 132, 19), Color.FromArgb(212, 75, 31)), New Rectangle(1, 1, ProgVal - 2, Height - 2)) 352 | G.InterpolationMode = CType(7, InterpolationMode) 353 | 354 | End Sub 355 | End Class 356 | 357 | 358 | Class BionicTextBox 359 | Inherits Control 360 | 361 | #Region " Variables" 362 | 363 | Private _State As MouseState = MouseState.None 364 | Private WithEvents TB As Windows.Forms.TextBox 365 | 366 | #End Region 367 | 368 | #Region " Properties" 369 | 370 | 371 | Private _TextAlign As HorizontalAlignment = HorizontalAlignment.Left 372 | _ 373 | Property TextAlign() As HorizontalAlignment 374 | Get 375 | Return _TextAlign 376 | End Get 377 | Set(ByVal value As HorizontalAlignment) 378 | _TextAlign = value 379 | If TB IsNot Nothing Then 380 | TB.TextAlign = value 381 | End If 382 | End Set 383 | End Property 384 | Private _MaxLength As Integer = 32767 385 | _ 386 | Property MaxLength() As Integer 387 | Get 388 | Return _MaxLength 389 | End Get 390 | Set(ByVal value As Integer) 391 | _MaxLength = value 392 | If TB IsNot Nothing Then 393 | TB.MaxLength = value 394 | End If 395 | End Set 396 | End Property 397 | Private _ReadOnly As Boolean 398 | _ 399 | Property [ReadOnly]() As Boolean 400 | Get 401 | Return _ReadOnly 402 | End Get 403 | Set(ByVal value As Boolean) 404 | _ReadOnly = value 405 | If TB IsNot Nothing Then 406 | TB.ReadOnly = value 407 | End If 408 | End Set 409 | End Property 410 | Private _UseSystemPasswordChar As Boolean 411 | _ 412 | Property UseSystemPasswordChar() As Boolean 413 | Get 414 | Return _UseSystemPasswordChar 415 | End Get 416 | Set(ByVal value As Boolean) 417 | _UseSystemPasswordChar = value 418 | If TB IsNot Nothing Then 419 | TB.UseSystemPasswordChar = value 420 | End If 421 | End Set 422 | End Property 423 | Private _Multiline As Boolean 424 | _ 425 | Property Multiline() As Boolean 426 | Get 427 | Return _Multiline 428 | End Get 429 | Set(ByVal value As Boolean) 430 | _Multiline = value 431 | If TB IsNot Nothing Then 432 | TB.Multiline = value 433 | 434 | If value Then 435 | TB.Height = Height - 11 436 | Else 437 | Height = TB.Height + 11 438 | End If 439 | 440 | End If 441 | End Set 442 | End Property 443 | _ 444 | Overrides Property Text As String 445 | Get 446 | Return MyBase.Text 447 | End Get 448 | Set(ByVal value As String) 449 | MyBase.Text = value 450 | If TB IsNot Nothing Then 451 | TB.Text = value 452 | End If 453 | End Set 454 | End Property 455 | _ 456 | Overrides Property Font As Font 457 | Get 458 | Return MyBase.Font 459 | End Get 460 | Set(ByVal value As Font) 461 | MyBase.Font = value 462 | If TB IsNot Nothing Then 463 | TB.Font = value 464 | TB.Location = New Point(3, 5) 465 | TB.Width = Width - 6 466 | 467 | If Not _Multiline Then 468 | Height = TB.Height + 11 469 | End If 470 | End If 471 | End Set 472 | End Property 473 | 474 | Protected Overrides Sub OnCreateControl() 475 | MyBase.OnCreateControl() 476 | If Not Controls.Contains(TB) Then 477 | Controls.Add(TB) 478 | End If 479 | End Sub 480 | Private Sub OnBaseTextChanged(ByVal s As Object, ByVal e As EventArgs) 481 | Text = TB.Text 482 | End Sub 483 | Private Sub OnBaseKeyDown(ByVal s As Object, ByVal e As KeyEventArgs) 484 | If e.Control AndAlso e.KeyCode = Keys.A Then 485 | TB.SelectAll() 486 | e.SuppressKeyPress = True 487 | End If 488 | If e.Control AndAlso e.KeyCode = Keys.C Then 489 | TB.Copy() 490 | e.SuppressKeyPress = True 491 | End If 492 | End Sub 493 | Protected Overrides Sub OnResize(ByVal e As EventArgs) 494 | TB.Location = New Point(5, 5) 495 | TB.Width = Width - 10 496 | 497 | If _Multiline Then 498 | TB.Height = Height - 11 499 | Else 500 | Height = TB.Height + 11 501 | End If 502 | 503 | MyBase.OnResize(e) 504 | End Sub 505 | 506 | #End Region 507 | 508 | #Region " Mouse States" 509 | 510 | Protected Overrides Sub OnMouseDown(e As MouseEventArgs) 511 | MyBase.OnMouseDown(e) 512 | _State = MouseState.Down : Invalidate() 513 | End Sub 514 | Protected Overrides Sub OnMouseUp(e As MouseEventArgs) 515 | MyBase.OnMouseUp(e) 516 | _State = MouseState.Hover : TB.Focus() : Invalidate() 517 | End Sub 518 | Protected Overrides Sub OnMouseEnter(e As EventArgs) 519 | MyBase.OnMouseEnter(e) 520 | _State = MouseState.Hover : TB.Focus() : Invalidate() 521 | End Sub 522 | Protected Overrides Sub OnMouseLeave(e As EventArgs) 523 | MyBase.OnMouseLeave(e) 524 | _State = MouseState.None : Invalidate() 525 | End Sub 526 | 527 | #End Region 528 | 529 | 530 | Sub New() 531 | SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.UserPaint Or _ 532 | ControlStyles.ResizeRedraw Or ControlStyles.OptimizedDoubleBuffer Or _ 533 | ControlStyles.SupportsTransparentBackColor, True) 534 | DoubleBuffered = True 535 | 536 | BackColor = Color.Transparent 537 | 538 | TB = New Windows.Forms.TextBox 539 | TB.Font = New Font("Arial", 9) 540 | TB.Text = Text 541 | TB.BackColor = Color.FromArgb(29, 29, 29) 542 | TB.ForeColor = Color.White 543 | TB.MaxLength = _MaxLength 544 | TB.Multiline = _Multiline 545 | TB.ReadOnly = _ReadOnly 546 | TB.UseSystemPasswordChar = _UseSystemPasswordChar 547 | TB.BorderStyle = BorderStyle.None 548 | TB.Location = New Point(5, 5) 549 | TB.Width = Width - 10 550 | 551 | TB.Cursor = Cursors.IBeam 552 | 553 | If _Multiline Then 554 | TB.Height = Height - 11 555 | Else 556 | Height = TB.Height + 11 557 | End If 558 | 559 | AddHandler TB.TextChanged, AddressOf OnBaseTextChanged 560 | AddHandler TB.KeyDown, AddressOf OnBaseKeyDown 561 | End Sub 562 | 563 | Protected Overrides Sub OnPaint(e As PaintEventArgs) 564 | MyBase.OnPaint(e) 565 | Dim G = e.Graphics 566 | G.Clear(Color.FromArgb(29, 29, 29)) 567 | G.DrawRectangle(New Pen(Color.FromArgb(206, 145, 60)), New Rectangle(0, 0, Width - 1, Height - 1)) 568 | End Sub 569 | 570 | End Class 571 | 572 | Class BionicClose 573 | Inherits Control 574 | 575 | #Region " Declarations " 576 | Private _State As MouseState 577 | #End Region 578 | 579 | #Region " MouseStates " 580 | Protected Overrides Sub OnMouseEnter(e As EventArgs) 581 | MyBase.OnMouseEnter(e) 582 | _State = MouseState.Hover 583 | Invalidate() 584 | End Sub 585 | 586 | Protected Overrides Sub OnMouseLeave(e As EventArgs) 587 | MyBase.OnMouseLeave(e) 588 | _State = MouseState.None 589 | Invalidate() 590 | End Sub 591 | 592 | Protected Overrides Sub OnMouseDown(e As MouseEventArgs) 593 | MyBase.OnMouseDown(e) 594 | _State = MouseState.Down 595 | Invalidate() 596 | End Sub 597 | 598 | Protected Overrides Sub OnMouseUp(e As MouseEventArgs) 599 | MyBase.OnMouseUp(e) 600 | _State = MouseState.Hover 601 | Invalidate() 602 | End Sub 603 | 604 | Protected Overrides Sub OnClick(e As EventArgs) 605 | MyBase.OnClick(e) 606 | Environment.Exit(0) 607 | End Sub 608 | #End Region 609 | 610 | Protected Overrides Sub OnResize(e As EventArgs) 611 | MyBase.OnResize(e) 612 | Size = New Size(12, 12) 613 | End Sub 614 | 615 | Sub New() 616 | SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.UserPaint Or _ 617 | ControlStyles.ResizeRedraw Or ControlStyles.OptimizedDoubleBuffer, True) 618 | DoubleBuffered = True 619 | 620 | Size = New Size(12, 12) 621 | End Sub 622 | Protected Overrides Sub OnPaint(e As PaintEventArgs) 623 | MyBase.OnPaint(e) 624 | Dim G = e.Graphics 625 | 626 | G.Clear(Color.FromArgb(38, 38, 38)) 627 | G.FillRectangle(New SolidBrush(Color.FromArgb(29, 29, 29)), New Rectangle(0, Height / 2, Width, Height / 2)) 628 | 629 | 630 | Dim _StringF As New StringFormat 631 | _StringF.Alignment = StringAlignment.Center 632 | _StringF.LineAlignment = StringAlignment.Center 633 | 634 | G.DrawString("r", New Font("Marlett", 11), Brushes.White, New RectangleF(0, 0, Width, Height), _StringF) 635 | 636 | Select Case _State 637 | Case MouseState.Hover 638 | G.DrawString("r", New Font("Marlett", 11), New SolidBrush(Color.FromArgb(25, Color.White)), New RectangleF(0, 0, Width, Height), _StringF) 639 | 640 | Case MouseState.Down 641 | G.DrawString("r", New Font("Marlett", 11), New SolidBrush(Color.FromArgb(40, Color.Black)), New RectangleF(0, 0, Width, Height), _StringF) 642 | 643 | End Select 644 | 645 | End Sub 646 | 647 | End Class 648 | 649 | Class BionicMini 650 | Inherits Control 651 | 652 | #Region " Declarations " 653 | Private _State As MouseState 654 | #End Region 655 | 656 | #Region " MouseStates " 657 | Protected Overrides Sub OnMouseEnter(e As EventArgs) 658 | MyBase.OnMouseEnter(e) 659 | _State = MouseState.Hover 660 | Invalidate() 661 | End Sub 662 | 663 | Protected Overrides Sub OnMouseLeave(e As EventArgs) 664 | MyBase.OnMouseLeave(e) 665 | _State = MouseState.None 666 | Invalidate() 667 | End Sub 668 | 669 | Protected Overrides Sub OnMouseDown(e As MouseEventArgs) 670 | MyBase.OnMouseDown(e) 671 | _State = MouseState.Down 672 | Invalidate() 673 | End Sub 674 | 675 | Protected Overrides Sub OnMouseUp(e As MouseEventArgs) 676 | MyBase.OnMouseUp(e) 677 | _State = MouseState.Hover 678 | Invalidate() 679 | End Sub 680 | 681 | Protected Overrides Sub OnClick(e As EventArgs) 682 | MyBase.OnClick(e) 683 | FindForm.WindowState = FormWindowState.Minimized 684 | End Sub 685 | #End Region 686 | 687 | Protected Overrides Sub OnResize(e As EventArgs) 688 | MyBase.OnResize(e) 689 | Size = New Size(12, 12) 690 | End Sub 691 | 692 | Sub New() 693 | SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.UserPaint Or _ 694 | ControlStyles.ResizeRedraw Or ControlStyles.OptimizedDoubleBuffer Or ControlStyles.SupportsTransparentBackColor, True) 695 | DoubleBuffered = True 696 | Size = New Size(12, 12) 697 | End Sub 698 | Protected Overrides Sub OnPaint(e As PaintEventArgs) 699 | MyBase.OnPaint(e) 700 | Dim G = e.Graphics 701 | G.Clear(Color.FromArgb(38, 38, 38)) 702 | 703 | G.FillRectangle(New SolidBrush(Color.FromArgb(29, 29, 29)), New Rectangle(0, Height / 2, Width, Height / 2)) 704 | 705 | Dim _StringF As New StringFormat 706 | _StringF.Alignment = StringAlignment.Center 707 | _StringF.LineAlignment = StringAlignment.Center 708 | 709 | G.DrawString("0", New Font("Marlett", 11), Brushes.White, New RectangleF(0, 0, Width, Height), _StringF) 710 | 711 | Select Case _State 712 | Case MouseState.Hover 713 | G.DrawString("0", New Font("Marlett", 11), New SolidBrush(Color.FromArgb(25, Color.White)), New RectangleF(0, 0, Width, Height), _StringF) 714 | 715 | Case MouseState.Down 716 | G.DrawString("0", New Font("Marlett", 11), New SolidBrush(Color.FromArgb(40, Color.Black)), New RectangleF(0, 0, Width, Height), _StringF) 717 | 718 | End Select 719 | 720 | 721 | End Sub 722 | 723 | End Class -------------------------------------------------------------------------------- /Bionic/eMDOkit.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/VBTheme/729263e38ab40c4139b82e831cfe5eef85755ec0/Bionic/eMDOkit.png -------------------------------------------------------------------------------- /Bonfire Theme/Bonfire Theme.txt: -------------------------------------------------------------------------------- 1 | Imports System.Drawing.Drawing2D 2 | Imports System.ComponentModel 3 | 4 | Module Drawing 5 | 6 | Public Function RoundRect(ByVal rect As Rectangle, ByVal slope As Integer) As GraphicsPath 7 | Dim gp As GraphicsPath = New GraphicsPath() 8 | Dim arcWidth As Integer = slope * 2 9 | gp.AddArc(New Rectangle(rect.X, rect.Y, arcWidth, arcWidth), -180, 90) 10 | gp.AddArc(New Rectangle(rect.Width - arcWidth + rect.X, rect.Y, arcWidth, arcWidth), -90, 90) 11 | gp.AddArc(New Rectangle(rect.Width - arcWidth + rect.X, rect.Height - arcWidth + rect.Y, arcWidth, arcWidth), 0, 90) 12 | gp.AddArc(New Rectangle(rect.X, rect.Height - arcWidth + rect.Y, arcWidth, arcWidth), 90, 90) 13 | gp.CloseAllFigures() 14 | Return gp 15 | End Function 16 | 17 | End Module 18 | 19 | Class BonfireButton 20 | Inherits Control 21 | 22 | Enum Style 23 | Blue 24 | Dark 25 | Light 26 | End Enum 27 | 28 | Private _style As Style 29 | Public Property ButtonStyle() As Style 30 | Get 31 | Return _style 32 | End Get 33 | Set(ByVal value As Style) 34 | _style = value 35 | Invalidate() 36 | End Set 37 | End Property 38 | 39 | Private _image As Image 40 | Public Property Image() As Image 41 | Get 42 | Return _image 43 | End Get 44 | Set(ByVal value As Image) 45 | _image = value 46 | Invalidate() 47 | End Set 48 | End Property 49 | 50 | Private _rounded As Boolean 51 | Public Property RoundedCorners() As Boolean 52 | Get 53 | Return _rounded 54 | End Get 55 | Set(ByVal value As Boolean) 56 | _rounded = value 57 | Invalidate() 58 | End Set 59 | End Property 60 | 61 | Enum State 62 | None 63 | Over 64 | Down 65 | End Enum 66 | 67 | Private MouseState As State 68 | 69 | Sub New() 70 | SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.OptimizedDoubleBuffer Or _ 71 | ControlStyles.UserPaint Or ControlStyles.ResizeRedraw, True) 72 | MouseState = State.None 73 | Size = New Size(65, 26) 74 | Font = New Font("Verdana", 8) 75 | Cursor = Cursors.Hand 76 | End Sub 77 | 78 | Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs) 79 | MyBase.OnPaint(e) 80 | 81 | Dim G As Graphics = e.Graphics 82 | 83 | G.Clear(Parent.BackColor) 84 | G.SmoothingMode = Drawing2D.SmoothingMode.HighQuality 85 | 86 | Dim slope As Integer = 3 87 | 88 | Dim shadowRect As New Rectangle(0, 0, Width - 1, Height - 1) 89 | Dim shadowPath As GraphicsPath = RoundRect(shadowRect, slope) 90 | Dim mainRect As New Rectangle(0, 0, Width - 2, Height - 2) 91 | Select Case ButtonStyle 92 | Case Style.Blue 93 | If _rounded Then 94 | G.FillPath(New SolidBrush(Color.FromArgb(20, 135, 195)), shadowPath) 95 | G.FillPath(New SolidBrush(Color.FromArgb(20, 160, 230)), RoundRect(mainRect, slope)) 96 | Else 97 | G.FillRectangle(New SolidBrush(Color.FromArgb(20, 135, 195)), shadowRect) 98 | G.FillRectangle(New SolidBrush(Color.FromArgb(20, 160, 230)), mainRect) 99 | End If 100 | Case Style.Dark 101 | If _rounded Then 102 | G.FillPath(New SolidBrush(Color.FromArgb(45, 45, 45)), shadowPath) 103 | G.FillPath(New SolidBrush(Color.FromArgb(75, 75, 75)), RoundRect(mainRect, slope)) 104 | Else 105 | G.FillRectangle(New SolidBrush(Color.FromArgb(45, 45, 45)), shadowRect) 106 | G.FillRectangle(New SolidBrush(Color.FromArgb(75, 75, 75)), mainRect) 107 | End If 108 | Case Style.Light 109 | If _rounded Then 110 | G.FillPath(New SolidBrush(Color.FromArgb(145, 145, 145)), shadowPath) 111 | G.FillPath(New SolidBrush(Color.FromArgb(170, 170, 170)), RoundRect(mainRect, slope)) 112 | Else 113 | G.FillRectangle(New SolidBrush(Color.FromArgb(145, 145, 145)), shadowRect) 114 | G.FillRectangle(New SolidBrush(Color.FromArgb(170, 170, 170)), mainRect) 115 | End If 116 | End Select 117 | 118 | If _image Is Nothing Then 119 | Dim textX As Integer = ((Me.Width - 1) / 2) - (G.MeasureString(Text, Font).Width / 2) 120 | Dim textY As Integer = ((Me.Height - 1) / 2) - (G.MeasureString(Text, Font).Height / 2) 121 | G.DrawString(Text, Font, Brushes.White, textX, textY) 122 | Else 123 | Dim textSize As Size = New Size(G.MeasureString(Text, Font).Width, G.MeasureString(Text, Font).Height) 124 | Dim imageWidth As Integer = Me.Height - 19, imageHeight As Integer = Me.Height - 19 125 | Dim imageX As Integer = ((Me.Width - 1) / 2) - ((imageWidth + 4 + textSize.Width) / 2) 126 | Dim imageY As Integer = ((Me.Height - 1) / 2) - (imageHeight / 2) 127 | G.DrawImage(_image, imageX, imageY, imageWidth, imageHeight) 128 | G.DrawString(Text, Font, Brushes.White, New Point(imageX + imageWidth + 4, ((Me.Height - 1) / 2) - textSize.Height / 2)) 129 | End If 130 | 131 | If MouseState = State.Over Then 132 | G.FillPath(New SolidBrush(Color.FromArgb(25, Color.White)), shadowPath) 133 | ElseIf MouseState = State.Down Then 134 | G.FillPath(New SolidBrush(Color.FromArgb(40, Color.White)), shadowPath) 135 | End If 136 | 137 | End Sub 138 | 139 | Protected Overrides Sub OnMouseEnter(ByVal e As System.EventArgs) 140 | MyBase.OnMouseEnter(e) 141 | MouseState = State.Over 142 | Invalidate() 143 | End Sub 144 | 145 | Protected Overrides Sub OnMouseLeave(ByVal e As System.EventArgs) 146 | MyBase.OnMouseLeave(e) 147 | MouseState = State.None 148 | Invalidate() 149 | End Sub 150 | 151 | Protected Overrides Sub OnMouseUp(ByVal e As System.Windows.Forms.MouseEventArgs) 152 | MyBase.OnMouseUp(e) 153 | MouseState = State.Over 154 | Invalidate() 155 | End Sub 156 | 157 | Protected Overrides Sub OnMouseDown(ByVal e As System.Windows.Forms.MouseEventArgs) 158 | MyBase.OnMouseDown(e) 159 | MouseState = State.Down 160 | Invalidate() 161 | End Sub 162 | End Class 163 | 164 | Class BonfireTabControl 165 | Inherits TabControl 166 | 167 | Sub New() 168 | SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.ResizeRedraw Or _ 169 | ControlStyles.UserPaint Or ControlStyles.DoubleBuffer, True) 170 | ItemSize = New Size(0, 30) 171 | Font = New Font("Verdana", 8) 172 | End Sub 173 | 174 | Protected Overrides Sub CreateHandle() 175 | MyBase.CreateHandle() 176 | Alignment = TabAlignment.Top 177 | End Sub 178 | 179 | Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs) 180 | 181 | Dim G As Graphics = e.Graphics 182 | 183 | Dim borderPen As New Pen(Color.FromArgb(225, 225, 225)) 184 | 185 | G.SmoothingMode = SmoothingMode.HighQuality 186 | G.Clear(Parent.BackColor) 187 | 188 | Dim fillRect As New Rectangle(2, ItemSize.Height + 2, Width - 6, Height - ItemSize.Height - 3) 189 | G.FillRectangle(Brushes.White, fillRect) 190 | G.DrawRectangle(borderPen, fillRect) 191 | 192 | Dim FontColor As New Color 193 | 194 | For i = 0 To TabCount - 1 195 | 196 | Dim mainRect As Rectangle = GetTabRect(i) 197 | 198 | If i = SelectedIndex Then 199 | 200 | G.FillRectangle(New SolidBrush(Color.White), mainRect) 201 | G.DrawRectangle(borderPen, mainRect) 202 | G.DrawLine(New Pen(Color.FromArgb(20, 160, 230)), New Point(mainRect.X + 1, mainRect.Y), New Point(mainRect.X + mainRect.Width - 1, mainRect.Y)) 203 | G.DrawLine(Pens.White, New Point(mainRect.X + 1, mainRect.Y + mainRect.Height), New Point(mainRect.X + mainRect.Width - 1, mainRect.Y + mainRect.Height)) 204 | FontColor = Color.FromArgb(20, 160, 230) 205 | 206 | Else 207 | 208 | G.FillRectangle(New SolidBrush(Color.FromArgb(245, 245, 245)), mainRect) 209 | G.DrawRectangle(borderPen, mainRect) 210 | FontColor = Color.FromArgb(160, 160, 160) 211 | 212 | End If 213 | 214 | Dim titleX As Integer = (mainRect.Location.X + mainRect.Width / 2) - (G.MeasureString(TabPages(i).Text, Font).Width / 2) 215 | Dim titleY As Integer = (mainRect.Location.Y + mainRect.Height / 2) - (G.MeasureString(TabPages(i).Text, Font).Height / 2) 216 | G.DrawString(TabPages(i).Text, Font, New SolidBrush(FontColor), New Point(titleX, titleY)) 217 | 218 | Try : TabPages(i).BackColor = Color.White : Catch : End Try 219 | 220 | Next 221 | 222 | End Sub 223 | 224 | End Class 225 | 226 | Class BonfireGroupBox 227 | Inherits ContainerControl 228 | 229 | Sub New() 230 | SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.OptimizedDoubleBuffer Or _ 231 | ControlStyles.UserPaint Or ControlStyles.ResizeRedraw, True) 232 | BackColor = Color.FromArgb(250, 250, 250) 233 | End Sub 234 | 235 | Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs) 236 | MyBase.OnPaint(e) 237 | 238 | Dim G As Graphics = e.Graphics 239 | 240 | G.SmoothingMode = SmoothingMode.HighQuality 241 | G.Clear(Parent.BackColor) 242 | 243 | Dim mainRect As New Rectangle(0, 0, Width - 1, Height - 1) 244 | G.FillRectangle(New SolidBrush(Color.FromArgb(250, 250, 250)), mainRect) 245 | G.DrawRectangle(New Pen(Color.FromArgb(225, 225, 225)), mainRect) 246 | 247 | End Sub 248 | 249 | End Class 250 | 251 | Class BonfireLabelHeader 252 | Inherits Label 253 | 254 | Sub New() 255 | Font = New Font("Verdana", 10, FontStyle.Bold) 256 | End Sub 257 | 258 | End Class 259 | 260 | Class BonfireLabel 261 | Inherits Label 262 | 263 | Sub New() 264 | Font = New Font("Verdana", 8) 265 | ForeColor = Color.FromArgb(135, 135, 135) 266 | End Sub 267 | 268 | End Class 269 | 270 | Class BonfireProgressBar 271 | Inherits Control 272 | 273 | Private _Maximum As Integer = 100 274 | Public Property Maximum() As Integer 275 | Get 276 | Return _Maximum 277 | End Get 278 | Set(ByVal v As Integer) 279 | If v < 1 Then v = 1 280 | If v < _Value Then _Value = v 281 | _Maximum = v 282 | Invalidate() 283 | End Set 284 | End Property 285 | 286 | Private _Value As Integer 287 | Public Property Value() As Integer 288 | Get 289 | Return _Value 290 | End Get 291 | Set(ByVal v As Integer) 292 | If v > _Maximum Then v = Maximum 293 | _Value = v 294 | Invalidate() 295 | End Set 296 | End Property 297 | 298 | Sub New() 299 | SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.OptimizedDoubleBuffer Or _ 300 | ControlStyles.UserPaint Or ControlStyles.ResizeRedraw, True) 301 | Size = New Size(100, 40) 302 | End Sub 303 | 304 | Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs) 305 | MyBase.OnPaint(e) 306 | 307 | Dim G As Graphics = e.Graphics 308 | 309 | G.SmoothingMode = SmoothingMode.HighQuality 310 | G.Clear(Parent.BackColor) 311 | 312 | Dim mainRect As New Rectangle(0, 0, Width - 1, Height - 1) 313 | G.FillRectangle(New SolidBrush(Color.FromArgb(240, 240, 240)), mainRect) 314 | G.DrawLine(New Pen(Color.FromArgb(230, 230, 230)), New Point(mainRect.X, mainRect.Height), New Point(mainRect.Width, mainRect.Height)) 315 | 316 | Dim barRect As New Rectangle(0, 0, CInt(((Width / _Maximum) * _Value) - 1), Height - 1) 317 | G.FillRectangle(New SolidBrush(Color.FromArgb(20, 160, 230)), barRect) 318 | If _Value > 1 Then G.DrawLine(New Pen(Color.FromArgb(20, 140, 200)), New Point(barRect.X, barRect.Height), New Point(barRect.Width, barRect.Height)) 319 | 320 | Dim textX As Integer = 12 321 | Dim textY As Integer = ((Me.Height - 1) / 2) - (G.MeasureString(Text, Font).Height / 2) 322 | Dim percent As Single = (_Value / _Maximum) * 100 323 | Dim txt As String = Text & " " & CStr(percent) & "%" 324 | G.DrawString(txt, Font, New SolidBrush(Color.FromArgb(120, 120, 120)), New Point(textX + 1, textY + 1)) 325 | G.DrawString(txt, Font, Brushes.White, New Point(textX, textY)) 326 | 327 | End Sub 328 | 329 | End Class 330 | 331 | Class BonfireAlertBox 332 | Inherits Control 333 | 334 | Private exitLocation As Point 335 | Private overExit As Boolean 336 | 337 | Enum Style 338 | _Error 339 | _Success 340 | _Warning 341 | _Notice 342 | End Enum 343 | 344 | Private _alertStyle As Style 345 | Public Property AlertStyle() As Style 346 | Get 347 | Return _alertStyle 348 | End Get 349 | Set(ByVal value As Style) 350 | _alertStyle = value 351 | Invalidate() 352 | End Set 353 | End Property 354 | 355 | Sub New() 356 | SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.OptimizedDoubleBuffer Or _ 357 | ControlStyles.UserPaint Or ControlStyles.ResizeRedraw, True) 358 | Font = New Font("Verdana", 8) 359 | Size = New Size(200, 40) 360 | End Sub 361 | 362 | Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs) 363 | MyBase.OnPaint(e) 364 | 365 | Dim G As Graphics = e.Graphics 366 | 367 | G.SmoothingMode = SmoothingMode.HighQuality 368 | G.Clear(Parent.BackColor) 369 | 370 | Dim borderColor, innerColor, textColor As Color 371 | Select Case _alertStyle 372 | Case Style._Error 373 | borderColor = Color.FromArgb(250, 195, 195) 374 | innerColor = Color.FromArgb(255, 235, 235) 375 | textColor = Color.FromArgb(220, 90, 90) 376 | Case Style._Notice 377 | borderColor = Color.FromArgb(180, 215, 230) 378 | innerColor = Color.FromArgb(235, 245, 255) 379 | textColor = Color.FromArgb(80, 145, 180) 380 | Case Style._Success 381 | borderColor = Color.FromArgb(180, 220, 130) 382 | innerColor = Color.FromArgb(235, 245, 225) 383 | textColor = Color.FromArgb(95, 145, 45) 384 | Case Style._Warning 385 | borderColor = Color.FromArgb(220, 215, 140) 386 | innerColor = Color.FromArgb(250, 250, 220) 387 | textColor = Color.FromArgb(145, 135, 110) 388 | End Select 389 | 390 | Dim mainRect As New Rectangle(0, 0, Width - 1, Height - 1) 391 | G.FillRectangle(New SolidBrush(innerColor), mainRect) 392 | G.DrawRectangle(New Pen(borderColor), mainRect) 393 | 394 | Dim styleText As String = Nothing 395 | Select Case _alertStyle 396 | Case Style._Error 397 | styleText = "Error!" 398 | Case Style._Notice 399 | styleText = "Notice!" 400 | Case Style._Success 401 | styleText = "Success!" 402 | Case Style._Warning 403 | styleText = "Warning!" 404 | End Select 405 | 406 | Dim styleFont As New Font(Font.FontFamily, Font.Size, FontStyle.Bold) 407 | Dim textY As Integer = ((Me.Height - 1) / 2) - (G.MeasureString(Text, Font).Height / 2) 408 | G.DrawString(styleText, styleFont, New SolidBrush(textColor), New Point(10, textY)) 409 | G.DrawString(Text, Font, New SolidBrush(textColor), New Point(10 + G.MeasureString(styleText, styleFont).Width + 4, textY)) 410 | 411 | Dim exitFont As New Font("Marlett", 6) 412 | Dim exitY As Integer = ((Me.Height - 1) / 2) - (G.MeasureString("r", exitFont).Height / 2) + 1 413 | exitLocation = New Point(Width - 26, exitY - 3) 414 | G.DrawString("r", exitFont, New SolidBrush(textColor), New Point(Width - 23, exitY)) 415 | 416 | End Sub 417 | 418 | Protected Overrides Sub OnMouseMove(ByVal e As System.Windows.Forms.MouseEventArgs) 419 | MyBase.OnMouseMove(e) 420 | 421 | If e.X >= Width - 26 AndAlso e.X <= Width - 12 AndAlso e.Y > exitLocation.Y AndAlso e.Y < exitLocation.Y + 12 Then 422 | If Cursor <> Cursors.Hand Then Cursor = Cursors.Hand 423 | overExit = True 424 | Else 425 | If Cursor <> Cursors.Arrow Then Cursor = Cursors.Arrow 426 | overExit = False 427 | End If 428 | 429 | Invalidate() 430 | 431 | End Sub 432 | 433 | Protected Overrides Sub OnMouseDown(ByVal e As System.Windows.Forms.MouseEventArgs) 434 | MyBase.OnMouseDown(e) 435 | 436 | If overExit Then Me.Visible = False 437 | 438 | End Sub 439 | 440 | End Class 441 | 442 | Class BonfireCombo 443 | Inherits ComboBox 444 | 445 | Sub New() 446 | SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.OptimizedDoubleBuffer Or _ 447 | ControlStyles.UserPaint Or ControlStyles.ResizeRedraw Or _ 448 | ControlStyles.SupportsTransparentBackColor, True) 449 | Font = New Font("Verdana", 8) 450 | End Sub 451 | 452 | Protected Overrides Sub CreateHandle() 453 | MyBase.CreateHandle() 454 | 455 | DrawMode = Windows.Forms.DrawMode.OwnerDrawFixed 456 | DropDownStyle = ComboBoxStyle.DropDownList 457 | DoubleBuffered = True 458 | ItemHeight = 20 459 | 460 | End Sub 461 | 462 | Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs) 463 | MyBase.OnPaint(e) 464 | 465 | Dim G As Graphics = e.Graphics 466 | 467 | G.SmoothingMode = SmoothingMode.HighQuality 468 | G.Clear(Parent.BackColor) 469 | 470 | Dim mainRect As New Rectangle(0, 0, Width - 1, Height - 1) 471 | G.FillRectangle(Brushes.White, mainRect) 472 | G.DrawRectangle(New Pen(Color.FromArgb(225, 225, 225)), mainRect) 473 | 474 | Dim triangle As Point() = New Point() {New Point(Width - 14, 16), New Point(Width - 18, 10), New Point(Width - 10, 10)} 475 | G.FillPolygon(Brushes.DarkGray, triangle) 476 | G.DrawLine(New Pen(Color.FromArgb(225, 225, 225)), New Point(Width - 27, 0), New Point(Width - 27, Height - 1)) 477 | 478 | Try 479 | If Items.Count > 0 Then 480 | If Not SelectedIndex = -1 Then 481 | Dim textX As Integer = 6 482 | Dim textY As Integer = ((Me.Height - 1) / 2) - (G.MeasureString(Items(SelectedIndex), Font).Height / 2) + 1 483 | G.DrawString(Items(SelectedIndex), Font, Brushes.Gray, New Point(textX, textY)) 484 | Else 485 | Dim textX As Integer = 6 486 | Dim textY As Integer = ((Me.Height - 1) / 2) - (G.MeasureString(Items(0), Font).Height / 2) + 1 487 | G.DrawString(Items(0), Font, Brushes.Gray, New Point(textX, textY)) 488 | End If 489 | End If 490 | Catch : End Try 491 | 492 | End Sub 493 | 494 | Sub replaceItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles Me.DrawItem 495 | e.DrawBackground() 496 | 497 | Dim G As Graphics = e.Graphics 498 | G.SmoothingMode = SmoothingMode.HighQuality 499 | 500 | Dim rect As New Rectangle(e.Bounds.X - 1, e.Bounds.Y - 1, e.Bounds.Width + 1, e.Bounds.Height + 1) 501 | 502 | Try 503 | If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then 504 | G.FillRectangle(New SolidBrush(Color.FromArgb(20, 160, 230)), rect) 505 | G.DrawString(MyBase.GetItemText(MyBase.Items(e.Index)), Font, Brushes.White, New Rectangle(e.Bounds.X + 6, e.Bounds.Y + 3, e.Bounds.Width, e.Bounds.Height)) 506 | G.DrawRectangle(New Pen(Color.FromArgb(20, 160, 230)), rect) 507 | Else 508 | G.FillRectangle(Brushes.White, rect) 509 | G.DrawString(MyBase.GetItemText(MyBase.Items(e.Index)), Font, Brushes.DarkGray, New Rectangle(e.Bounds.X + 6, e.Bounds.Y + 3, e.Bounds.Width, e.Bounds.Height)) 510 | G.DrawRectangle(New Pen(Color.FromArgb(20, 160, 230)), rect) 511 | End If 512 | 513 | Catch : End Try 514 | 515 | End Sub 516 | 517 | Protected Overrides Sub OnSelectedItemChanged(ByVal e As System.EventArgs) 518 | MyBase.OnSelectedItemChanged(e) 519 | Invalidate() 520 | End Sub 521 | 522 | End Class 523 | 524 | Class BonfireCheckbox 525 | Inherits Control 526 | 527 | Event CheckedChanged(ByVal sender As Object) 528 | 529 | Private _checked As Boolean 530 | Public Property Checked() As Boolean 531 | Get 532 | Return _checked 533 | End Get 534 | Set(ByVal value As Boolean) 535 | _checked = value 536 | Invalidate() 537 | End Set 538 | End Property 539 | 540 | Sub New() 541 | SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.OptimizedDoubleBuffer Or _ 542 | ControlStyles.UserPaint Or ControlStyles.ResizeRedraw, True) 543 | Size = New Size(140, 20) 544 | Font = New Font("Verdana", 8) 545 | End Sub 546 | 547 | Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs) 548 | 549 | Dim G As Graphics = e.Graphics 550 | 551 | G.SmoothingMode = SmoothingMode.HighQuality 552 | G.Clear(Parent.BackColor) 553 | 554 | Dim box As New Rectangle(0, 0, Height, Height - 1) 555 | G.FillRectangle(Brushes.White, box) 556 | G.DrawRectangle(New Pen(Color.FromArgb(225, 225, 225)), box) 557 | 558 | Dim markPen As New Pen(Color.FromArgb(150, 155, 160)) 559 | Dim lightMarkPen As New Pen(Color.FromArgb(170, 175, 180)) 560 | If _checked Then G.DrawString("a", New Font("Marlett", 14), Brushes.Gray, New Point(0, 0)) 561 | 562 | Dim textY As Integer = (Height / 2) - (G.MeasureString(Text, Font).Height / 2) 563 | G.DrawString(Text, Font, Brushes.Gray, New Point(24, textY)) 564 | 565 | End Sub 566 | 567 | Protected Overrides Sub OnMouseDown(ByVal e As System.Windows.Forms.MouseEventArgs) 568 | MyBase.OnMouseDown(e) 569 | 570 | If _checked Then 571 | _checked = False 572 | Else 573 | _checked = True 574 | End If 575 | 576 | RaiseEvent CheckedChanged(Me) 577 | Invalidate() 578 | 579 | End Sub 580 | 581 | End Class 582 | 583 | Class BonfireRadioButton 584 | Inherits Control 585 | 586 | Event CheckedChanged(ByVal sender As Object) 587 | 588 | Private _checked As Boolean 589 | Public Property Checked() As Boolean 590 | Get 591 | Return _checked 592 | End Get 593 | Set(ByVal value As Boolean) 594 | _checked = value 595 | Invalidate() 596 | End Set 597 | End Property 598 | 599 | Sub New() 600 | SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.OptimizedDoubleBuffer Or _ 601 | ControlStyles.UserPaint Or ControlStyles.ResizeRedraw, True) 602 | Size = New Size(140, 20) 603 | Font = New Font("Verdana", 8) 604 | End Sub 605 | 606 | Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs) 607 | 608 | Dim G As Graphics = e.Graphics 609 | 610 | G.SmoothingMode = SmoothingMode.HighQuality 611 | G.Clear(Parent.BackColor) 612 | 613 | Dim box As New Rectangle(0, 0, Height - 1, Height - 1) 614 | G.FillEllipse(Brushes.White, box) 615 | G.DrawEllipse(New Pen(Color.FromArgb(225, 225, 225)), box) 616 | 617 | If _checked Then 618 | Dim innerMark As New Rectangle(6, 6, Height - 13, Height - 13) 619 | G.FillEllipse(New SolidBrush(Color.FromArgb(20, 160, 230)), innerMark) 620 | End If 621 | 622 | Dim textY As Integer = (Height / 2) - (G.MeasureString(Text, Font).Height / 2) 623 | G.DrawString(Text, Font, Brushes.Gray, New Point(24, textY)) 624 | 625 | End Sub 626 | 627 | Protected Overrides Sub OnMouseDown(ByVal e As System.Windows.Forms.MouseEventArgs) 628 | MyBase.OnMouseDown(e) 629 | 630 | For Each C As Control In Parent.Controls 631 | If C IsNot Me AndAlso TypeOf C Is BonfireRadioButton Then 632 | DirectCast(C, BonfireRadioButton).Checked = False 633 | End If 634 | Next 635 | 636 | If _checked Then 637 | _checked = False 638 | Else 639 | _checked = True 640 | End If 641 | 642 | RaiseEvent CheckedChanged(Me) 643 | Invalidate() 644 | 645 | End Sub 646 | 647 | End Class -------------------------------------------------------------------------------- /Bonfire Theme/yRIWTT0.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/VBTheme/729263e38ab40c4139b82e831cfe5eef85755ec0/Bonfire Theme/yRIWTT0.png -------------------------------------------------------------------------------- /Booster/Booster Theme.txt: -------------------------------------------------------------------------------- 1 | Imports System, System.IO, System.Collections.Generic 2 | Imports System.Drawing, System.Drawing.Drawing2D 3 | Imports System.ComponentModel, System.Windows.Forms 4 | Imports System.Runtime.InteropServices 5 | Imports System.Drawing.Imaging 6 | 7 | '------------------ 8 | 'Creator: dlwhdrlf 9 | 'Created: 19/12/2011 10 | 'Version: 1.0.0 11 | '------------------ 12 | Class BoosterTheme 13 | Inherits ThemeContainer154 14 | Sub New() 15 | TransparencyKey = Color.Fuchsia 16 | BackColor = Color.FromArgb(51, 51, 51) 17 | Header = 25 18 | End Sub 19 | Protected Overrides Sub ColorHook() 20 | 21 | End Sub 22 | 23 | Protected Overrides Sub PaintHook() 24 | G.Clear(Color.FromArgb(51, 51, 51)) 25 | DrawGradient(Color.FromArgb(29, 29, 29), Color.FromArgb(65, 65, 65), 0, 28, Width, (Height \ 2) - 10) 26 | DrawGradient(Color.FromArgb(87, 87, 87), Color.FromArgb(49, 49, 49), 0, 0, Width, 25) 27 | G.DrawLine(Pens.Black, 0, 25, Width, 25) 28 | 29 | G.DrawLine(New Pen(Color.FromArgb(192, 74, 74)), 0, 26, Width, 26) 30 | G.FillRectangle(New SolidBrush(Color.FromArgb(169, 0, 0)), 0, 27, Width, 27) 31 | G.FillRectangle(New SolidBrush(Color.FromArgb(45, Color.White)), 0, 27, Width, 13) 32 | 33 | G.DrawLine(New Pen(Color.FromArgb(38, 38, 38)), 0, Height - 25, Width, Height - 25) 34 | G.DrawLine(New Pen(Color.FromArgb(64, 64, 64)), 0, Height - 24, Width, Height - 24) 35 | 36 | DrawBorders(Pens.Black) 37 | DrawBorders(New Pen(Color.FromArgb(92, 92, 92)), 1) 38 | 39 | DrawCorners(Color.Fuchsia) 40 | DrawText(Brushes.Black, HorizontalAlignment.Center, 0, 0) 41 | DrawText(Brushes.White, HorizontalAlignment.Center, 0, 1) 42 | End Sub 43 | End Class 44 | 45 | '------------------ 46 | 'Creator: dlwhdrlf 47 | 'Created: 19/12/2011 48 | 'Version: 1.0.0 49 | '------------------ 50 | Class BoosterTopButton 51 | Inherits ThemeControl154 52 | Sub New() 53 | Transparent = True 54 | BackColor = Color.Transparent 55 | End Sub 56 | Protected Overrides Sub ColorHook() 57 | 58 | End Sub 59 | 60 | Protected Overrides Sub PaintHook() 61 | 62 | DrawGradient(Color.FromArgb(141, 141, 141), Color.FromArgb(23, 23, 23), 0, 0, Width, Height, 45) 63 | DrawBorders(New Pen(Color.FromArgb(41, 41, 41)), 0) 64 | DrawBorders(New Pen(Color.FromArgb(41, 41, 41)), 1) 65 | DrawBorders(Pens.Black, 2) 66 | G.DrawLine(New Pen(Color.FromArgb(100, 100, 100)), 0, Height - 1, Width, Height - 1) 67 | DrawGradient(Color.FromArgb(41, 41, 41), Color.FromArgb(100, 100, 100), 0, 0, 1, Height) 68 | DrawGradient(Color.FromArgb(41, 41, 41), Color.FromArgb(100, 100, 100), Width - 1, 0, Width, Height) 69 | DrawCorners(BackColor) 70 | DrawCorners(Color.FromArgb(41, 41, 41), 2) 71 | 72 | If State = MouseState.Over Then 73 | DrawGradient(Color.FromArgb(255, 255, 255), Color.FromArgb(23, 23, 23), 0, 0, Width, Height, 45) 74 | DrawBorders(New Pen(Color.FromArgb(41, 41, 41)), 0) 75 | DrawBorders(New Pen(Color.FromArgb(41, 41, 41)), 1) 76 | DrawBorders(Pens.Black, 2) 77 | G.DrawLine(New Pen(Color.FromArgb(100, 100, 100)), 0, Height - 1, Width, Height - 1) 78 | DrawGradient(Color.FromArgb(41, 41, 41), Color.FromArgb(100, 100, 100), 0, 0, 1, Height) 79 | DrawGradient(Color.FromArgb(41, 41, 41), Color.FromArgb(100, 100, 100), Width - 1, 0, Width, Height) 80 | DrawCorners(BackColor) 81 | DrawCorners(Color.FromArgb(41, 41, 41), 2) 82 | ElseIf State = MouseState.Down Then 83 | DrawGradient(Color.FromArgb(100, 100, 100), Color.FromArgb(23, 23, 23), 0, 0, Width, Height, 45) 84 | DrawBorders(New Pen(Color.FromArgb(41, 41, 41)), 0) 85 | DrawBorders(New Pen(Color.FromArgb(41, 41, 41)), 1) 86 | DrawBorders(Pens.Black, 2) 87 | G.DrawLine(New Pen(Color.FromArgb(100, 100, 100)), 0, Height - 1, Width, Height - 1) 88 | DrawGradient(Color.FromArgb(41, 41, 41), Color.FromArgb(100, 100, 100), 0, 0, 1, Height) 89 | DrawGradient(Color.FromArgb(41, 41, 41), Color.FromArgb(100, 100, 100), Width - 1, 0, Width, Height) 90 | DrawCorners(BackColor) 91 | DrawCorners(Color.FromArgb(41, 41, 41), 2) 92 | Else 93 | End If 94 | End Sub 95 | End Class 96 | 97 | '------------------ 98 | 'Creator: dlwhdrlf 99 | 'Created: 19/12/2011 100 | 'Version: 1.0.0 101 | '------------------ 102 | Class BoosterButton 103 | Inherits ThemeControl154 104 | Sub New() 105 | Transparent = True 106 | BackColor = Color.Transparent 107 | End Sub 108 | Protected Overrides Sub ColorHook() 109 | 110 | End Sub 111 | 112 | Protected Overrides Sub PaintHook() 113 | 114 | DrawGradient(Color.FromArgb(0, 0, 0), Color.FromArgb(95, 0, 0), 0, 2, Width \ 2, Height \ 2, 45) 115 | DrawGradient(Color.FromArgb(95, 0, 0), Color.FromArgb(0, 0, 0), Width \ 2, 2, Width - 15, Height \ 2, -45) 116 | DrawGradient(Color.FromArgb(0, 0, 0), Color.FromArgb(95, 0, 0), 0, Height \ 2, Width \ 2, Height, 45) 117 | DrawGradient(Color.FromArgb(95, 0, 0), Color.FromArgb(0, 0, 0), Width \ 2, Height \ 2, Width, Height \ 2, 315) 118 | 119 | 120 | DrawBorders(Pens.Black, 0) 121 | DrawBorders(Pens.Black, 1) 122 | DrawBorders(New Pen(Color.FromArgb(95, 0, 0)), 3) 123 | G.DrawLine(New Pen(Color.FromArgb(93, 93, 93)), 3, 3, Width - 5, 3) 124 | G.DrawLine(New Pen(Color.FromArgb(73, 73, 73)), 0, Height - 1, Width, Height - 1) 125 | DrawGradient(Color.FromArgb(0, 0, 0), Color.FromArgb(73, 73, 73), 0, 0, 1, Height) 126 | DrawGradient(Color.FromArgb(0, 0, 0), Color.FromArgb(73, 73, 73), Width - 1, 0, 1, Height) 127 | 128 | If State = MouseState.Over Then 129 | DrawGradient(Color.FromArgb(0, 0, 0), Color.FromArgb(95, 0, 0), 0, 2, Width \ 2, Height \ 2, 45) 130 | DrawGradient(Color.FromArgb(95, 0, 0), Color.FromArgb(0, 0, 0), Width \ 2, 2, Width - 15, Height \ 2, -45) 131 | DrawGradient(Color.FromArgb(0, 0, 0), Color.FromArgb(95, 0, 0), 0, Height \ 2, Width \ 2, Height, 45) 132 | DrawGradient(Color.FromArgb(95, 0, 0), Color.FromArgb(0, 0, 0), Width \ 2, Height \ 2, Width, Height \ 2, 315) 133 | G.FillRectangle(New SolidBrush(Color.FromArgb(13, Color.White)), 0, 0, Width, (Height \ 2) - 7) 134 | DrawBorders(Pens.Black, 0) 135 | DrawBorders(Pens.Black, 1) 136 | DrawBorders(New Pen(Color.FromArgb(95, 0, 0)), 3) 137 | G.DrawLine(New Pen(Color.FromArgb(93, 93, 93)), 3, 3, Width - 5, 3) 138 | G.DrawLine(New Pen(Color.FromArgb(73, 73, 73)), 0, Height - 1, Width, Height - 1) 139 | DrawGradient(Color.FromArgb(0, 0, 0), Color.FromArgb(73, 73, 73), 0, 0, 1, Height) 140 | DrawGradient(Color.FromArgb(0, 0, 0), Color.FromArgb(73, 73, 73), Width - 1, 0, 1, Height) 141 | ElseIf State = MouseState.Down Then 142 | DrawGradient(Color.FromArgb(0, 0, 0), Color.FromArgb(95, 0, 0), 0, 2, Width \ 2, Height \ 2, 45) 143 | DrawGradient(Color.FromArgb(95, 0, 0), Color.FromArgb(0, 0, 0), Width \ 2, 2, Width - 15, Height \ 2, -45) 144 | DrawGradient(Color.FromArgb(0, 0, 0), Color.FromArgb(95, 0, 0), 0, Height \ 2, Width \ 2, Height, 45) 145 | DrawGradient(Color.FromArgb(95, 0, 0), Color.FromArgb(0, 0, 0), Width \ 2, Height \ 2, Width, Height \ 2, 315) 146 | G.FillRectangle(New SolidBrush(Color.FromArgb(20, Color.Black)), 0, 0, Width, (Height \ 2) - 7) 147 | DrawBorders(Pens.Black, 0) 148 | DrawBorders(Pens.Black, 1) 149 | DrawBorders(New Pen(Color.FromArgb(95, 0, 0)), 3) 150 | G.DrawLine(New Pen(Color.FromArgb(93, 93, 93)), 3, 3, Width - 5, 3) 151 | G.DrawLine(New Pen(Color.FromArgb(73, 73, 73)), 0, Height - 1, Width, Height - 1) 152 | DrawGradient(Color.FromArgb(0, 0, 0), Color.FromArgb(73, 73, 73), 0, 0, 1, Height) 153 | DrawGradient(Color.FromArgb(0, 0, 0), Color.FromArgb(73, 73, 73), Width - 1, 0, 1, Height) 154 | Else 155 | End If 156 | 157 | DrawCorners(BackColor) 158 | DrawText(Brushes.White, HorizontalAlignment.Center, 0, 0) 159 | 160 | End Sub 161 | End Class 162 | 163 | '------------------ 164 | 'Creator: dlwhdrlf 165 | 'Created: 19/12/2011 166 | 'Version: 1.0.0 167 | '------------------ 168 | Class BoosterRedButton 169 | Inherits ThemeControl154 170 | Sub New() 171 | Transparent = True 172 | BackColor = Color.Transparent 173 | End Sub 174 | Protected Overrides Sub ColorHook() 175 | 176 | End Sub 177 | 178 | Protected Overrides Sub PaintHook() 179 | DrawGradient(Color.FromArgb(175, 26, 26), Color.FromArgb(124, 0, 0), 0, 0, Width, Height) 180 | DrawText(Brushes.White, HorizontalAlignment.Center, 0, 0) 181 | G.FillRectangle(New SolidBrush(Color.FromArgb(30, Color.White)), 0, 0, Width, Height \ 2) 182 | DrawBorders(New Pen(Color.FromArgb(105, 0, 0)), 0) 183 | DrawBorders(New Pen(Color.FromArgb(199, 26, 26)), 1) 184 | 185 | 186 | If State = MouseState.Over Then 187 | G.FillRectangle(New SolidBrush(Color.FromArgb(30, Color.White)), 0, 0, Width, Height) 188 | ElseIf State = MouseState.Down Then 189 | DrawGradient(Color.FromArgb(45, 45, 45), Color.FromArgb(0, 0, 0), 0, 0, Width, Height) 190 | DrawText(Brushes.White, HorizontalAlignment.Center, 0, 0) 191 | G.FillRectangle(New SolidBrush(Color.FromArgb(15, Color.White)), 0, 0, Width, Height \ 2) 192 | DrawBorders(Pens.Black) 193 | DrawBorders(New Pen(Color.FromArgb(73, 73, 73)), 1) 194 | Else 195 | End If 196 | 197 | 198 | DrawCorners(BackColor) 199 | End Sub 200 | End Class 201 | 202 | '------------------ 203 | 'Creator: dlwhdrlf 204 | 'Created: 19/12/2011 205 | 'Version: 1.0.0 206 | '------------------ 207 | Class BossterMixedButton 208 | Inherits ThemeControl154 209 | Sub New() 210 | Transparent = True 211 | BackColor = Color.Transparent 212 | End Sub 213 | Protected Overrides Sub ColorHook() 214 | 215 | End Sub 216 | 217 | Protected Overrides Sub PaintHook() 218 | DrawGradient(Color.FromArgb(59, 59, 59), Color.FromArgb(24, 24, 24), 0, 0, Width, Height) 219 | DrawGradient(Color.FromArgb(204, 37, 37), Color.FromArgb(104, 2, 2), 0, 0, (Width \ 5) + 8, Height) 220 | G.FillRectangle(New SolidBrush(Color.FromArgb(20, Color.White)), 0, 0, Width, Height \ 2) 221 | 222 | DrawBorders(New Pen(Color.FromArgb(216, 70, 70)), 1) 223 | G.DrawLine(New Pen(Color.FromArgb(151, 36, 36)), (Width \ 5) + 7, 1, (Width \ 5) + 7, Height - 1) 224 | G.DrawLine(New Pen(Color.FromArgb(64, 64, 64)), (Width \ 5) + 8, 1, (Width \ 5) + 8, Height - 1) 225 | G.DrawLine(New Pen(Color.FromArgb(87, 87, 87)), (Width \ 5) + 8, 1, Width, 1) 226 | G.DrawLine(New Pen(Color.FromArgb(87, 87, 87)), Width - 2, 1, Width - 2, Height - 1) 227 | G.DrawLine(New Pen(Color.FromArgb(87, 87, 87)), (Width \ 5) + 8, Height - 2, Width, Height - 2) 228 | DrawBorders(Pens.Black) 229 | DrawCorners(BackColor) 230 | 231 | If State = MouseState.Over Then 232 | G.FillRectangle(New SolidBrush(Color.FromArgb(30, Color.White)), (Width \ 5) + 8, 0, Width, Height) 233 | DrawBorders(New Pen(Color.FromArgb(216, 70, 70)), 1) 234 | G.DrawLine(New Pen(Color.FromArgb(151, 36, 36)), (Width \ 5) + 7, 1, (Width \ 5) + 7, Height - 1) 235 | G.DrawLine(New Pen(Color.FromArgb(64, 64, 64)), (Width \ 5) + 8, 1, (Width \ 5) + 8, Height - 1) 236 | G.DrawLine(New Pen(Color.FromArgb(87, 87, 87)), (Width \ 5) + 8, 1, Width, 1) 237 | G.DrawLine(New Pen(Color.FromArgb(87, 87, 87)), Width - 2, 1, Width - 2, Height - 1) 238 | G.DrawLine(New Pen(Color.FromArgb(87, 87, 87)), (Width \ 5) + 8, Height - 2, Width, Height - 2) 239 | DrawBorders(Pens.Black) 240 | ElseIf State = MouseState.Down Then 241 | DrawGradient(Color.FromArgb(45, 45, 45), Color.FromArgb(0, 0, 0), (Width \ 5) + 8, 0, Width, Height) 242 | G.FillRectangle(New SolidBrush(Color.FromArgb(15, Color.White)), (Width \ 5) + 8, 0, Width, Height \ 2) 243 | DrawBorders(New Pen(Color.FromArgb(216, 70, 70)), 1) 244 | G.DrawLine(New Pen(Color.FromArgb(151, 36, 36)), (Width \ 5) + 7, 1, (Width \ 5) + 7, Height - 1) 245 | G.DrawLine(New Pen(Color.FromArgb(64, 64, 64)), (Width \ 5) + 8, 1, (Width \ 5) + 8, Height - 1) 246 | G.DrawLine(New Pen(Color.FromArgb(87, 87, 87)), (Width \ 5) + 8, 1, Width, 1) 247 | G.DrawLine(New Pen(Color.FromArgb(87, 87, 87)), Width - 2, 1, Width - 2, Height - 1) 248 | G.DrawLine(New Pen(Color.FromArgb(87, 87, 87)), (Width \ 5) + 8, Height - 2, Width, Height - 2) 249 | DrawBorders(Pens.Black) 250 | Else 251 | End If 252 | 253 | DrawText(Brushes.White, HorizontalAlignment.Center, 8, 0) 254 | End Sub 255 | End Class 256 | 257 | '------------------ 258 | 'Creator: dlwhdrlf 259 | 'Created: 19/12/2011 260 | 'Version: 1.0.0 261 | '------------------ 262 | Class BoosterProgressbar 263 | Inherits ThemeControl154 264 | 265 | Private _Value As Integer 266 | Property Value() As Integer 267 | Get 268 | Return _Value 269 | End Get 270 | Set(ByVal value As Integer) 271 | If value > _Maximum Then value = _Maximum 272 | If value < 0 Then value = 0 273 | 274 | _Value = value 275 | Invalidate() 276 | End Set 277 | End Property 278 | 279 | Private _Maximum As Integer = 100 280 | Property Maximum() As Integer 281 | Get 282 | Return _Maximum 283 | End Get 284 | Set(ByVal value As Integer) 285 | If value < 1 Then value = 1 286 | If _Value > value Then _Value = value 287 | 288 | _Maximum = value 289 | Invalidate() 290 | End Set 291 | End Property 292 | 293 | Sub New() 294 | Transparent = True 295 | BackColor = Color.Transparent 296 | End Sub 297 | 298 | Protected Overrides Sub ColorHook() 299 | 300 | End Sub 301 | 302 | Protected Overrides Sub PaintHook() 303 | G.Clear(BackColor) 304 | 305 | DrawGradient(Color.FromArgb(226, 226, 226), Color.FromArgb(168, 168, 168), 0, 0, CInt((_Value / _Maximum) * Width - 1), Height) 306 | G.DrawLine(Pens.White, 0, 2, CInt((_Value / _Maximum) * Width - 2), 2) 307 | 308 | CreateRound(0, 0, Width, Height, 5) 309 | DrawBorders(Pens.Black) 310 | DrawBorders(New Pen(Color.FromArgb(92, 92, 92)), 1) 311 | DrawCorners(BackColor) 312 | End Sub 313 | End Class 314 | 315 | '------------------ 316 | 'Creator: dlwhdrlf 317 | 'Created: 19/12/2011 318 | 'Version: 1.0.0 319 | '------------------ 320 | Class BoosterGreyProgressbar 321 | Inherits ThemeControl154 322 | 323 | Private _Value As Integer 324 | Property Value() As Integer 325 | Get 326 | Return _Value 327 | End Get 328 | Set(ByVal value As Integer) 329 | If value > _Maximum Then value = _Maximum 330 | If value < 0 Then value = 0 331 | 332 | _Value = value 333 | Invalidate() 334 | End Set 335 | End Property 336 | 337 | Private _Maximum As Integer = 100 338 | Property Maximum() As Integer 339 | Get 340 | Return _Maximum 341 | End Get 342 | Set(ByVal value As Integer) 343 | If value < 1 Then value = 1 344 | If _Value > value Then _Value = value 345 | 346 | _Maximum = value 347 | Invalidate() 348 | End Set 349 | End Property 350 | 351 | Sub New() 352 | Transparent = True 353 | BackColor = Color.Transparent 354 | End Sub 355 | 356 | Protected Overrides Sub ColorHook() 357 | 358 | End Sub 359 | 360 | Protected Overrides Sub PaintHook() 361 | G.Clear(BackColor) 362 | 363 | DrawGradient(Color.FromArgb(129, 129, 129), Color.FromArgb(75, 75, 75), 0, 0, CInt((_Value / _Maximum) * Width - 1), Height) 364 | G.DrawLine(New Pen(Color.FromArgb(182, 182, 182)), 0, 2, CInt((_Value / _Maximum) * Width - 2), 2) 365 | 366 | CreateRound(0, 0, Width, Height, 5) 367 | DrawBorders(Pens.Black) 368 | DrawBorders(New Pen(Color.FromArgb(91, 91, 91)), 1) 369 | DrawCorners(BackColor) 370 | End Sub 371 | End Class 372 | 373 | '------------------ 374 | 'Creator: dlwhdrlf 375 | 'Created: 19/12/2011 376 | 'Version: 1.0.0 377 | '------------------ 378 | Class BoosterRedProgressbar 379 | Inherits ThemeControl154 380 | 381 | Private _Value As Integer 382 | Property Value() As Integer 383 | Get 384 | Return _Value 385 | End Get 386 | Set(ByVal value As Integer) 387 | If value > _Maximum Then value = _Maximum 388 | If value < 0 Then value = 0 389 | 390 | _Value = value 391 | Invalidate() 392 | End Set 393 | End Property 394 | 395 | Private _Maximum As Integer = 100 396 | Property Maximum() As Integer 397 | Get 398 | Return _Maximum 399 | End Get 400 | Set(ByVal value As Integer) 401 | If value < 1 Then value = 1 402 | If _Value > value Then _Value = value 403 | 404 | _Maximum = value 405 | Invalidate() 406 | End Set 407 | End Property 408 | 409 | Sub New() 410 | Transparent = True 411 | BackColor = Color.Transparent 412 | End Sub 413 | 414 | Protected Overrides Sub ColorHook() 415 | 416 | End Sub 417 | 418 | Protected Overrides Sub PaintHook() 419 | G.Clear(Color.FromArgb(66, 0, 0)) 420 | 421 | G.FillRectangle(New SolidBrush(Color.FromArgb(204, 0, 0)), 0, 0, CInt((_Value / _Maximum) * Width - 1), Height) 422 | 423 | CreateRound(0, 0, Width, Height, 5) 424 | G.DrawLine(New Pen(Color.FromArgb(32, 32, 32)), 0, 1, Width, 1) 425 | DrawBorders(New Pen(Color.FromArgb(70, 70, 70)), 0) 426 | G.DrawLine(New Pen(Color.FromArgb(138, 139, 138)), 0, Height - 1, Width, Height - 1) 427 | DrawGradient(Color.FromArgb(70, 70, 70), Color.FromArgb(138, 139, 138), 0, 0, 1, Height) 428 | DrawGradient(Color.FromArgb(70, 70, 70), Color.FromArgb(138, 139, 138), Width - 1, 0, Width, Height) 429 | End Sub 430 | End Class 431 | 432 | '------------------ 433 | 'Creator: dlwhdrlf 434 | 'Created: 19/12/2011 435 | 'Version: 1.0.0 436 | '------------------ 437 | Class BoosterControlpanel 438 | Inherits ThemeContainer154 439 | 440 | Sub New() 441 | ControlMode = True 442 | Transparent = True 443 | BackColor = Color.Transparent 444 | Header = 20 445 | End Sub 446 | Protected Overrides Sub ColorHook() 447 | 448 | End Sub 449 | 450 | Protected Overrides Sub PaintHook() 451 | G.Clear(Color.FromArgb(51, 51, 51)) 452 | DrawGradient(Color.FromArgb(0, 0, 0), Color.FromArgb(52, 0, 0), 0, 0, Width, 20) 453 | 454 | G.DrawLine(New Pen(Color.FromArgb(92, 92, 92)), 0, 21, Width, 21) 455 | G.DrawLine(Pens.Black, 0, 20, Width, 20) 456 | DrawBorders(Pens.Black) 457 | 458 | DrawText(Brushes.White, HorizontalAlignment.Left, 8, 3) 459 | 460 | DrawBorders(New Pen(Color.FromArgb(92, 92, 92)), 1) 461 | End Sub 462 | End Class 463 | 464 | '------------------ 465 | 'Creator: dlwhdrlf 466 | 'Created: 19/12/2011 467 | 'Version: 1.0.0 468 | '------------------ 469 | _ 470 | Class BoosterCheckBox 471 | Inherits ThemeControl154 472 | 473 | Sub New() 474 | Transparent = True 475 | BackColor = Color.Transparent 476 | LockHeight = 15 477 | End Sub 478 | Protected Overrides Sub ColorHook() 479 | 480 | End Sub 481 | 482 | Protected Overrides Sub PaintHook() 483 | Dim CheckRectangle As New Rectangle(1, 1, Height - 2, Height - 2) 484 | 485 | G.Clear(BackColor) 486 | 487 | 488 | 489 | 490 | Select Case _Checked 491 | Case True 492 | G.FillRectangle(New SolidBrush(Color.FromArgb(129, 10, 10)), CheckRectangle) 493 | G.FillRectangle(New SolidBrush(Color.FromArgb(30, Color.White)), 1, 1, Height - 2, Height \ 2) 494 | Case False 495 | G.FillRectangle(New SolidBrush(Color.FromArgb(51, 28, 28)), CheckRectangle) 496 | End Select 497 | 498 | G.DrawRectangle(New Pen(Color.FromArgb(92, 92, 92)), 2, 2, Height - 4, Height - 4) 499 | G.DrawRectangle(Pens.Black, CheckRectangle) 500 | 501 | DrawText(Brushes.White, HorizontalAlignment.Left, 18, 1) 502 | End Sub 503 | 504 | 505 | Private Property _Checked As Boolean = False 506 | Property Checked() As Boolean 507 | Get 508 | Return _Checked 509 | End Get 510 | Set(ByVal v As Boolean) 511 | _Checked = v 512 | End Set 513 | End Property 514 | Protected Overrides Sub OnClick(ByVal e As System.EventArgs) 515 | _Checked = Not _Checked 516 | RaiseEvent CheckedChanged(Me) 517 | MyBase.OnClick(e) 518 | End Sub 519 | Event CheckedChanged(ByVal sender As Object) 520 | End Class 521 | 522 | '------------------ 523 | 'Creator: dlwhdrlf 524 | 'Created: 19/12/2011 525 | 'Version: 1.0.0 526 | '------------------ 527 | _ 528 | Class BoosterRadioButton 529 | Inherits ThemeControl154 530 | 531 | Sub New() 532 | Transparent = True 533 | BackColor = Color.Transparent 534 | LockHeight = 15 535 | End Sub 536 | Protected Overrides Sub ColorHook() 537 | 538 | End Sub 539 | 540 | Protected Overrides Sub PaintHook() 541 | G.Clear(BackColor) 542 | 543 | 544 | 545 | 546 | Select Case _Checked 547 | Case True 548 | G.FillEllipse(New SolidBrush(Color.FromArgb(129, 10, 10)), 2, 2, Height - 3, Height - 3) 549 | G.FillEllipse(New SolidBrush(Color.FromArgb(30, Color.White)), 2, 2, Height - 3, Height \ 2) 550 | Case False 551 | G.FillEllipse(New SolidBrush(Color.FromArgb(51, 28, 28)), 2, 2, Height - 3, Height - 3) 552 | End Select 553 | 554 | G.DrawEllipse(New Pen(Color.FromArgb(92, 92, 92)), 2, 2, Height - 3, Height - 3) 555 | G.DrawEllipse(Pens.Black, 1, 1, Height - 1, Height - 1) 556 | 557 | DrawText(Brushes.White, HorizontalAlignment.Left, 18, 1) 558 | End Sub 559 | 560 | 561 | Private Property _Checked As Boolean = False 562 | Property Checked() As Boolean 563 | Get 564 | Return _Checked 565 | End Get 566 | Set(ByVal v As Boolean) 567 | _Checked = v 568 | End Set 569 | End Property 570 | Protected Overrides Sub OnClick(ByVal e As System.EventArgs) 571 | _Checked = Not _Checked 572 | RaiseEvent CheckedChanged(Me) 573 | MyBase.OnClick(e) 574 | End Sub 575 | Event CheckedChanged(ByVal sender As Object) 576 | End Class -------------------------------------------------------------------------------- /Booster/aHR0cDovL2k5NjMucGhvdG9idWNrZXQuY29tL2FsYnVtcy9hZTExNS9kbHdoZHJsZi9Cb29zdGVyVGhlbWVGaW5hbDEucG5n.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/VBTheme/729263e38ab40c4139b82e831cfe5eef85755ec0/Booster/aHR0cDovL2k5NjMucGhvdG9idWNrZXQuY29tL2FsYnVtcy9hZTExNS9kbHdoZHJsZi9Cb29zdGVyVGhlbWVGaW5hbDEucG5n.png -------------------------------------------------------------------------------- /Butterscotch/Butterscotch Theme.txt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/VBTheme/729263e38ab40c4139b82e831cfe5eef85755ec0/Butterscotch/Butterscotch Theme.txt -------------------------------------------------------------------------------- /Butterscotch/a.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/VBTheme/729263e38ab40c4139b82e831cfe5eef85755ec0/Butterscotch/a.png -------------------------------------------------------------------------------- /Butterscotch/b.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/VBTheme/729263e38ab40c4139b82e831cfe5eef85755ec0/Butterscotch/b.png -------------------------------------------------------------------------------- /Butterscotch/c.jpg: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/VBTheme/729263e38ab40c4139b82e831cfe5eef85755ec0/Butterscotch/c.jpg -------------------------------------------------------------------------------- /Clarity/aAjhYkr.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/VBTheme/729263e38ab40c4139b82e831cfe5eef85755ec0/Clarity/aAjhYkr.png -------------------------------------------------------------------------------- /Classic/aHR0cDovL2k4MTkucGhvdG9idWNrZXQuY29tL2FsYnVtcy96ejExMi9FcHJvdXZlei9DbGFzc2ljLmpwZw.jpg: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/VBTheme/729263e38ab40c4139b82e831cfe5eef85755ec0/Classic/aHR0cDovL2k4MTkucGhvdG9idWNrZXQuY29tL2FsYnVtcy96ejExMi9FcHJvdXZlei9DbGFzc2ljLmpwZw.jpg -------------------------------------------------------------------------------- /Dark Flat/PNHPmaw.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/VBTheme/729263e38ab40c4139b82e831cfe5eef85755ec0/Dark Flat/PNHPmaw.png -------------------------------------------------------------------------------- /Earn/nXRI8qX.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/VBTheme/729263e38ab40c4139b82e831cfe5eef85755ec0/Earn/nXRI8qX.png -------------------------------------------------------------------------------- /EasyColour/2njduQ6.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/VBTheme/729263e38ab40c4139b82e831cfe5eef85755ec0/EasyColour/2njduQ6.png -------------------------------------------------------------------------------- /EasyColour/EasyColour Theme.txt: -------------------------------------------------------------------------------- 1 | Imports System.Drawing.Drawing2D 2 | Imports System.ComponentModel 3 | Imports System.Runtime.InteropServices 4 | 5 | '------------------------- 6 | 'Theme: EasyColour 7 | 'Creator: Euras 8 | 'Version: 1.0 9 | 'Created: 02/08/14 10 | 'Website: eurashd.com 11 | '------------------------- 12 | 13 | Public Class EC_Theme : Inherits ContainerControl 14 | 15 | _ 16 | Public Shared Function SendMessage(hWnd As IntPtr, Msg As Integer, wParam As Integer, lParam As Integer) As Integer 17 | End Function 18 | _ 19 | Public Shared Function ReleaseCapture() As Boolean 20 | End Function 21 | Public Const WM_NCLBUTTONDOWN As Integer = &HA1 22 | Public Const HT_CAPTION As Integer = &H2 23 | 24 | Protected NotOverridable Overrides Sub OnHandleCreated(e As EventArgs) 25 | MyBase.Dock = DockStyle.Fill 26 | ForeColor = Color.White 27 | MyBase.OnHandleCreated(e) 28 | End Sub 29 | 30 | Private _IsParentForm As Boolean 31 | 32 | Protected Property IsParentForm() As Boolean 33 | Get 34 | Return _IsParentForm 35 | End Get 36 | Set(value As Boolean) 37 | _IsParentForm = value 38 | End Set 39 | End Property 40 | 41 | Private _Transparent As Boolean 42 | Public Property Transparent() As Boolean 43 | Get 44 | Return _Transparent 45 | End Get 46 | Set(value As Boolean) 47 | _Transparent = value 48 | If Not IsHandleCreated Then 49 | Return 50 | SetStyle(ControlStyles.Opaque, Not value) 51 | SetStyle(ControlStyles.SupportsTransparentBackColor, value) 52 | Invalidate() 53 | End If 54 | End Set 55 | End Property 56 | 57 | Protected Overrides Sub OnParentChanged(e As System.EventArgs) 58 | MyBase.OnParentChanged(e) 59 | If Parent Is Nothing Then 60 | Return 61 | _IsParentForm = TypeOf Parent Is Form 62 | End If 63 | If _IsParentForm Then 64 | ParentForm.FormBorderStyle = _BorderStyle 65 | End If 66 | End Sub 67 | 68 | Private _BorderStyle As FormBorderStyle 69 | Public Property BorderStyle() As FormBorderStyle 70 | Get 71 | If _IsParentForm Then 72 | Return ParentForm.FormBorderStyle 73 | Else 74 | Return _BorderStyle 75 | End If 76 | End Get 77 | Set(value As FormBorderStyle) 78 | _BorderStyle = value 79 | If _IsParentForm Then 80 | ParentForm.FormBorderStyle = value 81 | End If 82 | End Set 83 | End Property 84 | 85 | Protected Overrides ReadOnly Property CreateParams As System.Windows.Forms.CreateParams 86 | Get 87 | Const CS_DROPSHADOW As Integer = &H20000 88 | Dim cp As CreateParams = MyBase.CreateParams 89 | cp.ClassStyle = cp.ClassStyle Or CS_DROPSHADOW 90 | Return cp 91 | End Get 92 | End Property 93 | 94 | Protected Overrides Sub OnMouseDown(e As System.Windows.Forms.MouseEventArgs) 95 | MyBase.OnMouseDown(e) 96 | If e.Button = MouseButtons.Left Then 97 | ReleaseCapture() 98 | SendMessage(Parent.Handle, WM_NCLBUTTONDOWN, HT_CAPTION, 0) 99 | End If 100 | End Sub 101 | 102 | Protected Overrides Sub OnPaint(e As System.Windows.Forms.PaintEventArgs) 103 | MyBase.OnPaint(e) 104 | Dim g As Graphics = e.Graphics 105 | g.SmoothingMode = Drawing2D.SmoothingMode.HighQuality 106 | g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic 107 | g.TextRenderingHint = Drawing.Text.TextRenderingHint.ClearTypeGridFit 108 | 109 | g.FillRectangle(New SolidBrush(Color.FromArgb(75, 0, 0, 0)), New Rectangle(-1, -1, Width + 1, 25)) 110 | Dim icon As Image = My.Resources.icon 111 | Dim iSize As Size = New Size(16, 16) 112 | g.DrawImage(icon, 5, 5, 16, 16) 113 | g.DrawString(Text, Font, New SolidBrush(ForeColor), New Point(25, 5), StringFormat.GenericDefault) 114 | g.Dispose() 115 | End Sub 116 | End Class 117 | 118 | Class EC_Button 119 | Inherits Control 120 | Dim isHover As Boolean 121 | Dim _ButtonText As String 122 | Dim _Image As Image 123 | Dim _ImageSize As Size 124 | 125 | Public Sub New() 126 | SetStyle(ControlStyles.SupportsTransparentBackColor, True) 127 | BackColor = Color.Transparent 128 | Cursor = Cursors.Hand 129 | End Sub 130 | 131 | Protected Overrides Sub OnMouseEnter(e As EventArgs) 132 | MyBase.OnMouseEnter(e) 133 | isHover = True 134 | Invalidate() 135 | End Sub 136 | 137 | Protected Overrides Sub OnMouseLeave(e As EventArgs) 138 | MyBase.OnMouseLeave(e) 139 | isHover = False 140 | Invalidate() 141 | End Sub 142 | 143 | _ 144 | Public Overrides Property Text() As String 145 | Get 146 | Return _ButtonText 147 | End Get 148 | Set(value As String) 149 | _ButtonText = value 150 | End Set 151 | End Property 152 | 153 | _ 154 | Public Property Image() As Image 155 | Get 156 | Return _Image 157 | End Get 158 | Set(value As Image) 159 | _Image = value 160 | End Set 161 | End Property 162 | 163 | _ 164 | Public Property ImageSize() As Size 165 | Get 166 | Return _ImageSize 167 | End Get 168 | Set(value As Size) 169 | _ImageSize = value 170 | End Set 171 | End Property 172 | 173 | Protected Overrides Sub OnPaint(e As PaintEventArgs) 174 | MyBase.OnPaint(e) 175 | Dim g As Graphics = e.Graphics 176 | g.InterpolationMode = InterpolationMode.HighQualityBicubic 177 | 178 | Dim s As SizeF = g.MeasureString(_ButtonText, Font) 179 | Dim x As Integer = ClientSize.Width 180 | Dim y As Integer = ClientSize.Height 181 | 182 | g.FillRectangle(New SolidBrush(Color.FromArgb(120, 0, 0, 0)), New Rectangle(0, y / 2, x - 1, y - 1)) 183 | g.FillRectangle(New SolidBrush(Color.FromArgb(80, 0, 0, 0)), New Rectangle(0, 0, x - 1, y / 2)) 184 | 185 | If Text Is Nothing Then 186 | _ButtonText = Name 187 | End If 188 | 189 | g.DrawString(_ButtonText, Font, New SolidBrush(Color.White), (x - s.Width) / 2, (y - s.Height) / 2) 190 | 191 | If _Image IsNot Nothing Then 192 | Dim imgX As Integer = _ImageSize.Width 193 | Dim imgY As Integer = _ImageSize.Height 194 | 195 | If _ImageSize.IsEmpty Then 196 | g.DrawImage(_Image, New Rectangle(5, (y - imgY) / 2, 16, 16)) 197 | Else 198 | g.DrawImage(_Image, New Rectangle(5, (y - imgY) / 2, imgX, imgY)) 199 | End If 200 | End If 201 | 202 | If isHover Then 203 | g.FillRectangle(New SolidBrush(Color.FromArgb(25, 0, 0, 0)), New Rectangle(0, 0, x, y)) 204 | End If 205 | 206 | g.Dispose() 207 | End Sub 208 | End Class 209 | 210 | Class EC_CheckBox 211 | Inherits Control 212 | Private _Checked As Boolean 213 | 214 | Public Sub New() 215 | SetStyle(ControlStyles.SupportsTransparentBackColor, True) 216 | BackColor = Color.Transparent 217 | Size = New Size(20, 20) 218 | MaximumSize = Size 219 | MinimumSize = Size 220 | Cursor = Cursors.Hand 221 | End Sub 222 | 223 | Protected Overrides Sub OnMouseClick(e As MouseEventArgs) 224 | If _Checked Then 225 | _Checked = False 226 | ElseIf Not _Checked Then 227 | _Checked = True 228 | End If 229 | Invalidate() 230 | MyBase.OnMouseClick(e) 231 | End Sub 232 | 233 | Public Property Checked() As Boolean 234 | Get 235 | Return _Checked 236 | End Get 237 | Set(value As Boolean) 238 | _Checked = value 239 | End Set 240 | End Property 241 | 242 | Protected Overrides Sub OnPaint(e As PaintEventArgs) 243 | MyBase.OnPaint(e) 244 | Dim g As Graphics = e.Graphics 245 | g.SmoothingMode = SmoothingMode.HighQuality 246 | g.InterpolationMode = InterpolationMode.HighQualityBicubic 247 | Dim x As Integer = ClientSize.Width 248 | Dim y As Integer = ClientSize.Height 249 | 250 | g.FillEllipse(New SolidBrush(Color.FromArgb(25, 0, 0, 0)), New Rectangle(0, 0, x - 1, y - 1)) 251 | g.FillEllipse(New SolidBrush(Color.FromArgb(75, 255, 255, 255)), New Rectangle(3, 3, x - 7, y - 7)) 252 | 253 | If _Checked Then 254 | g.FillEllipse(New SolidBrush(Color.FromArgb(100, 0, 0, 0)), New RectangleF(5, 5, (x / 2) - 1, (y / 2) - 1)) 255 | End If 256 | 257 | g.Dispose() 258 | End Sub 259 | End Class 260 | 261 | Class EC_Panel 262 | Inherits Panel 263 | Public _PanelText As String 264 | 265 | _ 266 | Public Property PanelText() As String 267 | Get 268 | Return _PanelText 269 | End Get 270 | Set(value As String) 271 | _PanelText = value 272 | End Set 273 | End Property 274 | 275 | Protected Overrides Sub OnPaint(e As PaintEventArgs) 276 | MyBase.OnPaint(e) 277 | Dim g As Graphics = e.Graphics 278 | g.SmoothingMode = SmoothingMode.HighQuality 279 | g.InterpolationMode = InterpolationMode.HighQualityBicubic 280 | g.TextRenderingHint = Drawing.Text.TextRenderingHint.ClearTypeGridFit 281 | Dim x As Integer = ClientSize.Width 282 | Dim y As Integer = ClientSize.Height 283 | 284 | g.FillRectangle(New SolidBrush(Color.FromArgb(25, 0, 0, 0)), New Rectangle(0, 0, x, 25)) 285 | 286 | If PanelText Is Nothing Then 287 | _PanelText = Name 288 | End If 289 | 290 | g.FillRectangle(New SolidBrush(Color.FromArgb(50, 0, 0, 0)), New Rectangle(0, 0, x, y)) 291 | g.DrawString(_PanelText, Font, New SolidBrush(Color.White), New Point(5, 5)) 292 | 293 | g.Dispose() 294 | End Sub 295 | End Class 296 | 297 | Class EC_Tabs 298 | Inherits TabControl 299 | ' Initialize 300 | Public Sub New() 301 | DrawMode = TabDrawMode.OwnerDrawFixed 302 | SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.DoubleBuffer Or ControlStyles.ResizeRedraw Or ControlStyles.UserPaint, True) 303 | DoubleBuffered = True 304 | Dock = DockStyle.Bottom 305 | SizeMode = TabSizeMode.Normal 306 | ItemSize = New Size(100, 20) 307 | End Sub 308 | 309 | ' Tabs Back Color Property 310 | Private m_Backcolor As Color = Color.Empty 311 | _ 312 | Public Overrides Property BackColor() As Color 313 | Get 314 | If m_Backcolor.Equals(Color.Empty) Then 315 | If Parent Is Nothing Then 316 | Return Control.DefaultBackColor 317 | Else 318 | Return Parent.BackColor 319 | End If 320 | End If 321 | Return m_Backcolor 322 | End Get 323 | Set(value As Color) 324 | If m_Backcolor.Equals(value) Then 325 | Return 326 | End If 327 | m_Backcolor = value 328 | Invalidate() 329 | MyBase.OnBackColorChanged(EventArgs.Empty) 330 | End Set 331 | End Property 332 | 333 | Public Function ShouldSerializeBackColor() As Boolean 334 | Return Not m_Backcolor.Equals(Color.Empty) 335 | End Function 336 | 337 | Public Overrides Sub ResetBackColor() 338 | m_Backcolor = Color.Empty 339 | Invalidate() 340 | End Sub 341 | 342 | Protected Overrides Sub OnPaint(e As PaintEventArgs) 343 | MyBase.OnPaint(e) 344 | Dim g As Graphics = e.Graphics 345 | g.Clear(BackColor) 346 | 347 | g.SmoothingMode = SmoothingMode.HighQuality 348 | g.InterpolationMode = InterpolationMode.HighQualityBicubic 349 | 350 | ' Apply Colouring To Each Tab Page 351 | For i As Integer = 0 To TabPages.Count - 1 352 | Dim rect As Rectangle = GetTabRect(i) 353 | Dim r As New Rectangle(GetTabRect(i).X + 10, GetTabRect(i).Y + 3, 100, 20) 354 | If SelectedTab Is TabPages(i) Then 355 | g.FillRectangle(New SolidBrush(Color.FromArgb(75, 0, 0, 0)), rect) 356 | Else 357 | g.FillRectangle(New SolidBrush(Color.FromArgb(25, 0, 0, 0)), rect) 358 | End If 359 | 360 | ' Draw Tab Page Text 361 | g.DrawString(TabPages(i).Text, Font, New SolidBrush(Color.White), DirectCast(r, Rectangle)) 362 | TabPages(i).UseVisualStyleBackColor = False 363 | Next 364 | End Sub 365 | End Class 366 | 367 | Class EC_Notification 368 | Inherits UserControl 369 | Private _Text As String 370 | 371 | ' Initialize 372 | Public Sub New() 373 | SetStyle(ControlStyles.OptimizedDoubleBuffer Or ControlStyles.AllPaintingInWmPaint Or ControlStyles.UserPaint, True) 374 | DoubleBuffered = True 375 | BackColor = Color.Transparent 376 | Size = New Size(200, 25) 377 | End Sub 378 | 379 | ' Notification Property 380 | _ 381 | Public Property Notification() As String 382 | Get 383 | Return _Text 384 | End Get 385 | Set(value As String) 386 | _Text = value 387 | End Set 388 | End Property 389 | 390 | Protected Overrides Sub OnPaint(e As PaintEventArgs) 391 | MyBase.OnPaint(e) 392 | Dim g As Graphics = e.Graphics 393 | 394 | Dim s As SizeF = g.MeasureString(_Text, Font) 395 | g.SmoothingMode = SmoothingMode.HighQuality 396 | g.InterpolationMode = InterpolationMode.HighQualityBicubic 397 | Dim x As Integer = ClientSize.Width 398 | Dim y As Integer = ClientSize.Height 399 | 400 | ' Notification Shadow 401 | g.FillRectangle(New SolidBrush(Color.FromArgb(35, Color.Black)), New Rectangle(5, 5, x, y)) 402 | ' Notification Fill 403 | g.FillRectangle(New SolidBrush(Color.White), New Rectangle(0, 0, x - 5, y - 5)) 404 | ' Notification Text 405 | g.DrawString(_Text, Font, New SolidBrush(Color.Black), New PointF(5, ((y - 5) - s.Height) / 2)) 406 | End Sub 407 | End Class 408 | 409 | Class EC_ProgressBar 410 | Inherits Control 411 | Private m_max As Integer = 100 412 | Private m_min As Integer = 0 413 | Private val As Integer = 0 414 | 415 | ' Initialize 416 | Public Sub New() 417 | MyBase.Size = New Size(150, 15) 418 | SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.ResizeRedraw Or ControlStyles.DoubleBuffer Or ControlStyles.SupportsTransparentBackColor, True) 419 | BackColor = Color.FromArgb(25, 0, 0, 0) 420 | ForeColor = Color.FromArgb(200, 255, 255, 255) 421 | End Sub 422 | 423 | ' Progress Bar Minimum Value 424 | Public Property Min() As Integer 425 | Get 426 | Return m_min 427 | End Get 428 | Set(value As Integer) 429 | If value < 0 Then 430 | m_min = 0 431 | End If 432 | If value > m_max Then 433 | m_min = value 434 | m_min = value 435 | End If 436 | If value < m_min Then 437 | value = m_min 438 | End If 439 | Invalidate() 440 | End Set 441 | End Property 442 | 443 | ' Progress Bar Maximum Value 444 | Public Property Max() As Integer 445 | Get 446 | Return m_max 447 | End Get 448 | Set(value As Integer) 449 | If value < m_min Then 450 | m_min = value 451 | End If 452 | m_max = value 453 | If value > m_max Then 454 | value = m_max 455 | End If 456 | Invalidate() 457 | End Set 458 | End Property 459 | 460 | ' Progress Bar Current Value 461 | Public Property Value() As Integer 462 | Get 463 | Return val 464 | End Get 465 | Set(value As Integer) 466 | Dim oldValue As Integer = val 467 | If value < m_min Then 468 | val = m_min 469 | ElseIf value > m_max Then 470 | val = m_max 471 | Else 472 | val = value 473 | End If 474 | 475 | Dim percent As Single 476 | 477 | Dim newValueRect As New Rectangle(ClientRectangle.X + 2, ClientRectangle.Y + 2, ClientRectangle.Width - 4, ClientRectangle.Height - 4) 478 | Dim oldValueRect As New Rectangle(ClientRectangle.X + 2, ClientRectangle.Y + 2, ClientRectangle.Width - 4, ClientRectangle.Height - 4) 479 | 480 | percent = CSng(val - m_min) / CSng(m_max - m_min) 481 | newValueRect.Width = CInt(CSng(newValueRect.Width) * percent) 482 | 483 | percent = CSng(oldValue - m_min) / CSng(m_max - m_min) 484 | oldValueRect.Width = CInt(CSng(oldValueRect.Width) * percent) 485 | 486 | Dim updateRect As New Rectangle() 487 | 488 | If newValueRect.Width > oldValueRect.Width Then 489 | updateRect.X = oldValueRect.Size.Width 490 | updateRect.Width = newValueRect.Width - oldValueRect.Width 491 | Else 492 | updateRect.X = newValueRect.Size.Width 493 | updateRect.Width = oldValueRect.Width - newValueRect.Width 494 | End If 495 | 496 | updateRect.Height = Height 497 | Invalidate(updateRect) 498 | End Set 499 | End Property 500 | 501 | Protected Overrides Sub OnPaintBackground(pevent As PaintEventArgs) 502 | MyBase.OnPaintBackground(pevent) 503 | Dim g As Graphics = pevent.Graphics 504 | ' Progress Bar Background Colour 505 | g.FillRectangle(New SolidBrush(BackColor), New Rectangle(0, 0, Width, Height)) 506 | End Sub 507 | 508 | Protected Overrides Sub OnPaint(e As PaintEventArgs) 509 | MyBase.OnPaint(e) 510 | Dim g As Graphics = e.Graphics 511 | Dim brush As New SolidBrush(ForeColor) 512 | Dim percent As Single = CSng(val - m_min) / CSng(m_max - m_min) 513 | Dim rect As New Rectangle(2, 2, Width - 4, Height - 4) 514 | rect.Width = CInt(CSng(rect.Width) * percent) 515 | 516 | ' Progress Bar ForeColour 517 | g.FillRectangle(brush, rect) 518 | End Sub 519 | End Class 520 | 521 | Class EC_TextBox 522 | Inherits RichTextBox 523 | 524 | Public Sub New() 525 | BorderStyle = BorderStyle.None 526 | Multiline = False 527 | Size = New Size(Size.Width, 20) 528 | MaximumSize = New Size(Integer.MaxValue, Size.Height) 529 | MinimumSize = Size 530 | End Sub 531 | 532 | ' PREVENT FLICKERING 533 | Protected Overrides Sub OnPaintBackground(pevent As PaintEventArgs) 534 | MyBase.OnPaintBackground(pevent) 535 | End Sub 536 | 537 | Private Const WM_PAINT As Integer = 15 538 | Protected Overrides Sub WndProc(ByRef m As Message) 539 | If m.Msg = WM_PAINT Then 540 | Invalidate() 541 | MyBase.WndProc(m) 542 | Using g As Graphics = Graphics.FromHwnd(Handle) 543 | g.InterpolationMode = InterpolationMode.HighQualityBicubic 544 | End Using 545 | Else 546 | MyBase.WndProc(m) 547 | End If 548 | End Sub 549 | End Class -------------------------------------------------------------------------------- /EasyColour/IDQLG1y.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/VBTheme/729263e38ab40c4139b82e831cfe5eef85755ec0/EasyColour/IDQLG1y.png -------------------------------------------------------------------------------- /Element/0LZSSxD.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/VBTheme/729263e38ab40c4139b82e831cfe5eef85755ec0/Element/0LZSSxD.png -------------------------------------------------------------------------------- /Element/cmQ9qfK.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/VBTheme/729263e38ab40c4139b82e831cfe5eef85755ec0/Element/cmQ9qfK.png -------------------------------------------------------------------------------- /Google Chrome/Google Chrome Theme.txt: -------------------------------------------------------------------------------- 1 | Class ChromeThemeContainer 2 | Inherits ThemeContainer154 3 | 4 | Sub New() 5 | TransparencyKey = Color.Fuchsia 6 | BackColor = Color.White 7 | Font = New Font("Segoe UI", 9) 8 | SetColor("Title color", Color.Black) 9 | SetColor("X-color", 90, 90, 90) 10 | SetColor("X-ellipse", 114, 114, 114) 11 | End Sub 12 | 13 | Dim TitleColor, Xcolor, Xellipse As Color 14 | Protected Overrides Sub ColorHook() 15 | TitleColor = GetColor("Title color") 16 | Xcolor = GetColor("X-color") 17 | Xellipse = GetColor("X-ellipse") 18 | End Sub 19 | 20 | Dim X, Y As Integer 21 | 22 | Protected Overrides Sub OnMouseMove(e As MouseEventArgs) 23 | X = e.Location.X : Y = e.Location.Y 24 | MyBase.OnMouseMove(e) 25 | Invalidate() 26 | End Sub 27 | 28 | Protected Overrides Sub OnMouseClick(e As MouseEventArgs) 29 | If New Rectangle(Width - 22, 5, 15, 15).Contains(New Point(X, Y)) Then 30 | FindForm.Close() 31 | End If 32 | MyBase.OnMouseClick(e) 33 | End Sub 34 | 35 | Protected Overrides Sub PaintHook() 36 | G.Clear(BackColor) 37 | DrawCorners(Color.Fuchsia) 38 | DrawCorners(Color.Fuchsia, 1, 0, Width - 2, Height) 39 | DrawCorners(Color.Fuchsia, 0, 1, Width, Height - 2) 40 | DrawCorners(Color.Fuchsia, 2, 0, Width - 4, Height) 41 | DrawCorners(Color.Fuchsia, 0, 2, Width, Height - 4) 42 | 43 | G.SmoothingMode = SmoothingMode.HighQuality 44 | If New Rectangle(Width - 22, 5, 15, 15).Contains(New Point(X, Y)) Then 45 | G.FillEllipse(New SolidBrush(Xellipse), New Rectangle(Width - 24, 6, 16, 16)) 46 | G.DrawString("r", New Font("Webdings", 8), New SolidBrush(BackColor), New Point(Width - 23, 5)) 47 | Else 48 | G.DrawString("r", New Font("Webdings", 8), New SolidBrush(Xcolor), New Point(Width - 23, 5)) 49 | End If 50 | 51 | DrawText(New SolidBrush(TitleColor), New Point(8, 7)) 52 | End Sub 53 | End Class 54 | 55 | Class ChromeButton 56 | Inherits ThemeControl154 57 | 58 | Sub New() 59 | Font = New Font("Segoe UI", 9) 60 | SetColor("Gradient top normal", 237, 237, 237) 61 | SetColor("Gradient top over", 242, 242, 242) 62 | SetColor("Gradient top down", 235, 235, 235) 63 | SetColor("Gradient bottom normal", 230, 230, 230) 64 | SetColor("Gradient bottom over", 235, 235, 235) 65 | SetColor("Gradient bottom down", 223, 223, 223) 66 | SetColor("Border", 167, 167, 167) 67 | SetColor("Text normal", 60, 60, 60) 68 | SetColor("Text down/over", 20, 20, 20) 69 | SetColor("Text disabled", Color.Gray) 70 | End Sub 71 | 72 | Dim GTN, GTO, GTD, GBN, GBO, GBD, Bo, TN, TD, TDO As Color 73 | Protected Overrides Sub ColorHook() 74 | GTN = GetColor("Gradient top normal") 75 | GTO = GetColor("Gradient top over") 76 | GTD = GetColor("Gradient top down") 77 | GBN = GetColor("Gradient bottom normal") 78 | GBO = GetColor("Gradient bottom over") 79 | GBD = GetColor("Gradient bottom down") 80 | Bo = GetColor("Border") 81 | TN = GetColor("Text normal") 82 | TDO = GetColor("Text down/over") 83 | TD = GetColor("Text disabled") 84 | End Sub 85 | 86 | Protected Overrides Sub PaintHook() 87 | G.Clear(BackColor) 88 | Dim LGB As LinearGradientBrush 89 | G.SmoothingMode = SmoothingMode.HighQuality 90 | 91 | 92 | Select Case State 93 | Case MouseState.None 94 | LGB = New LinearGradientBrush(New Rectangle(0, 0, Width - 1, Height - 1), GTN, GBN, 90.0F) 95 | Case MouseState.Over 96 | LGB = New LinearGradientBrush(New Rectangle(0, 0, Width - 1, Height - 1), GTO, GBO, 90.0F) 97 | Case Else 98 | LGB = New LinearGradientBrush(New Rectangle(0, 0, Width - 1, Height - 1), GTD, GBD, 90.0F) 99 | End Select 100 | 101 | If Not Enabled Then 102 | LGB = New LinearGradientBrush(New Rectangle(0, 0, Width - 1, Height - 1), GTN, GBN, 90.0F) 103 | End If 104 | 105 | Dim buttonpath As GraphicsPath = CreateRound(Rectangle.Round(LGB.Rectangle), 3) 106 | G.FillPath(LGB, CreateRound(Rectangle.Round(LGB.Rectangle), 3)) 107 | If Not Enabled Then G.FillPath(New SolidBrush(Color.FromArgb(50, Color.White)), CreateRound(Rectangle.Round(LGB.Rectangle), 3)) 108 | G.SetClip(buttonpath) 109 | LGB = New LinearGradientBrush(New Rectangle(0, 0, Width, Height / 6), Color.FromArgb(80, Color.White), Color.Transparent, 90.0F) 110 | G.FillRectangle(LGB, Rectangle.Round(LGB.Rectangle)) 111 | 112 | 113 | 114 | G.ResetClip() 115 | G.DrawPath(New Pen(Bo), buttonpath) 116 | 117 | If Enabled Then 118 | Select Case State 119 | Case MouseState.None 120 | DrawText(New SolidBrush(TN), HorizontalAlignment.Center, 1, 0) 121 | Case Else 122 | DrawText(New SolidBrush(TDO), HorizontalAlignment.Center, 1, 0) 123 | End Select 124 | Else 125 | DrawText(New SolidBrush(TD), HorizontalAlignment.Center, 1, 0) 126 | End If 127 | End Sub 128 | End Class 129 | 130 | Class ChromeCheckbox 131 | 132 | Inherits ThemeControl154 133 | 134 | Sub New() 135 | LockHeight = 17 136 | Font = New Font("Segoe UI", 9) 137 | SetColor("Gradient top normal", 237, 237, 237) 138 | SetColor("Gradient top over", 242, 242, 242) 139 | SetColor("Gradient top down", 235, 235, 235) 140 | SetColor("Gradient bottom normal", 230, 230, 230) 141 | SetColor("Gradient bottom over", 235, 235, 235) 142 | SetColor("Gradient bottom down", 223, 223, 223) 143 | SetColor("Border", 167, 167, 167) 144 | SetColor("Text", 60, 60, 60) 145 | Width = 160 146 | End Sub 147 | 148 | Private X As Integer 149 | Dim GTN, GTO, GTD, GBN, GBO, GBD, Bo, T As Color 150 | Protected Overrides Sub ColorHook() 151 | GTN = GetColor("Gradient top normal") 152 | GTO = GetColor("Gradient top over") 153 | GTD = GetColor("Gradient top down") 154 | GBN = GetColor("Gradient bottom normal") 155 | GBO = GetColor("Gradient bottom over") 156 | GBD = GetColor("Gradient bottom down") 157 | Bo = GetColor("Border") 158 | T = GetColor("Text") 159 | End Sub 160 | 161 | Protected Overrides Sub OnMouseMove(e As System.Windows.Forms.MouseEventArgs) 162 | MyBase.OnMouseMove(e) 163 | X = e.Location.X 164 | Invalidate() 165 | End Sub 166 | 167 | Protected Overrides Sub PaintHook() 168 | G.Clear(BackColor) 169 | Dim LGB As LinearGradientBrush 170 | G.SmoothingMode = SmoothingMode.HighQuality 171 | Select Case State 172 | Case MouseState.None 173 | LGB = New LinearGradientBrush(New Rectangle(0, 0, 14, 14), GTN, GBN, 90.0F) 174 | Case MouseState.Over 175 | LGB = New LinearGradientBrush(New Rectangle(0, 0, 14, 14), GTO, GBO, 90.0F) 176 | Case Else 177 | LGB = New LinearGradientBrush(New Rectangle(0, 0, 14, 14), GTD, GBD, 90.0F) 178 | End Select 179 | Dim buttonpath As GraphicsPath = CreateRound(Rectangle.Round(LGB.Rectangle), 5) 180 | G.FillPath(LGB, CreateRound(Rectangle.Round(LGB.Rectangle), 3)) 181 | G.SetClip(buttonpath) 182 | LGB = New LinearGradientBrush(New Rectangle(0, 0, 14, 5), Color.FromArgb(150, Color.White), Color.Transparent, 90.0F) 183 | G.FillRectangle(LGB, Rectangle.Round(LGB.Rectangle)) 184 | G.ResetClip() 185 | G.DrawPath(New Pen(Bo), buttonpath) 186 | 187 | DrawText(New SolidBrush(T), 17, -2) 188 | 189 | 190 | If Checked Then 191 | Dim check As Image = Image.FromStream(New System.IO.MemoryStream(Convert.FromBase64String("iVBORw0KGgoAAAANSUhEUgAAAAsAAAAJCAYAAADkZNYtAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAACHDwAAjA8AAP1SAACBQAAAfXkAAOmLAAA85QAAGcxzPIV3AAAKOWlDQ1BQaG90b3Nob3AgSUNDIHByb2ZpbGUAAEjHnZZ3VFTXFofPvXd6oc0wAlKG3rvAANJ7k15FYZgZYCgDDjM0sSGiAhFFRJoiSFDEgNFQJFZEsRAUVLAHJAgoMRhFVCxvRtaLrqy89/Ly++Osb+2z97n77L3PWhcAkqcvl5cGSwGQyhPwgzyc6RGRUXTsAIABHmCAKQBMVka6X7B7CBDJy82FniFyAl8EAfB6WLwCcNPQM4BOB/+fpFnpfIHomAARm7M5GSwRF4g4JUuQLrbPipgalyxmGCVmvihBEcuJOWGRDT77LLKjmNmpPLaIxTmns1PZYu4V8bZMIUfEiK+ICzO5nCwR3xKxRoowlSviN+LYVA4zAwAUSWwXcFiJIjYRMYkfEuQi4uUA4EgJX3HcVyzgZAvEl3JJS8/hcxMSBXQdli7d1NqaQffkZKVwBALDACYrmcln013SUtOZvBwAFu/8WTLi2tJFRbY0tba0NDQzMv2qUP91829K3NtFehn4uWcQrf+L7a/80hoAYMyJarPziy2uCoDOLQDI3fti0zgAgKSobx3Xv7oPTTwviQJBuo2xcVZWlhGXwzISF/QP/U+Hv6GvvmckPu6P8tBdOfFMYYqALq4bKy0lTcinZ6QzWRy64Z+H+B8H/nUeBkGceA6fwxNFhImmjMtLELWbx+YKuGk8Opf3n5r4D8P+pMW5FonS+BFQY4yA1HUqQH7tBygKESDR+8Vd/6NvvvgwIH554SqTi3P/7zf9Z8Gl4iWDm/A5ziUohM4S8jMX98TPEqABAUgCKpAHykAd6ABDYAasgC1wBG7AG/iDEBAJVgMWSASpgA+yQB7YBApBMdgJ9oBqUAcaQTNoBcdBJzgFzoNL4Bq4AW6D+2AUTIBnYBa8BgsQBGEhMkSB5CEVSBPSh8wgBmQPuUG+UBAUCcVCCRAPEkJ50GaoGCqDqqF6qBn6HjoJnYeuQIPQXWgMmoZ+h97BCEyCqbASrAUbwwzYCfaBQ+BVcAK8Bs6FC+AdcCXcAB+FO+Dz8DX4NjwKP4PnEIAQERqiihgiDMQF8UeikHiEj6xHipAKpAFpRbqRPuQmMorMIG9RGBQFRUcZomxRnqhQFAu1BrUeVYKqRh1GdaB6UTdRY6hZ1Ec0Ga2I1kfboL3QEegEdBa6EF2BbkK3oy+ib6Mn0K8xGAwNo42xwnhiIjFJmLWYEsw+TBvmHGYQM46Zw2Kx8lh9rB3WH8vECrCF2CrsUexZ7BB2AvsGR8Sp4Mxw7rgoHA+Xj6vAHcGdwQ3hJnELeCm8Jt4G749n43PwpfhGfDf+On4Cv0CQJmgT7AghhCTCJkIloZVwkfCA8JJIJKoRrYmBRC5xI7GSeIx4mThGfEuSIemRXEjRJCFpB+kQ6RzpLuklmUzWIjuSo8gC8g5yM/kC+RH5jQRFwkjCS4ItsUGiRqJDYkjiuSReUlPSSXK1ZK5kheQJyeuSM1J4KS0pFymm1HqpGqmTUiNSc9IUaVNpf+lU6RLpI9JXpKdksDJaMm4ybJkCmYMyF2TGKQhFneJCYVE2UxopFykTVAxVm+pFTaIWU7+jDlBnZWVkl8mGyWbL1sielh2lITQtmhcthVZKO04bpr1borTEaQlnyfYlrUuGlszLLZVzlOPIFcm1yd2WeydPl3eTT5bfJd8p/1ABpaCnEKiQpbBf4aLCzFLqUtulrKVFS48vvacIK+opBimuVTyo2K84p6Ss5KGUrlSldEFpRpmm7KicpFyufEZ5WoWiYq/CVSlXOavylC5Ld6Kn0CvpvfRZVUVVT1Whar3qgOqCmrZaqFq+WpvaQ3WCOkM9Xr1cvUd9VkNFw08jT6NF454mXpOhmai5V7NPc15LWytca6tWp9aUtpy2l3audov2Ax2yjoPOGp0GnVu6GF2GbrLuPt0berCehV6iXo3edX1Y31Kfq79Pf9AAbWBtwDNoMBgxJBk6GWYathiOGdGMfI3yjTqNnhtrGEcZ7zLuM/5oYmGSYtJoct9UxtTbNN+02/R3Mz0zllmN2S1zsrm7+QbzLvMXy/SXcZbtX3bHgmLhZ7HVosfig6WVJd+y1XLaSsMq1qrWaoRBZQQwShiXrdHWztYbrE9Zv7WxtBHYHLf5zdbQNtn2iO3Ucu3lnOWNy8ft1OyYdvV2o/Z0+1j7A/ajDqoOTIcGh8eO6o5sxybHSSddpySno07PnU2c+c7tzvMuNi7rXM65Iq4erkWuA24ybqFu1W6P3NXcE9xb3Gc9LDzWepzzRHv6eO7yHPFS8mJ5NXvNelt5r/Pu9SH5BPtU+zz21fPl+3b7wX7efrv9HqzQXMFb0ekP/L38d/s/DNAOWBPwYyAmMCCwJvBJkGlQXlBfMCU4JvhI8OsQ55DSkPuhOqHC0J4wybDosOaw+XDX8LLw0QjjiHUR1yIVIrmRXVHYqLCopqi5lW4r96yciLaILoweXqW9KnvVldUKq1NWn46RjGHGnIhFx4bHHol9z/RnNjDn4rziauNmWS6svaxnbEd2OXuaY8cp40zG28WXxU8l2CXsTphOdEisSJzhunCruS+SPJPqkuaT/ZMPJX9KCU9pS8Wlxqae5Mnwknm9acpp2WmD6frphemja2zW7Fkzy/fhN2VAGasyugRU0c9Uv1BHuEU4lmmfWZP5Jiss60S2dDYvuz9HL2d7zmSue+63a1FrWWt78lTzNuWNrXNaV78eWh+3vmeD+oaCDRMbPTYe3kTYlLzpp3yT/LL8V5vDN3cXKBVsLBjf4rGlpVCikF84stV2a9021DbutoHt5turtn8sYhddLTYprih+X8IqufqN6TeV33zaEb9joNSydP9OzE7ezuFdDrsOl0mX5ZaN7/bb3VFOLy8qf7UnZs+VimUVdXsJe4V7Ryt9K7uqNKp2Vr2vTqy+XeNc01arWLu9dn4fe9/Qfsf9rXVKdcV17w5wD9yp96jvaNBqqDiIOZh58EljWGPft4xvm5sUmoqbPhziHRo9HHS4t9mqufmI4pHSFrhF2DJ9NProje9cv+tqNWytb6O1FR8Dx4THnn4f+/3wcZ/jPScYJ1p/0Pyhtp3SXtQBdeR0zHYmdo52RXYNnvQ+2dNt293+o9GPh06pnqo5LXu69AzhTMGZT2dzz86dSz83cz7h/HhPTM/9CxEXbvUG9g5c9Ll4+ZL7pQt9Tn1nL9tdPnXF5srJq4yrndcsr3X0W/S3/2TxU/uA5UDHdavrXTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxSfNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALEQAACxEBf2RfkQAAAK1JREFUKFN10D0OhSAQBGAOp2D8u4CNHY0kegFPYaSyM+EQFhY2NsTGcJ3xQbEvxlBMQsg3SxYGgMWitUbbtjiO40fAotBaizzPIYQI8YUo7rqO4DAM78nneYYLH2MMOOchdV3DOffH4zgiyzJM04T7vlFVFeF1XWkI27YNaZpSiqKgs1KKIC0opXwVfLksS1zX9cW+Nc9zeDpJkpBlWV7w83X7vqNpGvR9/4EePztSBhXQfRi8AAAAAElFTkSuQmCC"))) 192 | G.DrawImage(check, New Rectangle(2, 3, check.Width, check.Height)) 193 | End If 194 | End Sub 195 | 196 | Private _Checked As Boolean 197 | Property Checked() As Boolean 198 | Get 199 | Return _Checked 200 | End Get 201 | Set(ByVal value As Boolean) 202 | _Checked = value 203 | Invalidate() 204 | End Set 205 | End Property 206 | 207 | Protected Overrides Sub OnMouseDown(ByVal e As System.Windows.Forms.MouseEventArgs) 208 | _Checked = Not _Checked 209 | RaiseEvent CheckedChanged(Me) 210 | MyBase.OnMouseDown(e) 211 | End Sub 212 | 213 | Event CheckedChanged(ByVal sender As Object) 214 | 215 | End Class 216 | 217 | _ 218 | Class ChromeRadioButton 219 | Inherits ThemeControl154 220 | 221 | Sub New() 222 | Font = New Font("Segoe UI", 9) 223 | LockHeight = 17 224 | SetColor("Text", 60, 60, 60) 225 | SetColor("Gradient top", 237, 237, 237) 226 | SetColor("Gradient bottom", 230, 230, 230) 227 | SetColor("Borders", 167, 167, 167) 228 | SetColor("Bullet", 100, 100, 100) 229 | Width = 180 230 | End Sub 231 | 232 | Private X As Integer 233 | Private TextColor, G1, G2, Bo, Bb As Color 234 | 235 | Protected Overrides Sub ColorHook() 236 | TextColor = GetColor("Text") 237 | G1 = GetColor("Gradient top") 238 | G2 = GetColor("Gradient bottom") 239 | Bb = GetColor("Bullet") 240 | Bo = GetColor("Borders") 241 | End Sub 242 | 243 | Protected Overrides Sub OnMouseMove(e As System.Windows.Forms.MouseEventArgs) 244 | MyBase.OnMouseMove(e) 245 | X = e.Location.X 246 | Invalidate() 247 | End Sub 248 | 249 | Protected Overrides Sub PaintHook() 250 | G.Clear(BackColor) 251 | G.SmoothingMode = SmoothingMode.HighQuality 252 | If _Checked Then 253 | Dim LGB As New LinearGradientBrush(New Rectangle(New Point(0, 0), New Size(14, 14)), G1, G2, 90.0F) 254 | G.FillEllipse(LGB, New Rectangle(New Point(0, 0), New Size(14, 14))) 255 | Else 256 | Dim LGB As New LinearGradientBrush(New Rectangle(New Point(0, 0), New Size(14, 16)), G1, G2, 90.0F) 257 | G.FillEllipse(LGB, New Rectangle(New Point(0, 0), New Size(14, 14))) 258 | End If 259 | 260 | If State = MouseState.Over And X < 15 Then 261 | Dim SB As New SolidBrush(Color.FromArgb(10, Color.Black)) 262 | G.FillEllipse(SB, New Rectangle(New Point(0, 0), New Size(14, 14))) 263 | ElseIf State = MouseState.Down And X < 15 Then 264 | Dim SB As New SolidBrush(Color.FromArgb(20, Color.Black)) 265 | G.FillEllipse(SB, New Rectangle(New Point(0, 0), New Size(14, 14))) 266 | End If 267 | 268 | Dim P As New GraphicsPath() 269 | P.AddEllipse(New Rectangle(0, 0, 14, 14)) 270 | G.SetClip(P) 271 | 272 | Dim LLGGBB As New LinearGradientBrush(New Rectangle(0, 0, 14, 5), Color.FromArgb(150, Color.White), Color.Transparent, 90.0F) 273 | G.FillRectangle(LLGGBB, LLGGBB.Rectangle) 274 | 275 | G.ResetClip() 276 | 277 | G.DrawEllipse(New Pen(Bo), New Rectangle(New Point(0, 0), New Size(14, 14))) 278 | 279 | If _Checked Then 280 | Dim LGB As New SolidBrush(Bb) 281 | G.FillEllipse(LGB, New Rectangle(New Point(4, 4), New Size(6, 6))) 282 | End If 283 | 284 | DrawText(New SolidBrush(TextColor), HorizontalAlignment.Left, 17, -2) 285 | End Sub 286 | 287 | Private _Field As Integer = 16 288 | Property Field() As Integer 289 | Get 290 | Return _Field 291 | End Get 292 | Set(ByVal value As Integer) 293 | If value < 4 Then Return 294 | _Field = value 295 | LockHeight = value 296 | Invalidate() 297 | End Set 298 | End Property 299 | 300 | Private _Checked As Boolean 301 | Property Checked() As Boolean 302 | Get 303 | Return _Checked 304 | End Get 305 | Set(ByVal value As Boolean) 306 | _Checked = value 307 | InvalidateControls() 308 | RaiseEvent CheckedChanged(Me) 309 | Invalidate() 310 | End Set 311 | End Property 312 | 313 | Protected Overrides Sub OnMouseDown(ByVal e As System.Windows.Forms.MouseEventArgs) 314 | If Not _Checked Then Checked = True 315 | MyBase.OnMouseDown(e) 316 | End Sub 317 | 318 | Event CheckedChanged(ByVal sender As Object) 319 | 320 | Protected Overrides Sub OnCreation() 321 | InvalidateControls() 322 | End Sub 323 | 324 | Private Sub InvalidateControls() 325 | If Not IsHandleCreated OrElse Not _Checked Then Return 326 | 327 | For Each C As Control In Parent.Controls 328 | If C IsNot Me AndAlso TypeOf C Is ChromeRadioButton Then 329 | DirectCast(C, ChromeRadioButton).Checked = False 330 | End If 331 | Next 332 | End Sub 333 | 334 | End Class 335 | 336 | Class ChromeSeparator 337 | Inherits ThemeControl154 338 | 339 | Sub New() 340 | LockHeight = 1 341 | BackColor = Color.FromArgb(238, 238, 238) 342 | End Sub 343 | 344 | Protected Overrides Sub ColorHook() 345 | 346 | End Sub 347 | 348 | Protected Overrides Sub PaintHook() 349 | G.Clear(BackColor) 350 | End Sub 351 | End Class 352 | 353 | Class ChromeTabcontrol 354 | Inherits TabControl 355 | 356 | Sub New() 357 | SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.ResizeRedraw Or ControlStyles.UserPaint Or ControlStyles.DoubleBuffer, True) 358 | DoubleBuffered = True 359 | SizeMode = TabSizeMode.Fixed 360 | ItemSize = New Size(30, 115) 361 | End Sub 362 | Protected Overrides Sub CreateHandle() 363 | MyBase.CreateHandle() 364 | Alignment = TabAlignment.Left 365 | End Sub 366 | 367 | Dim C1 As Color = Color.FromArgb(78, 87, 100) 368 | Property SquareColor As Color 369 | Get 370 | Return C1 371 | End Get 372 | Set(ByVal value As Color) 373 | C1 = value 374 | Invalidate() 375 | End Set 376 | End Property 377 | 378 | Dim OB As Boolean = False 379 | Property ShowOuterBorders As Boolean 380 | Get 381 | Return OB 382 | End Get 383 | Set(ByVal value As Boolean) 384 | OB = value 385 | Invalidate() 386 | End Set 387 | End Property 388 | 389 | Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs) 390 | Dim B As New Bitmap(Width, Height) 391 | Dim G As Graphics = Graphics.FromImage(B) 392 | Try : SelectedTab.BackColor = Color.White : Catch : End Try 393 | G.Clear(Color.White) 394 | For i = 0 To TabCount - 1 395 | Dim x2 As Rectangle = New Rectangle(New Point(GetTabRect(i).Location.X - 2, GetTabRect(i).Location.Y - 2), New Size(GetTabRect(i).Width + 3, GetTabRect(i).Height - 1)) 396 | Dim textrectangle As New Rectangle(x2.Location.X + 20, x2.Location.Y, x2.Width - 20, x2.Height) 397 | If i = SelectedIndex Then 398 | G.FillRectangle(New SolidBrush(C1), New Rectangle(x2.Location, New Size(9, x2.Height))) 399 | 400 | 401 | If ImageList IsNot Nothing Then 402 | Try 403 | If ImageList.Images(TabPages(i).ImageIndex) IsNot Nothing Then 404 | G.DrawImage(ImageList.Images(TabPages(i).ImageIndex), New Point(textrectangle.Location.X + 8, textrectangle.Location.Y + 6)) 405 | G.DrawString(" " & TabPages(i).Text, Font, Brushes.Black, textrectangle, New StringFormat With {.LineAlignment = StringAlignment.Center, .Alignment = StringAlignment.Near}) 406 | Else 407 | G.DrawString(TabPages(i).Text, Font, Brushes.Black, textrectangle, New StringFormat With {.LineAlignment = StringAlignment.Center, .Alignment = StringAlignment.Near}) 408 | End If 409 | Catch ex As Exception 410 | G.DrawString(TabPages(i).Text, Font, Brushes.Black, textrectangle, New StringFormat With {.LineAlignment = StringAlignment.Center, .Alignment = StringAlignment.Near}) 411 | End Try 412 | Else 413 | G.DrawString(TabPages(i).Text, Font, Brushes.Black, textrectangle, New StringFormat With {.LineAlignment = StringAlignment.Center, .Alignment = StringAlignment.Near}) 414 | End If 415 | 416 | Else 417 | If ImageList IsNot Nothing Then 418 | Try 419 | If ImageList.Images(TabPages(i).ImageIndex) IsNot Nothing Then 420 | G.DrawImage(ImageList.Images(TabPages(i).ImageIndex), New Point(textrectangle.Location.X + 8, textrectangle.Location.Y + 6)) 421 | G.DrawString(" " & TabPages(i).Text, Font, Brushes.DimGray, textrectangle, New StringFormat With {.LineAlignment = StringAlignment.Center, .Alignment = StringAlignment.Near}) 422 | Else 423 | G.DrawString(TabPages(i).Text, Font, Brushes.DimGray, textrectangle, New StringFormat With {.LineAlignment = StringAlignment.Center, .Alignment = StringAlignment.Near}) 424 | End If 425 | Catch ex As Exception 426 | G.DrawString(TabPages(i).Text, Font, Brushes.DimGray, textrectangle, New StringFormat With {.LineAlignment = StringAlignment.Center, .Alignment = StringAlignment.Near}) 427 | End Try 428 | Else 429 | G.DrawString(TabPages(i).Text, Font, Brushes.DimGray, textrectangle, New StringFormat With {.LineAlignment = StringAlignment.Center, .Alignment = StringAlignment.Near}) 430 | End If 431 | End If 432 | Next 433 | 434 | e.Graphics.DrawImage(B.Clone, 0, 0) 435 | G.Dispose() : B.Dispose() 436 | End Sub 437 | End Class -------------------------------------------------------------------------------- /Google Chrome/MYegQrh.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/VBTheme/729263e38ab40c4139b82e831cfe5eef85755ec0/Google Chrome/MYegQrh.png -------------------------------------------------------------------------------- /GrayBlue/5Tw9x.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/VBTheme/729263e38ab40c4139b82e831cfe5eef85755ec0/GrayBlue/5Tw9x.png -------------------------------------------------------------------------------- /Greywash/cxKrAZf.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/VBTheme/729263e38ab40c4139b82e831cfe5eef85755ec0/Greywash/cxKrAZf.png -------------------------------------------------------------------------------- /Hex/wpcNSiS.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/VBTheme/729263e38ab40c4139b82e831cfe5eef85755ec0/Hex/wpcNSiS.png -------------------------------------------------------------------------------- /High Roller/aHR0cDovL2kuZ3lhem8uY29tLzViN2E0YTJlOWJjYWJkNDgyYTEzMWVlMTUzMWY3MGVmLnBuZw.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/VBTheme/729263e38ab40c4139b82e831cfe5eef85755ec0/High Roller/aHR0cDovL2kuZ3lhem8uY29tLzViN2E0YTJlOWJjYWJkNDgyYTEzMWVlMTUzMWY3MGVmLnBuZw.png -------------------------------------------------------------------------------- /Knight/Knight Theme.txt: -------------------------------------------------------------------------------- 1 | Imports System.Drawing 2 | Imports System.Drawing.Drawing2D 3 | Imports System.ComponentModel 4 | 5 | Enum MouseState 6 | None = 0 7 | Over = 1 8 | Down = 2 9 | End Enum 10 | 11 | Class KnightTheme 12 | Inherits ContainerControl 13 | 14 | #Region " Declarations " 15 | Private _Header As Integer = 38 16 | Private _Down As Boolean = False 17 | Private _MousePoint As Point 18 | #End Region 19 | 20 | #Region " MouseStates " 21 | 22 | Protected Overrides Sub OnMouseUp(e As MouseEventArgs) 23 | MyBase.OnMouseUp(e) 24 | _Down = False 25 | End Sub 26 | 27 | Protected Overrides Sub OnMouseDown(e As MouseEventArgs) 28 | MyBase.OnMouseDown(e) 29 | If e.Location.Y < _Header AndAlso e.Button = Windows.Forms.MouseButtons.Left Then 30 | _Down = True 31 | _MousePoint = e.Location 32 | End If 33 | End Sub 34 | 35 | Protected Overrides Sub OnMouseMove(e As MouseEventArgs) 36 | MyBase.OnMouseMove(e) 37 | If _Down = True Then 38 | ParentForm.Location = MousePosition - _MousePoint 39 | End If 40 | End Sub 41 | 42 | #End Region 43 | 44 | Protected Overrides Sub OnCreateControl() 45 | MyBase.OnCreateControl() 46 | ParentForm.FormBorderStyle = FormBorderStyle.None 47 | ParentForm.TransparencyKey = Color.Fuchsia 48 | Dock = DockStyle.Fill 49 | Invalidate() 50 | End Sub 51 | 52 | Sub New() 53 | BackColor = Color.FromArgb(46, 49, 61) 54 | End Sub 55 | 56 | Protected Overrides Sub OnPaint(e As PaintEventArgs) 57 | MyBase.OnPaint(e) 58 | Dim G = e.Graphics 59 | G.Clear(Color.FromArgb(236, 73, 99)) 60 | G.FillRectangle(New SolidBrush(Color.FromArgb(46, 49, 61)), New Rectangle(0, _Header, Width, Height - _Header)) 61 | G.FillRectangle(Brushes.Fuchsia, New Rectangle(0, 0, 1, 1)) 62 | G.FillRectangle(Brushes.Fuchsia, New Rectangle(1, 0, 1, 1)) 63 | G.FillRectangle(Brushes.Fuchsia, New Rectangle(0, 1, 1, 1)) 64 | G.FillRectangle(Brushes.Fuchsia, New Rectangle(Width - 1, 0, 1, 1)) 65 | G.FillRectangle(Brushes.Fuchsia, New Rectangle(Width - 2, 0, 1, 1)) 66 | G.FillRectangle(Brushes.Fuchsia, New Rectangle(Width - 1, 1, 1, 1)) 67 | Dim _StringF As New StringFormat 68 | _StringF.Alignment = StringAlignment.Center 69 | _StringF.LineAlignment = StringAlignment.Center 70 | G.DrawString(Text, New Font("Segoe UI", 12), Brushes.White, New RectangleF(0, 0, Width, _Header), _StringF) 71 | End Sub 72 | 73 | End Class 74 | 75 | Class KnightButton 76 | Inherits Control 77 | 78 | #Region " Declarations " 79 | Private _State As MouseState = MouseState.None 80 | #End Region 81 | 82 | #Region " MouseStates " 83 | 84 | Protected Overrides Sub OnMouseEnter(e As EventArgs) 85 | MyBase.OnMouseEnter(e) 86 | _State = MouseState.Over 87 | Invalidate() 88 | End Sub 89 | 90 | Protected Overrides Sub OnMouseLeave(e As EventArgs) 91 | MyBase.OnMouseLeave(e) 92 | _State = MouseState.None 93 | Invalidate() 94 | End Sub 95 | 96 | Protected Overrides Sub OnMouseDown(e As MouseEventArgs) 97 | MyBase.OnMouseDown(e) 98 | _State = MouseState.Down 99 | Invalidate() 100 | End Sub 101 | 102 | Protected Overrides Sub OnMouseUp(e As MouseEventArgs) 103 | MyBase.OnMouseUp(e) 104 | _State = MouseState.Over 105 | Invalidate() 106 | End Sub 107 | 108 | #End Region 109 | 110 | #Region " Properties " 111 | Private _Rounded As Boolean 112 | Public Property RoundedCorners() As Boolean 113 | Get 114 | Return _Rounded 115 | End Get 116 | Set(ByVal value As Boolean) 117 | _Rounded = value 118 | End Set 119 | End Property 120 | #End Region 121 | 122 | Sub New() 123 | Size = New Size(90, 30) 124 | End Sub 125 | 126 | Protected Overrides Sub OnPaint(e As PaintEventArgs) 127 | MyBase.OnPaint(e) 128 | Dim G = e.Graphics 129 | G.Clear(Color.FromArgb(236, 73, 99)) 130 | Select Case _State 131 | Case MouseState.Over 132 | G.FillRectangle(New SolidBrush(Color.FromArgb(25, Color.White)), New Rectangle(0, 0, Width, Height)) 133 | 134 | Case MouseState.Down 135 | G.FillRectangle(New SolidBrush(Color.FromArgb(25, Color.Black)), New Rectangle(0, 0, Width, Height)) 136 | End Select 137 | If _Rounded Then 138 | G.FillRectangle(New SolidBrush(Parent.BackColor), New Rectangle(0, 0, 1, 1)) 139 | G.FillRectangle(New SolidBrush(Parent.BackColor), New Rectangle(Width - 1, 0, 1, 1)) 140 | G.FillRectangle(New SolidBrush(Parent.BackColor), New Rectangle(0, Height - 1, 1, 1)) 141 | G.FillRectangle(New SolidBrush(Parent.BackColor), New Rectangle(Width - 1, Height - 1, 1, 1)) 142 | End If 143 | Dim _StringF As New StringFormat 144 | _StringF.Alignment = StringAlignment.Center 145 | _StringF.LineAlignment = StringAlignment.Center 146 | G.DrawString(Text, New Font("Segoe UI", 10), Brushes.White, New RectangleF(0, 0, Width - 1, Height - 1), _StringF) 147 | End Sub 148 | End Class 149 | 150 | Class KnightGroupBox 151 | Inherits ContainerControl 152 | 153 | Sub New() 154 | Size = New Size(200, 100) 155 | BackColor = Color.FromArgb(37, 39, 48) 156 | End Sub 157 | 158 | Protected Overrides Sub OnPaint(e As PaintEventArgs) 159 | MyBase.OnPaint(e) 160 | Dim G = e.Graphics 161 | G.Clear(BackColor) 162 | G.DrawRectangle(New Pen(Color.FromArgb(236, 73, 99)), New Rectangle(0, 0, Width - 1, Height - 1)) 163 | G.FillRectangle(New SolidBrush(Color.FromArgb(46, 49, 61)), New Rectangle(0, 0, 1, 1)) 164 | G.FillRectangle(New SolidBrush(Color.FromArgb(46, 49, 61)), New Rectangle(Width - 1, 0, 1, 1)) 165 | G.FillRectangle(New SolidBrush(Color.FromArgb(46, 49, 61)), New Rectangle(0, Height - 1, 1, 1)) 166 | G.FillRectangle(New SolidBrush(Color.FromArgb(46, 49, 61)), New Rectangle(Width - 1, Height - 1, 1, 1)) 167 | G.DrawString(Text, New Font("Segoe UI", 10), Brushes.White, New Point(7, 5)) 168 | End Sub 169 | 170 | End Class 171 | 172 | 173 | Class KnightRadioButton 174 | Inherits Control 175 | 176 | #Region " Variables" 177 | Private _Checked As Boolean 178 | #End Region 179 | 180 | #Region " Properties" 181 | Property Checked() As Boolean 182 | Get 183 | Return _Checked 184 | End Get 185 | Set(value As Boolean) 186 | _Checked = value 187 | InvalidateControls() 188 | RaiseEvent CheckedChanged(Me) 189 | Invalidate() 190 | End Set 191 | End Property 192 | Event CheckedChanged(ByVal sender As Object) 193 | Protected Overrides Sub OnClick(e As EventArgs) 194 | If Not _Checked Then Checked = True 195 | MyBase.OnClick(e) 196 | End Sub 197 | Private Sub InvalidateControls() 198 | If Not IsHandleCreated OrElse Not _Checked Then Return 199 | For Each C As Control In Parent.Controls 200 | If C IsNot Me AndAlso TypeOf C Is KnightRadioButton Then 201 | DirectCast(C, KnightRadioButton).Checked = False 202 | Invalidate() 203 | End If 204 | Next 205 | End Sub 206 | Protected Overrides Sub OnCreateControl() 207 | MyBase.OnCreateControl() 208 | InvalidateControls() 209 | End Sub 210 | 211 | 212 | Protected Overrides Sub OnResize(e As EventArgs) 213 | MyBase.OnResize(e) 214 | Height = 16 215 | End Sub 216 | 217 | #End Region 218 | 219 | Protected Overrides Sub OnPaint(e As PaintEventArgs) 220 | MyBase.OnPaint(e) 221 | Dim G = e.Graphics 222 | G.SmoothingMode = 2 223 | G.TextRenderingHint = 5 224 | G.Clear(Parent.BackColor) 225 | If Parent.BackColor = Color.FromArgb(46, 49, 61) Then 226 | G.FillEllipse(New SolidBrush(Color.FromArgb(37, 39, 48)), New Rectangle(0, 0, 15, 15)) 227 | Else 228 | G.FillEllipse(New SolidBrush(Color.FromArgb(24, 25, 31)), New Rectangle(0, 0, 15, 15)) 229 | End If 230 | If Checked Then 231 | G.FillEllipse(New SolidBrush(Color.FromArgb(236, 73, 99)), New Rectangle(4, 4, 7, 7)) 232 | End If 233 | G.DrawString(Text, New Font("Segoe UI", 10), Brushes.White, New Point(18, -2)) 234 | End Sub 235 | 236 | End Class 237 | 238 | 239 | Class KnightCheckBox 240 | Inherits Control 241 | 242 | #Region "Variables" 243 | Private _Checked As Boolean 244 | #End Region 245 | 246 | #Region " Properties" 247 | Protected Overrides Sub OnTextChanged(ByVal e As System.EventArgs) 248 | MyBase.OnTextChanged(e) 249 | Invalidate() 250 | End Sub 251 | 252 | Property Checked() As Boolean 253 | Get 254 | Return _Checked 255 | End Get 256 | Set(ByVal value As Boolean) 257 | _Checked = value 258 | Invalidate() 259 | End Set 260 | End Property 261 | 262 | Event CheckedChanged(ByVal sender As Object) 263 | Protected Overrides Sub OnClick(ByVal e As System.EventArgs) 264 | If Not _Checked Then 265 | Checked = True 266 | Else 267 | Checked = False 268 | End If 269 | RaiseEvent CheckedChanged(Me) 270 | MyBase.OnClick(e) 271 | End Sub 272 | 273 | Protected Overrides Sub OnResize(e As EventArgs) 274 | MyBase.OnResize(e) 275 | Height = 16 276 | End Sub 277 | 278 | #End Region 279 | 280 | 281 | Protected Overrides Sub OnPaint(e As PaintEventArgs) 282 | MyBase.OnPaint(e) 283 | Dim G = e.Graphics 284 | G.Clear(BackColor) 285 | 286 | If Parent.BackColor = Color.FromArgb(46, 49, 61) Then 287 | G.FillRectangle(New SolidBrush(Color.FromArgb(37, 39, 48)), New Rectangle(0, 0, 15, 15)) 288 | Else 289 | G.FillRectangle(New SolidBrush(Color.FromArgb(24, 25, 31)), New Rectangle(0, 0, 15, 15)) 290 | End If 291 | If Checked Then 292 | G.FillRectangle(New SolidBrush(Color.FromArgb(236, 73, 99)), New Rectangle(4, 4, 7, 7)) 293 | End If 294 | 295 | G.DrawString(Text, New Font("Segoe UI", 10), Brushes.White, New Point(18, -2)) 296 | 297 | End Sub 298 | End Class 299 | 300 | 301 | Class KnightTextBox 302 | Inherits Control 303 | 304 | #Region " Variables" 305 | Private WithEvents _TextBox As Windows.Forms.TextBox 306 | #End Region 307 | 308 | #Region " Properties" 309 | 310 | #Region " TextBox Properties" 311 | 312 | Private _TextAlign As HorizontalAlignment = HorizontalAlignment.Left 313 | _ 314 | Property TextAlign() As HorizontalAlignment 315 | Get 316 | Return _TextAlign 317 | End Get 318 | Set(ByVal value As HorizontalAlignment) 319 | _TextAlign = value 320 | If _TextBox IsNot Nothing Then 321 | _TextBox.TextAlign = value 322 | End If 323 | End Set 324 | End Property 325 | Private _MaxLength As Integer = 32767 326 | _ 327 | Property MaxLength() As Integer 328 | Get 329 | Return _MaxLength 330 | End Get 331 | Set(ByVal value As Integer) 332 | _MaxLength = value 333 | If _TextBox IsNot Nothing Then 334 | _TextBox.MaxLength = value 335 | End If 336 | End Set 337 | End Property 338 | Private _ReadOnly As Boolean 339 | _ 340 | Property [ReadOnly]() As Boolean 341 | Get 342 | Return _ReadOnly 343 | End Get 344 | Set(ByVal value As Boolean) 345 | _ReadOnly = value 346 | If _TextBox IsNot Nothing Then 347 | _TextBox.ReadOnly = value 348 | End If 349 | End Set 350 | End Property 351 | Private _UseSystemPasswordChar As Boolean 352 | _ 353 | Property UseSystemPasswordChar() As Boolean 354 | Get 355 | Return _UseSystemPasswordChar 356 | End Get 357 | Set(ByVal value As Boolean) 358 | _UseSystemPasswordChar = value 359 | If _TextBox IsNot Nothing Then 360 | _TextBox.UseSystemPasswordChar = value 361 | End If 362 | End Set 363 | End Property 364 | Private _Multiline As Boolean 365 | _ 366 | Property Multiline() As Boolean 367 | Get 368 | Return _Multiline 369 | End Get 370 | Set(ByVal value As Boolean) 371 | _Multiline = value 372 | If _TextBox IsNot Nothing Then 373 | _TextBox.Multiline = value 374 | 375 | If value Then 376 | _TextBox.Height = Height - 11 377 | Else 378 | Height = _TextBox.Height + 11 379 | End If 380 | 381 | End If 382 | End Set 383 | End Property 384 | _ 385 | Overrides Property Text As String 386 | Get 387 | Return MyBase.Text 388 | End Get 389 | Set(ByVal value As String) 390 | MyBase.Text = value 391 | If _TextBox IsNot Nothing Then 392 | _TextBox.Text = value 393 | End If 394 | End Set 395 | End Property 396 | _ 397 | Overrides Property Font As Font 398 | Get 399 | Return MyBase.Font 400 | End Get 401 | Set(ByVal value As Font) 402 | MyBase.Font = value 403 | If _TextBox IsNot Nothing Then 404 | _TextBox.Font = value 405 | _TextBox.Location = New Point(3, 5) 406 | _TextBox.Width = Width - 6 407 | 408 | If Not _Multiline Then 409 | Height = _TextBox.Height + 11 410 | End If 411 | End If 412 | End Set 413 | End Property 414 | 415 | Protected Overrides Sub OnCreateControl() 416 | MyBase.OnCreateControl() 417 | If Not Controls.Contains(_TextBox) Then 418 | Controls.Add(_TextBox) 419 | End If 420 | End Sub 421 | Private Sub OnBaseTextChanged(ByVal s As Object, ByVal e As EventArgs) 422 | Text = _TextBox.Text 423 | End Sub 424 | Private Sub OnBaseKeyDown(ByVal s As Object, ByVal e As KeyEventArgs) 425 | If e.Control AndAlso e.KeyCode = Keys.A Then 426 | _TextBox.SelectAll() 427 | e.SuppressKeyPress = True 428 | End If 429 | If e.Control AndAlso e.KeyCode = Keys.C Then 430 | _TextBox.Copy() 431 | e.SuppressKeyPress = True 432 | End If 433 | End Sub 434 | Protected Overrides Sub OnResize(ByVal e As EventArgs) 435 | _TextBox.Location = New Point(5, 5) 436 | _TextBox.Width = Width - 10 437 | 438 | If _Multiline Then 439 | _TextBox.Height = Height - 11 440 | Else 441 | Height = _TextBox.Height + 11 442 | End If 443 | MyBase.OnResize(e) 444 | End Sub 445 | 446 | #End Region 447 | #End Region 448 | Sub New() 449 | SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.UserPaint Or _ 450 | ControlStyles.ResizeRedraw Or ControlStyles.OptimizedDoubleBuffer Or _ 451 | ControlStyles.SupportsTransparentBackColor, True) 452 | DoubleBuffered = True 453 | 454 | BackColor = Color.Transparent 455 | 456 | _TextBox = New Windows.Forms.TextBox 457 | _TextBox.Font = New Font("Segoe UI", 10) 458 | _TextBox.Text = Text 459 | _TextBox.BackColor = Color.FromArgb(37, 39, 48) 460 | _TextBox.ForeColor = Color.White 461 | _TextBox.MaxLength = _MaxLength 462 | _TextBox.Multiline = _Multiline 463 | _TextBox.ReadOnly = _ReadOnly 464 | _TextBox.UseSystemPasswordChar = _UseSystemPasswordChar 465 | _TextBox.BorderStyle = BorderStyle.None 466 | _TextBox.Location = New Point(5, 5) 467 | _TextBox.Width = Width - 10 468 | 469 | _TextBox.Cursor = Cursors.IBeam 470 | 471 | If _Multiline Then 472 | _TextBox.Height = Height - 11 473 | Else 474 | Height = _TextBox.Height + 11 475 | End If 476 | 477 | AddHandler _TextBox.TextChanged, AddressOf OnBaseTextChanged 478 | AddHandler _TextBox.KeyDown, AddressOf OnBaseKeyDown 479 | End Sub 480 | 481 | Protected Overrides Sub OnPaint(e As PaintEventArgs) 482 | MyBase.OnPaint(e) 483 | Dim G = e.Graphics 484 | G.Clear(Color.FromArgb(37, 39, 48)) 485 | G.DrawRectangle(New Pen(Color.FromArgb(236, 73, 99)), New Rectangle(0, 0, Width - 1, Height - 1)) 486 | End Sub 487 | End Class 488 | 489 | Class KnightClose 490 | Inherits Control 491 | 492 | #Region " Declarations " 493 | Private _State As MouseState 494 | #End Region 495 | 496 | #Region " MouseStates " 497 | Protected Overrides Sub OnMouseEnter(e As EventArgs) 498 | MyBase.OnMouseEnter(e) 499 | _State = MouseState.Over 500 | Invalidate() 501 | End Sub 502 | 503 | Protected Overrides Sub OnMouseLeave(e As EventArgs) 504 | MyBase.OnMouseLeave(e) 505 | _State = MouseState.None 506 | Invalidate() 507 | End Sub 508 | 509 | Protected Overrides Sub OnMouseDown(e As MouseEventArgs) 510 | MyBase.OnMouseDown(e) 511 | _State = MouseState.Down 512 | Invalidate() 513 | End Sub 514 | 515 | Protected Overrides Sub OnMouseUp(e As MouseEventArgs) 516 | MyBase.OnMouseUp(e) 517 | _State = MouseState.Over 518 | Invalidate() 519 | End Sub 520 | 521 | Protected Overrides Sub OnClick(e As EventArgs) 522 | MyBase.OnClick(e) 523 | Environment.Exit(0) 524 | End Sub 525 | #End Region 526 | 527 | Protected Overrides Sub OnResize(e As EventArgs) 528 | MyBase.OnResize(e) 529 | Size = New Size(12, 12) 530 | End Sub 531 | 532 | Sub New() 533 | SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.UserPaint Or _ 534 | ControlStyles.ResizeRedraw Or ControlStyles.OptimizedDoubleBuffer, True) 535 | DoubleBuffered = True 536 | Size = New Size(12, 12) 537 | End Sub 538 | 539 | Protected Overrides Sub OnPaint(e As PaintEventArgs) 540 | MyBase.OnPaint(e) 541 | Dim G = e.Graphics 542 | 543 | G.Clear(Color.FromArgb(236, 73, 99)) 544 | 545 | Dim _StringF As New StringFormat 546 | _StringF.Alignment = StringAlignment.Center 547 | _StringF.LineAlignment = StringAlignment.Center 548 | 549 | G.DrawString("r", New Font("Marlett", 11), Brushes.White, New RectangleF(0, 0, Width, Height), _StringF) 550 | 551 | Select Case _State 552 | Case MouseState.Over 553 | G.DrawString("r", New Font("Marlett", 11), New SolidBrush(Color.FromArgb(25, Color.White)), New RectangleF(0, 0, Width, Height), _StringF) 554 | 555 | Case MouseState.Down 556 | G.DrawString("r", New Font("Marlett", 11), New SolidBrush(Color.FromArgb(40, Color.Black)), New RectangleF(0, 0, Width, Height), _StringF) 557 | 558 | End Select 559 | 560 | End Sub 561 | 562 | End Class 563 | 564 | Class KnightMini 565 | Inherits Control 566 | 567 | #Region " Declarations " 568 | Private _State As MouseState 569 | #End Region 570 | 571 | #Region " MouseStates " 572 | Protected Overrides Sub OnMouseEnter(e As EventArgs) 573 | MyBase.OnMouseEnter(e) 574 | _State = MouseState.Over 575 | Invalidate() 576 | End Sub 577 | 578 | Protected Overrides Sub OnMouseLeave(e As EventArgs) 579 | MyBase.OnMouseLeave(e) 580 | _State = MouseState.None 581 | Invalidate() 582 | End Sub 583 | 584 | Protected Overrides Sub OnMouseDown(e As MouseEventArgs) 585 | MyBase.OnMouseDown(e) 586 | _State = MouseState.Down 587 | Invalidate() 588 | End Sub 589 | 590 | Protected Overrides Sub OnMouseUp(e As MouseEventArgs) 591 | MyBase.OnMouseUp(e) 592 | _State = MouseState.Over 593 | Invalidate() 594 | End Sub 595 | 596 | Protected Overrides Sub OnClick(e As EventArgs) 597 | MyBase.OnClick(e) 598 | FindForm.WindowState = FormWindowState.Minimized 599 | End Sub 600 | #End Region 601 | 602 | Protected Overrides Sub OnResize(e As EventArgs) 603 | MyBase.OnResize(e) 604 | Size = New Size(12, 12) 605 | End Sub 606 | 607 | Sub New() 608 | SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.UserPaint Or _ 609 | ControlStyles.ResizeRedraw Or ControlStyles.OptimizedDoubleBuffer, True) 610 | DoubleBuffered = True 611 | Size = New Size(12, 12) 612 | End Sub 613 | Protected Overrides Sub OnPaint(e As PaintEventArgs) 614 | MyBase.OnPaint(e) 615 | Dim G = e.Graphics 616 | 617 | G.Clear(Color.FromArgb(236, 73, 99)) 618 | 619 | Dim _StringF As New StringFormat 620 | _StringF.Alignment = StringAlignment.Center 621 | _StringF.LineAlignment = StringAlignment.Center 622 | 623 | G.DrawString("0", New Font("Marlett", 11), Brushes.White, New RectangleF(0, 0, Width, Height), _StringF) 624 | 625 | Select Case _State 626 | Case MouseState.Over 627 | G.DrawString("0", New Font("Marlett", 11), New SolidBrush(Color.FromArgb(25, Color.White)), New RectangleF(0, 0, Width, Height), _StringF) 628 | 629 | Case MouseState.Down 630 | G.DrawString("0", New Font("Marlett", 11), New SolidBrush(Color.FromArgb(40, Color.Black)), New RectangleF(0, 0, Width, Height), _StringF) 631 | 632 | End Select 633 | 634 | End Sub 635 | 636 | End Class -------------------------------------------------------------------------------- /Knight/S21Ibji.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/VBTheme/729263e38ab40c4139b82e831cfe5eef85755ec0/Knight/S21Ibji.png -------------------------------------------------------------------------------- /LICENSE: -------------------------------------------------------------------------------- 1 | MIT License 2 | 3 | Copyright (c) 2016 Doge 4 | 5 | Permission is hereby granted, free of charge, to any person obtaining a copy 6 | of this software and associated documentation files (the "Software"), to deal 7 | in the Software without restriction, including without limitation the rights 8 | to use, copy, modify, merge, publish, distribute, sublicense, and/or sell 9 | copies of the Software, and to permit persons to whom the Software is 10 | furnished to do so, subject to the following conditions: 11 | 12 | The above copyright notice and this permission notice shall be included in all 13 | copies or substantial portions of the Software. 14 | 15 | THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR 16 | IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, 17 | FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE 18 | AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER 19 | LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, 20 | OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE 21 | SOFTWARE. 22 | -------------------------------------------------------------------------------- /LogIn/cYVrCK2.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/VBTheme/729263e38ab40c4139b82e831cfe5eef85755ec0/LogIn/cYVrCK2.png -------------------------------------------------------------------------------- /Meph/xCaSEYm.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/VBTheme/729263e38ab40c4139b82e831cfe5eef85755ec0/Meph/xCaSEYm.png -------------------------------------------------------------------------------- /MonoFlat/L5KfFGe.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/VBTheme/729263e38ab40c4139b82e831cfe5eef85755ec0/MonoFlat/L5KfFGe.png -------------------------------------------------------------------------------- /Morphic/CpB6D3t.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/VBTheme/729263e38ab40c4139b82e831cfe5eef85755ec0/Morphic/CpB6D3t.png -------------------------------------------------------------------------------- /Mystic/2xhMnVQ.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/VBTheme/729263e38ab40c4139b82e831cfe5eef85755ec0/Mystic/2xhMnVQ.png -------------------------------------------------------------------------------- /NEF Theme/9510199357.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/VBTheme/729263e38ab40c4139b82e831cfe5eef85755ec0/NEF Theme/9510199357.png -------------------------------------------------------------------------------- /New/c61bd7bc03549ad364c631e2aff70272.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/VBTheme/729263e38ab40c4139b82e831cfe5eef85755ec0/New/c61bd7bc03549ad364c631e2aff70272.png -------------------------------------------------------------------------------- /Onlykl/Onlykl Theme.txt: -------------------------------------------------------------------------------- 1 | Imports System.Drawing.Drawing2D 2 | Imports System.ComponentModel 3 | 4 | Module ThemeModule 5 | 6 | Friend Const SLOPE As Integer = 4 7 | 8 | Friend g As Graphics 9 | 10 | Friend Enum MouseState 11 | None 12 | Over 13 | Down 14 | End Enum 15 | 16 | Public Sub DrawCenteredString(g As Graphics, text As String, font As Font, brush As Brush, rect As Rectangle, Optional xOffset As Integer = 0, Optional yOffset As Integer = 0) 17 | 18 | Dim textSize As SizeF = g.MeasureString(text, font) 19 | Dim textX As Integer = rect.X + (rect.Width 2) - (textSize.Width 2) + xOffset 20 | Dim textY As Integer = rect.Y + (rect.Height 2) - (textSize.Height 2) + yOffset 21 | 22 | g.DrawString(text, font, brush, textX, textY) 23 | 24 | End Sub 25 | 26 | End Module 27 | 28 | Class OnlyGroupBox 29 | Inherits ContainerControl 30 | 31 | Sub New() 32 | 33 | SetStyle(DirectCast(139286, ControlStyles), True) 34 | SetStyle(ControlStyles.Selectable, False) 35 | 36 | Size = New Size(400, 300) 37 | 38 | backBrush = New SolidBrush(Color.FromArgb(0, 70, 90)) 39 | borderPen = New Pen(Color.FromArgb(90, 135, 140)) 40 | coverPen = New Pen(Color.FromArgb(0, 70, 90)) 41 | 42 | End Sub 43 | 44 | Private backBrush As SolidBrush 45 | Private borderPen As Pen 46 | Private coverPen As Pen 47 | 48 | Protected Overrides Sub OnPaint(e As PaintEventArgs) 49 | 50 | g = e.Graphics 51 | g.Clear(Parent.BackColor) 52 | g.SmoothingMode = SmoothingMode.AntiAlias 53 | 54 | g.DrawRectangle(borderPen, New Rectangle(0, 0, Width - 1, Height - 1)) 55 | 56 | g.DrawLine(coverPen, New Point(0, Height 8), New Point(0, Height 1.8)) 57 | g.DrawLine(coverPen, New Point(Width 20, 0), New Point(Width - (Width 8), 0)) 58 | g.DrawLine(coverPen, New Point(Width - 1, Height 5), New Point(Width - 1, Height 1.25)) 59 | 60 | 61 | End Sub 62 | 63 | End Class 64 | 65 | Class OnlyButton 66 | Inherits Control 67 | 68 | Private state As MouseState 69 | 70 | Private textSize As SizeF 71 | Private textX, textY As Integer 72 | 73 | Sub New() 74 | 75 | SetStyle(DirectCast(139286, ControlStyles), True) 76 | SetStyle(ControlStyles.Selectable, False) 77 | 78 | Cursor = Cursors.Hand 79 | Font = New Font(Font.FontFamily, 10) 80 | Size = New Size(120, 30) 81 | 82 | textBrush = New SolidBrush(Color.FromArgb(20, 60, 70)) 83 | overBrush = New SolidBrush(Color.FromArgb(40, 0, 70, 90)) 84 | downBrush = New SolidBrush(Color.FromArgb(100, 0, 70, 90)) 85 | 86 | End Sub 87 | 88 | Private boundsRect As Rectangle 89 | 90 | Private textBrush As SolidBrush 91 | Private overBrush, downBrush As SolidBrush 92 | 93 | Protected Overrides Sub OnPaint(e As PaintEventArgs) 94 | 95 | g = e.Graphics 96 | g.SmoothingMode = SmoothingMode.AntiAlias 97 | 98 | boundsRect = New Rectangle(0, 0, Width, Height) 99 | 100 | g.FillRectangle(Brushes.WhiteSmoke, boundsRect) 101 | 102 | If state = MouseState.Over Then 103 | g.FillRectangle(overBrush, boundsRect) 104 | ElseIf state = MouseState.Down Then 105 | g.FillRectangle(downBrush, boundsRect) 106 | End If 107 | 108 | DrawCenteredString(g, Text, Font, textBrush, boundsRect, 0, 1) 109 | 110 | End Sub 111 | 112 | Protected Overrides Sub OnMouseEnter(e As EventArgs) 113 | state = MouseState.Over 114 | Invalidate() 115 | MyBase.OnMouseEnter(e) 116 | End Sub 117 | 118 | Protected Overrides Sub OnMouseLeave(e As EventArgs) 119 | state = MouseState.None 120 | Invalidate() 121 | MyBase.OnMouseLeave(e) 122 | End Sub 123 | 124 | Protected Overrides Sub OnMouseDown(e As MouseEventArgs) 125 | state = MouseState.Down 126 | Invalidate() 127 | MyBase.OnMouseDown(e) 128 | End Sub 129 | 130 | Protected Overrides Sub OnMouseUp(e As MouseEventArgs) 131 | state = MouseState.Over 132 | Invalidate() 133 | MyBase.OnMouseUp(e) 134 | End Sub 135 | 136 | Protected Overrides Sub OnTextChanged(e As EventArgs) 137 | Invalidate() 138 | MyBase.OnTextChanged(e) 139 | End Sub 140 | 141 | End Class 142 | 143 | Class OnlyMessageBox 144 | Inherits Control 145 | 146 | Sub New() 147 | 148 | SetStyle(DirectCast(139286, ControlStyles), True) 149 | SetStyle(ControlStyles.Selectable, False) 150 | 151 | Font = New Font(Font.FontFamily, 10) 152 | Size = New Size(400, 44) 153 | 154 | textBrush = New SolidBrush(Color.FromArgb(100, 140, 150)) 155 | 156 | End Sub 157 | 158 | Private boundsRect As Rectangle 159 | 160 | Private textBrush As SolidBrush 161 | 162 | Protected Overrides Sub OnPaint(e As PaintEventArgs) 163 | 164 | g = e.Graphics 165 | g.Clear(Color.FromArgb(25, 90, 105)) 166 | 167 | boundsRect = New Rectangle(0, 0, Width - 1, Height - 1) 168 | DrawCenteredString(g, Text, Font, textBrush, boundsRect, 0, 1) 169 | 170 | End Sub 171 | 172 | Protected Overrides Sub OnTextChanged(e As EventArgs) 173 | Invalidate() 174 | MyBase.OnTextChanged(e) 175 | End Sub 176 | 177 | End Class 178 | 179 | DefaultEvent(TextChanged) Class OnlyTextBox 180 | Inherits Control 181 | 182 | Private base As TextBox 183 | 184 | Private _maxLength As Integer 185 | Private _readOnly As Boolean 186 | Private _useSystemPasswordChar As Boolean 187 | Private _image As Image 188 | 189 | Public Property MaxLength() As Integer 190 | Get 191 | Return _maxLength 192 | End Get 193 | Set(ByVal value As Integer) 194 | _maxLength = value 195 | If base IsNot Nothing Then 196 | base.MaxLength = value 197 | End If 198 | End Set 199 | End Property 200 | 201 | Public Property [ReadOnly]() As Boolean 202 | Get 203 | Return _readOnly 204 | End Get 205 | Set(ByVal value As Boolean) 206 | _readOnly = value 207 | If base IsNot Nothing Then 208 | base.ReadOnly = value 209 | End If 210 | End Set 211 | End Property 212 | 213 | Public Property UseSystemPasswordChar() As Boolean 214 | Get 215 | Return _useSystemPasswordChar 216 | End Get 217 | Set(ByVal value As Boolean) 218 | _useSystemPasswordChar = value 219 | If base IsNot Nothing Then 220 | base.UseSystemPasswordChar = value 221 | End If 222 | End Set 223 | End Property 224 | 225 | Public Property Image As Image 226 | Get 227 | Return _image 228 | End Get 229 | Set(value As Image) 230 | _image = value 231 | ApplySizing() 232 | Invalidate() 233 | End Set 234 | End Property 235 | 236 | Public Overrides Property Text() As String 237 | Get 238 | Return MyBase.Text 239 | End Get 240 | Set(ByVal value As String) 241 | MyBase.Text = value 242 | If base IsNot Nothing Then 243 | base.Text = value 244 | End If 245 | End Set 246 | End Property 247 | 248 | Public Overrides Property Font() As Font 249 | Get 250 | Return MyBase.Font 251 | End Get 252 | Set(ByVal value As Font) 253 | MyBase.Font = value 254 | If base IsNot Nothing Then 255 | base.Font = value 256 | base.Location = New Point(3, 5) 257 | base.Width = Width - 6 258 | End If 259 | End Set 260 | End Property 261 | 262 | Protected Overrides Sub OnCreateControl() 263 | MyBase.OnCreateControl() 264 | If Not Controls.Contains(base) Then 265 | Controls.Add(base) 266 | End If 267 | End Sub 268 | 269 | Sub New() 270 | 271 | SetStyle(DirectCast(139286, ControlStyles), True) 272 | SetStyle(ControlStyles.Selectable, False) 273 | 274 | Cursor = Cursors.IBeam 275 | Font = New Font(Arial, 10) 276 | 277 | MaxLength = 32767 278 | 279 | base = New TextBox 280 | base.BackColor = Color.FromArgb(10, 75, 95) 281 | base.Font = Font 282 | base.Text = Text 283 | base.ForeColor = Color.WhiteSmoke 284 | base.MaxLength = _maxLength 285 | base.ReadOnly = _readOnly 286 | base.UseSystemPasswordChar = _useSystemPasswordChar 287 | base.BorderStyle = BorderStyle.None 288 | base.Location = New Point(10, 8) 289 | base.Width = Width - 10 290 | 291 | Height = base.Height + 13 292 | 293 | backBrush = New SolidBrush(Color.FromArgb(10, 75, 95)) 294 | borderPen = New Pen(Color.FromArgb(70, 120, 135)) 295 | 296 | AddHandler base.TextChanged, AddressOf OnBaseTextChanged 297 | AddHandler base.KeyDown, AddressOf OnBaseKeyDown 298 | 299 | End Sub 300 | 301 | Private boundsRect As Rectangle 302 | Private imageRect As Rectangle 303 | 304 | Private backBrush As SolidBrush 305 | Private borderPen As Pen 306 | 307 | Protected Overrides Sub OnPaint(e As PaintEventArgs) 308 | 309 | g = e.Graphics 310 | g.Clear(Parent.BackColor) 311 | g.SmoothingMode = SmoothingMode.AntiAlias 312 | 313 | boundsRect = New Rectangle(0, 0, Width - 1, Height - 1) 314 | g.FillRectangle(backBrush, boundsRect) 315 | g.DrawRectangle(borderPen, boundsRect) 316 | 317 | If _image IsNot Nothing Then 318 | imageRect = New Rectangle(Width - 27, 6, 20, 20) 319 | g.DrawImage(_image, imageRect) 320 | End If 321 | 322 | End Sub 323 | 324 | Private Sub OnBaseTextChanged(ByVal s As Object, ByVal e As EventArgs) 325 | Text = base.Text 326 | End Sub 327 | 328 | Private Sub OnBaseKeyDown(ByVal s As Object, ByVal e As KeyEventArgs) 329 | If e.Control AndAlso e.KeyCode = Keys.A Then 330 | base.SelectAll() 331 | e.SuppressKeyPress = True 332 | End If 333 | End Sub 334 | 335 | Private Sub ApplySizing() 336 | base.Location = New Point(10, 8) 337 | If _image IsNot Nothing Then 338 | base.Width = Width - 44 339 | Else 340 | base.Width = Width - 20 341 | End If 342 | Height = base.Height + 16 343 | End Sub 344 | 345 | Protected Overrides Sub OnResize(ByVal e As EventArgs) 346 | ApplySizing() 347 | MyBase.OnResize(e) 348 | End Sub 349 | 350 | Protected Overrides Sub OnMouseDown(ByVal e As System.Windows.Forms.MouseEventArgs) 351 | base.SelectionStart = base.TextLength 352 | base.Focus() 353 | MyBase.OnMouseDown(e) 354 | End Sub 355 | 356 | End Class 357 | 358 | Class OnlyWarningMessage 359 | Inherits Control 360 | 361 | Private _image As Image 362 | 363 | Public Property Image As Image 364 | Get 365 | Return _image 366 | End Get 367 | Set(value As Image) 368 | _image = value 369 | Invalidate() 370 | End Set 371 | End Property 372 | 373 | Sub New() 374 | 375 | SetStyle(DirectCast(139286, ControlStyles), True) 376 | SetStyle(ControlStyles.Selectable, False) 377 | 378 | Font = New Font(Font.FontFamily, 9) 379 | Size = New Size(140, 26) 380 | 381 | End Sub 382 | 383 | Private imageRect As Rectangle 384 | Private boundsRect As Rectangle 385 | 386 | Protected Overrides Sub OnPaint(e As PaintEventArgs) 387 | 388 | g = e.Graphics 389 | g.Clear(Parent.BackColor) 390 | g.SmoothingMode = SmoothingMode.AntiAlias 391 | 392 | If _image IsNot Nothing Then 393 | imageRect = New Rectangle(0, (Height 2) - 10, 20, 20) 394 | g.DrawImage(_image, imageRect) 395 | End If 396 | 397 | g.DrawString(Text, Font, Brushes.WhiteSmoke, New Point(24, (Height 2) - g.MeasureString(Text, Font).Height 2)) 398 | 399 | End Sub 400 | 401 | Protected Overrides Sub OnTextChanged(e As EventArgs) 402 | Invalidate() 403 | MyBase.OnTextChanged(e) 404 | End Sub 405 | 406 | End Class -------------------------------------------------------------------------------- /Onlykl/gSYjnZK.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/VBTheme/729263e38ab40c4139b82e831cfe5eef85755ec0/Onlykl/gSYjnZK.png -------------------------------------------------------------------------------- /PV/5dc5ee8bd2.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/VBTheme/729263e38ab40c4139b82e831cfe5eef85755ec0/PV/5dc5ee8bd2.png -------------------------------------------------------------------------------- /PV/f5a132db01.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/VBTheme/729263e38ab40c4139b82e831cfe5eef85755ec0/PV/f5a132db01.png -------------------------------------------------------------------------------- /Positron/lREzeIc.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/VBTheme/729263e38ab40c4139b82e831cfe5eef85755ec0/Positron/lREzeIc.png -------------------------------------------------------------------------------- /Pro Controls/Pro Controls Theme.txt: -------------------------------------------------------------------------------- 1 | Imports System.Drawing.Drawing2D 2 | 3 | Class Adjustments 4 | 5 | 'Default FontFamily that will be used throughout the entire theme 6 | Public Shared ReadOnly DefaultFontFamily As FontFamily = New FontFamily("Verdana") 7 | 8 | 'Roundness of the corners of most controls. Higher = more circular 9 | Public Shared ReadOnly Roundness As Integer = 4 10 | 11 | End Class 12 | 13 | Class DrawingHelper 14 | 15 | Enum RoundingStyle 16 | All 17 | Top 18 | Bottom 19 | Left 20 | Right 21 | End Enum 22 | 23 | Public Function RoundRect(ByVal rect As Rectangle, ByVal slope As Integer, Optional ByVal style As RoundingStyle = RoundingStyle.All) As GraphicsPath 24 | 25 | Dim gp As GraphicsPath = New GraphicsPath() 26 | Dim arcWidth As Integer = slope * 2 27 | 28 | Select Case style 29 | Case RoundingStyle.All 30 | gp.AddArc(New Rectangle(rect.X, rect.Y, arcWidth, arcWidth), -180, 90) 31 | gp.AddArc(New Rectangle(rect.Width - arcWidth + rect.X, rect.Y, arcWidth, arcWidth), -90, 90) 32 | gp.AddArc(New Rectangle(rect.Width - arcWidth + rect.X, rect.Height - arcWidth + rect.Y, arcWidth, arcWidth), 0, 90) 33 | gp.AddArc(New Rectangle(rect.X, rect.Height - arcWidth + rect.Y, arcWidth, arcWidth), 90, 90) 34 | Case RoundingStyle.Top 35 | gp.AddArc(New Rectangle(rect.X, rect.Y, arcWidth, arcWidth), -180, 90) 36 | gp.AddArc(New Rectangle(rect.Width - arcWidth + rect.X, rect.Y, arcWidth, arcWidth), -90, 90) 37 | gp.AddLine(New Point(rect.X + rect.Width, rect.Y + rect.Height), New Point(rect.X, rect.Y + rect.Height)) 38 | Case RoundingStyle.Bottom 39 | gp.AddLine(New Point(rect.X, rect.Y), New Point(rect.X + rect.Width, rect.Y)) 40 | gp.AddArc(New Rectangle(rect.Width - arcWidth + rect.X, rect.Height - arcWidth + rect.Y, arcWidth, arcWidth), 0, 90) 41 | gp.AddArc(New Rectangle(rect.X, rect.Height - arcWidth + rect.Y, arcWidth, arcWidth), 90, 90) 42 | Case RoundingStyle.Left 43 | gp.AddArc(New Rectangle(rect.X, rect.Y, arcWidth, arcWidth), -180, 90) 44 | gp.AddLine(New Point(rect.X + rect.Width, rect.Y), New Point(rect.X + rect.Width, rect.Y + rect.Height)) 45 | gp.AddArc(New Rectangle(rect.X, rect.Height - arcWidth + rect.Y, arcWidth, arcWidth), 90, 90) 46 | Case RoundingStyle.Right 47 | gp.AddLine(New Point(rect.X, rect.Y + rect.Height), New Point(rect.X, rect.Y)) 48 | gp.AddArc(New Rectangle(rect.Width - arcWidth + rect.X, rect.Y, arcWidth, arcWidth), -90, 90) 49 | gp.AddArc(New Rectangle(rect.Width - arcWidth + rect.X, rect.Height - arcWidth + rect.Y, arcWidth, arcWidth), 0, 90) 50 | End Select 51 | 52 | gp.CloseAllFigures() 53 | 54 | Return gp 55 | 56 | End Function 57 | 58 | Enum ColorAdjustmentType 59 | Lighten 60 | Darken 61 | End Enum 62 | 63 | Public Function AdjustColor(ByVal c As Color, ByVal intensity As Integer, ByVal adjustment As ColorAdjustmentType, Optional ByVal keepAlpha As Boolean = True) As Color 64 | 65 | Dim r, g, b As Integer 66 | 67 | If intensity < 1 Then 68 | intensity = 1 69 | ElseIf intensity > 255 Then 70 | intensity = 255 71 | End If 72 | 73 | If adjustment = ColorAdjustmentType.Lighten Then 74 | r = IncrementValue(c.R, intensity) 75 | g = IncrementValue(c.G, intensity) 76 | b = IncrementValue(c.B, intensity) 77 | Else 78 | r = DecrementValue(c.R, intensity) 79 | g = DecrementValue(c.G, intensity) 80 | b = DecrementValue(c.B, intensity) 81 | End If 82 | 83 | If keepAlpha Then 84 | Return Color.FromArgb(c.A, r, g, b) 85 | Else 86 | Return Color.FromArgb(255, r, g, b) 87 | End If 88 | 89 | 90 | End Function 91 | 92 | Private Function IncrementValue(ByVal initialValue As Integer, ByVal intensity As Integer, Optional ByVal maximum As Integer = 255) 93 | If initialValue + intensity < maximum Then 94 | Return initialValue + intensity 95 | Else 96 | Return maximum 97 | End If 98 | End Function 99 | 100 | Private Function DecrementValue(ByVal initialValue As Integer, ByVal intensity As Integer, Optional ByVal minimum As Integer = 0) 101 | If initialValue - intensity > minimum Then 102 | Return initialValue - intensity 103 | Else 104 | Return minimum 105 | End If 106 | End Function 107 | 108 | End Class 109 | 110 | Class MultiLineHandler 111 | 112 | Public Function GetLines(ByVal g As Graphics, ByVal str As String, ByVal font As Font, ByVal maxLength As Integer) As List(Of String) 113 | 114 | Dim result As New List(Of String) 115 | Dim sb As New System.Text.StringBuilder 116 | 117 | str = str.Replace(vbCr, "").Replace(vbLf, "") 118 | 119 | Dim words As String() 120 | If str.Contains(" ") Then 121 | words = str.Replace(Environment.NewLine, Nothing).Split(" ") 122 | Else 123 | result.Add(str) 124 | Return result 125 | End If 126 | 127 | For i = 0 To words.Count - 1 128 | 129 | If i = words.Count - 1 Then 130 | If g.MeasureString(sb.ToString & " " & words(i), font).Width < maxLength Then 131 | sb.Append(words(i)) 132 | result.Add(sb.ToString()) 133 | Else 134 | result.Add(sb.ToString()) 135 | result.Add(words(i)) 136 | End If 137 | ElseIf g.MeasureString(sb.ToString & " " & words(i), font).Width > maxLength Then 138 | result.Add(sb.ToString()) 139 | sb.Clear() 140 | sb.Append(words(i) & " ") 141 | Else 142 | sb.Append(words(i) & " ") 143 | End If 144 | 145 | Next 146 | 147 | Return result 148 | 149 | End Function 150 | 151 | End Class 152 | 153 | Class ProBasicButton 154 | Inherits Control 155 | 156 | Protected Overrides Sub OnPaint(e As PaintEventArgs) 157 | MyBase.OnPaint(e) 158 | 159 | Dim g As Graphics = e.Graphics 160 | g.SmoothingMode = SmoothingMode.HighQuality 161 | g.Clear(Parent.BackColor) 162 | 163 | Dim dh As New DrawingHelper 164 | Dim slope As Integer = Adjustments.Roundness 165 | 166 | Dim mainRect As New Rectangle(2, 0, Width - 5, Height - 1) 167 | Dim mainPath As GraphicsPath = dh.RoundRect(mainRect, slope) 168 | Dim backLGB As LinearGradientBrush 169 | If _scheme = ColorScheme.Orange Then 170 | backLGB = New LinearGradientBrush(mainRect, Color.FromArgb(255, 120, 0), Color.FromArgb(200, 50, 0), 90.0F) 171 | Else 172 | Dim backCB As New ColorBlend(3) 173 | backCB.Colors = {Color.WhiteSmoke, Color.WhiteSmoke, Color.FromArgb(225, 230, 230)} 174 | backCB.Positions = {0.0, 0.75, 1.0} 175 | backLGB = New LinearGradientBrush(mainRect, Color.Black, Color.Black, 90.0F) 176 | backLGB.InterpolationColors = backCB 177 | End If 178 | g.FillPath(backLGB, mainPath) 179 | 180 | If _scheme = ColorScheme.Orange Then 181 | If state = MouseState.Over Then 182 | g.FillPath(New SolidBrush(Color.FromArgb(18, Color.White)), mainPath) 183 | ElseIf state = MouseState.Down Then 184 | g.FillPath(New SolidBrush(Color.FromArgb(30, Color.White)), mainPath) 185 | End If 186 | Else 187 | If state = MouseState.Over Then 188 | g.FillPath(New SolidBrush(Color.FromArgb(10, Color.Black)), mainPath) 189 | ElseIf state = MouseState.Down Then 190 | g.FillPath(New SolidBrush(Color.FromArgb(18, Color.Black)), mainPath) 191 | End If 192 | End If 193 | 194 | Dim textX, textY As Integer 195 | If _image IsNot Nothing Then 196 | Dim bufferWidth As Integer = 4 197 | Dim imageSize As New Size(Height - 20, Height - 20) 198 | Dim imageLocation As Point 199 | Dim imageRect As Rectangle 200 | If _alignment = HorizontalAlignment.Left Then 201 | imageRect = New Rectangle(New Point(14, 10), imageSize) 202 | textX = imageRect.X + imageSize.Width + bufferWidth 203 | ElseIf _alignment = HorizontalAlignment.Center Then 204 | imageLocation = New Point((Width / 2) - (imageSize.Width / 2) - (bufferWidth / 2) - (g.MeasureString(Text, Font).Width / 2), (Height / 2) - (imageSize.Height / 2)) 205 | imageRect = New Rectangle(imageLocation, imageSize) 206 | textX = imageLocation.X + imageSize.Width + bufferWidth 207 | ElseIf _alignment = HorizontalAlignment.Right Then 208 | textX = Width - 14 - g.MeasureString(Text, Font).Width 209 | imageRect = New Rectangle(New Point(textX - bufferWidth - imageSize.Width, 10), imageSize) 210 | End If 211 | g.DrawImage(_image, imageRect) 212 | Else 213 | If _alignment = HorizontalAlignment.Left Then 214 | textX = 14 215 | ElseIf _alignment = HorizontalAlignment.Center Then 216 | textX = (Me.Width / 2) - (g.MeasureString(Text, Font).Width / 2) 217 | ElseIf _alignment = HorizontalAlignment.Right Then 218 | textX = Width - g.MeasureString(Text, Font).Width - 14 219 | End If 220 | End If 221 | textY = (Me.Height / 2) - (g.MeasureString(Text, Font).Height / 2) + 1 222 | 223 | Dim borderLGB As LinearGradientBrush 224 | If _scheme = ColorScheme.Orange Then 225 | g.DrawString(Text, Font, Brushes.WhiteSmoke, New Point(textX, textY)) 226 | borderLGB = New LinearGradientBrush(New Rectangle(0, 0, Width, Height), Color.FromArgb(180, 60, 0), Color.FromArgb(220, 120, 60), 90.0F) 227 | Else 228 | g.DrawString(Text, Font, New SolidBrush(Color.FromArgb(50, 50, 50)), New Point(textX, textY)) 229 | borderLGB = New LinearGradientBrush(New Rectangle(0, 0, Width, Height), Color.Silver, Color.Gainsboro, 90.0F) 230 | End If 231 | 232 | g.DrawPath(New Pen(borderLGB), mainPath) 233 | 234 | End Sub 235 | 236 | Sub New() 237 | SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.OptimizedDoubleBuffer Or ControlStyles.ResizeRedraw Or ControlStyles.UserPaint, True) 238 | Font = New Font(Adjustments.DefaultFontFamily, 10) 239 | Size = New Size(140, 50) 240 | Cursor = Cursors.Hand 241 | End Sub 242 | 243 | Private _image As Image 244 | Public Property Image As Image 245 | Get 246 | Return _image 247 | End Get 248 | Set(value As Image) 249 | _image = value 250 | Invalidate() 251 | End Set 252 | End Property 253 | 254 | Private _alignment As HorizontalAlignment = HorizontalAlignment.Center 255 | Public Property TextAlignment As HorizontalAlignment 256 | Get 257 | Return _alignment 258 | End Get 259 | Set(value As HorizontalAlignment) 260 | _alignment = value 261 | Invalidate() 262 | End Set 263 | End Property 264 | 265 | Enum ColorScheme 266 | White 267 | Orange 268 | End Enum 269 | 270 | Private _scheme As ColorScheme = ColorScheme.White 271 | Public Property Scheme As ColorScheme 272 | Get 273 | Return _scheme 274 | End Get 275 | Set(value As ColorScheme) 276 | _scheme = value 277 | Invalidate() 278 | End Set 279 | End Property 280 | 281 | Enum MouseState 282 | None 283 | Over 284 | Down 285 | End Enum 286 | 287 | Private state As MouseState = MouseState.None 288 | 289 | Protected Overrides Sub OnMouseEnter(e As EventArgs) 290 | MyBase.OnMouseEnter(e) 291 | state = MouseState.Over 292 | Invalidate() 293 | End Sub 294 | 295 | Protected Overrides Sub OnMouseLeave(e As EventArgs) 296 | MyBase.OnMouseLeave(e) 297 | state = MouseState.None 298 | Invalidate() 299 | End Sub 300 | 301 | Protected Overrides Sub OnMouseDown(e As MouseEventArgs) 302 | MyBase.OnMouseDown(e) 303 | state = MouseState.Down 304 | Invalidate() 305 | End Sub 306 | 307 | Protected Overrides Sub OnMouseUp(e As MouseEventArgs) 308 | MyBase.OnMouseUp(e) 309 | state = MouseState.Over 310 | Invalidate() 311 | End Sub 312 | 313 | Protected Overrides Sub OnTextChanged(e As EventArgs) 314 | MyBase.OnTextChanged(e) 315 | Invalidate() 316 | End Sub 317 | 318 | End Class 319 | 320 | Class ProDescriptiveButton 321 | Inherits Control 322 | 323 | Protected Overrides Sub OnPaint(e As PaintEventArgs) 324 | MyBase.OnPaint(e) 325 | 326 | Dim g As Graphics = e.Graphics 327 | g.SmoothingMode = SmoothingMode.HighQuality 328 | g.Clear(Parent.BackColor) 329 | 330 | Dim dh As New DrawingHelper 331 | Dim mlh As New MultiLineHandler 332 | Dim slope As Integer = Adjustments.Roundness 333 | 334 | Dim mainRect As New Rectangle(0, 0, Width - 1, Height - 1) 335 | Dim mainPath As GraphicsPath = dh.RoundRect(mainRect, slope) 336 | 337 | Dim backCB As New ColorBlend(3) 338 | backCB.Colors = {Color.WhiteSmoke, Color.WhiteSmoke, Color.FromArgb(225, 230, 230)} 339 | backCB.Positions = {0.0, 0.75, 1.0} 340 | Dim backLGB As New LinearGradientBrush(mainRect, Color.Black, Color.Black, 90.0F) 341 | backLGB.InterpolationColors = backCB 342 | g.FillPath(backLGB, mainPath) 343 | 344 | Dim textBrush As New SolidBrush(Color.FromArgb(50, 50, 50)) 345 | 346 | If _image IsNot Nothing Then 347 | Dim imageRect As New Rectangle(12, 12, 48, 48) 348 | g.DrawImage(_image, imageRect) 349 | g.DrawString(_title, _titleFont, textBrush, New Point(12 + 48 + 4, 12 + (48 / 2) - (g.MeasureString(_title, _titleFont).Height / 2))) 350 | Else 351 | g.DrawString(_title, _titleFont, textBrush, New Point(12, 12 + (48 / 2) - (g.MeasureString(_title, _titleFont).Height / 2))) 352 | End If 353 | 354 | Dim descY As Integer = 12 + 48 + 14 355 | textBrush = New SolidBrush(Color.FromArgb(120, 120, 120)) 356 | 357 | For Each line As String In mlh.GetLines(g, Text, Font, Width - 24) 358 | g.DrawString(line, Font, textBrush, New Point(12, descY)) 359 | descY += 13 360 | Next 361 | 362 | If state = MouseState.Over Then 363 | g.FillPath(New SolidBrush(Color.FromArgb(10, Color.Black)), mainPath) 364 | ElseIf state = MouseState.Down Then 365 | g.FillPath(New SolidBrush(Color.FromArgb(18, Color.Black)), mainPath) 366 | End If 367 | 368 | Dim borderLGB As New LinearGradientBrush(New Rectangle(0, 0, Width, Height), Color.Silver, Color.Gainsboro, 90.0F) 369 | g.DrawPath(New Pen(borderLGB), mainPath) 370 | 371 | End Sub 372 | 373 | Sub New() 374 | SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.OptimizedDoubleBuffer Or ControlStyles.ResizeRedraw Or ControlStyles.UserPaint, True) 375 | Font = New Font(Adjustments.DefaultFontFamily, 8) 376 | Size = New Size(200, 130) 377 | Cursor = Cursors.Hand 378 | End Sub 379 | 380 | Private _image As Image 381 | Public Property Image As Image 382 | Get 383 | Return _image 384 | End Get 385 | Set(value As Image) 386 | _image = value 387 | Invalidate() 388 | End Set 389 | End Property 390 | 391 | Private _title As String = "Title" 392 | Public Property Title As String 393 | Get 394 | Return _title 395 | End Get 396 | Set(value As String) 397 | _title = value 398 | Invalidate() 399 | End Set 400 | End Property 401 | 402 | Private _titleFont As Font = New Font(Adjustments.DefaultFontFamily, 14) 403 | Public Property TitleFont As Font 404 | Get 405 | Return _titleFont 406 | End Get 407 | Set(value As Font) 408 | _titleFont = value 409 | Invalidate() 410 | End Set 411 | End Property 412 | 413 | Enum MouseState 414 | None 415 | Over 416 | Down 417 | End Enum 418 | 419 | Private state As MouseState = MouseState.None 420 | 421 | Protected Overrides Sub OnMouseEnter(e As EventArgs) 422 | MyBase.OnMouseEnter(e) 423 | state = MouseState.Over 424 | Invalidate() 425 | End Sub 426 | 427 | Protected Overrides Sub OnMouseLeave(e As EventArgs) 428 | MyBase.OnMouseLeave(e) 429 | state = MouseState.None 430 | Invalidate() 431 | End Sub 432 | 433 | Protected Overrides Sub OnMouseDown(e As MouseEventArgs) 434 | MyBase.OnMouseDown(e) 435 | state = MouseState.Down 436 | Invalidate() 437 | End Sub 438 | 439 | Protected Overrides Sub OnMouseUp(e As MouseEventArgs) 440 | MyBase.OnMouseUp(e) 441 | state = MouseState.Over 442 | Invalidate() 443 | End Sub 444 | 445 | Protected Overrides Sub OnTextChanged(e As EventArgs) 446 | MyBase.OnTextChanged(e) 447 | Invalidate() 448 | End Sub 449 | 450 | Protected Overrides Sub OnFontChanged(e As EventArgs) 451 | MyBase.OnFontChanged(e) 452 | Font = New Font(Font.FontFamily, 8) 453 | End Sub 454 | 455 | End Class 456 | 457 | Class ProMessage 458 | Inherits Control 459 | 460 | Protected Overrides Sub OnPaint(e As PaintEventArgs) 461 | MyBase.OnPaint(e) 462 | 463 | Dim g As Graphics = e.Graphics 464 | g.SmoothingMode = SmoothingMode.HighQuality 465 | g.Clear(Parent.BackColor) 466 | 467 | Dim dh As New DrawingHelper 468 | Dim mlh As New MultiLineHandler 469 | Dim slope As Integer = Adjustments.Roundness 470 | 471 | Dim mainRect As New Rectangle(0, 0, Width - 1, Height - 1) 472 | Dim mainPath As GraphicsPath = dh.RoundRect(mainRect, slope) 473 | 474 | Dim bgColor, borderColor, textColor As Color 475 | 476 | bgColor = dh.AdjustColor(BackColor, 30, DrawingHelper.ColorAdjustmentType.Lighten) 477 | 478 | Dim bgCB As New ColorBlend(3) 479 | bgCB.Colors = {bgColor, bgColor, dh.AdjustColor(bgColor, 15, DrawingHelper.ColorAdjustmentType.Darken)} 480 | bgCB.Positions = {0.0F, 0.7F, 1.0F} 481 | 482 | Dim bgLGB As New LinearGradientBrush(mainRect, Color.Transparent, Color.Transparent, 90.0F) 483 | bgLGB.InterpolationColors = bgCB 484 | 485 | borderColor = dh.AdjustColor(bgColor, 20, DrawingHelper.ColorAdjustmentType.Darken) 486 | textColor = dh.AdjustColor(bgColor, 95, DrawingHelper.ColorAdjustmentType.Darken) 487 | 488 | g.FillPath(bgLGB, mainPath) 489 | g.DrawPath(New Pen(borderColor), mainPath) 490 | 491 | Dim descY As Integer 492 | 493 | If Header IsNot Nothing Then 494 | g.DrawString(_header, _headerFont, New SolidBrush(textColor), New Point(8, 8)) 495 | descY = 8 + g.MeasureString(_header, _headerFont).Height + 6 496 | Else 497 | descY = 8 498 | End If 499 | 500 | For Each line As String In mlh.GetLines(g, Text, Font, Width - 16) 501 | g.DrawString(line, Font, New SolidBrush(textColor), New Point(8, descY)) 502 | descY += 13 503 | Next 504 | 505 | If _sizeByText Then 506 | Size = New Size(Width, 8 + descY + 4) 507 | End If 508 | 509 | End Sub 510 | 511 | Sub New() 512 | SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.OptimizedDoubleBuffer Or ControlStyles.ResizeRedraw Or ControlStyles.UserPaint, True) 513 | BackColor = Color.LightSteelBlue 514 | Font = New Font(Adjustments.DefaultFontFamily, 8) 515 | Size = New Size(600, 80) 516 | End Sub 517 | 518 | Private _header As String = "Welcome!" 519 | Public Property Header As String 520 | Get 521 | Return _header 522 | End Get 523 | Set(value As String) 524 | _header = value 525 | Invalidate() 526 | End Set 527 | End Property 528 | 529 | Private _headerFont As Font = New Font(Adjustments.DefaultFontFamily, 10, FontStyle.Bold) 530 | Public Property HeaderFont As Font 531 | Get 532 | Return _headerFont 533 | End Get 534 | Set(value As Font) 535 | _headerFont = value 536 | Invalidate() 537 | End Set 538 | End Property 539 | 540 | Private _sizeByText As Boolean = False 541 | Public Property SizeByText As Boolean 542 | Get 543 | Return _sizeByText 544 | End Get 545 | Set(value As Boolean) 546 | _sizeByText = value 547 | Invalidate() 548 | End Set 549 | End Property 550 | 551 | Protected Overrides Sub OnTextChanged(e As EventArgs) 552 | MyBase.OnTextChanged(e) 553 | Invalidate() 554 | End Sub 555 | 556 | Protected Overrides Sub OnFontChanged(e As EventArgs) 557 | MyBase.OnFontChanged(e) 558 | Font = New Font(Font.FontFamily, 8) 559 | End Sub 560 | 561 | End Class 562 | 563 | Class ProSeperator 564 | Inherits Control 565 | 566 | Protected Overrides Sub OnPaint(e As PaintEventArgs) 567 | MyBase.OnPaint(e) 568 | 569 | Dim g As Graphics = e.Graphics 570 | g.SmoothingMode = SmoothingMode.HighQuality 571 | g.Clear(Parent.BackColor) 572 | 573 | Dim p1, p2 As Point 574 | p1 = New Point(0, (Height - 1) / 2) 575 | p2 = New Point(Width, (Height - 1) / 2) 576 | 577 | Dim lineCB As New ColorBlend(3) 578 | lineCB.Colors = {Color.Transparent, _lineColor, Color.Transparent} 579 | lineCB.Positions = {0.0F, 0.5F, 1.0F} 580 | 581 | Dim lineLGB As New LinearGradientBrush(p1, p2, Color.Transparent, Color.Transparent) 582 | lineLGB.InterpolationColors = lineCB 583 | 584 | g.DrawLine(New Pen(lineLGB), p1, p2) 585 | 586 | End Sub 587 | 588 | Sub New() 589 | SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.OptimizedDoubleBuffer Or ControlStyles.ResizeRedraw Or ControlStyles.UserPaint, True) 590 | Size = New Size(400, 9) 591 | End Sub 592 | 593 | Private _lineColor As Color = Color.Silver 594 | Public Property LineColor As Color 595 | Get 596 | Return _lineColor 597 | End Get 598 | Set(value As Color) 599 | _lineColor = value 600 | Invalidate() 601 | End Set 602 | End Property 603 | 604 | End Class -------------------------------------------------------------------------------- /Pro Controls/ZALULud.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/VBTheme/729263e38ab40c4139b82e831cfe5eef85755ec0/Pro Controls/ZALULud.png -------------------------------------------------------------------------------- /Steam/Steam Theme.txt: -------------------------------------------------------------------------------- 1 | Imports System.Drawing.Drawing2D 2 | 3 | Class SteamTheme 4 | Inherits ThemeContainer153 5 | 6 | Sub New() 7 | ForeColor = Color.FromArgb(195, 193, 191) 8 | End Sub 9 | 10 | Protected Overrides Sub ColorHook() 11 | 12 | End Sub 13 | 14 | Protected Overrides Sub PaintHook() 15 | G.Clear(Color.FromArgb(56, 54, 53)) 16 | DrawGradient(Color.Black, Color.FromArgb(76, 108, 139), ClientRectangle, 65S) 17 | G.FillRectangle(New SolidBrush(Color.FromArgb(56, 54, 53)), New Rectangle(1, 1, Width - 2, Height - 2)) 18 | DrawGradient(Color.FromArgb(71, 68, 66), Color.FromArgb(57, 55, 54), New Rectangle(1, 1, Width - 2, 35), 90S) 19 | DrawText(New SolidBrush(Color.FromArgb(195, 193, 191)), HorizontalAlignment.Left, 4, 0) 20 | End Sub 21 | End Class 22 | Class SteamThemeAlt 23 | Inherits ThemeContainer153 24 | 25 | Protected Overrides Sub ColorHook() 26 | 27 | End Sub 28 | 29 | Protected Overrides Sub PaintHook() 30 | G.Clear(Color.FromArgb(44, 42, 40)) 31 | 32 | Dim T As New HatchBrush(HatchStyle.DarkUpwardDiagonal, Color.FromArgb(20, 19, 19), Color.FromArgb(46, 44, 42)) 33 | G.FillRectangle(T, ClientRectangle) 34 | DrawGradient(Color.Transparent, Color.FromArgb(29, 28, 27), New Rectangle(0, 0 - Height / 3 - Height / 9, Width, Height)) 35 | G.FillRectangle(New SolidBrush(Color.FromArgb(29, 28, 28)), New Rectangle(0, Height / 3 + Height / 3 - Height / 9, Width, Height)) 36 | 37 | 38 | DrawBorders(New Pen(New SolidBrush(Color.FromArgb(0, 0, 0)))) 39 | DrawText(New SolidBrush(Color.FromArgb(195, 193, 191)), HorizontalAlignment.Left, 4, 0) 40 | End Sub 41 | End Class 42 | 43 | Class SteamButton 44 | Inherits ThemeControl153 45 | 46 | Sub New() 47 | Font = New Font("Verdana", 7.25) 48 | End Sub 49 | 50 | Protected Overrides Sub ColorHook() 51 | 52 | End Sub 53 | 54 | Protected Overrides Sub PaintHook() 55 | G.Clear(Color.FromArgb(56, 54, 53)) 56 | DrawBorders(New Pen(New SolidBrush(Color.FromArgb(77, 75, 72)))) 57 | DrawCorners(Color.FromArgb(56, 54, 53)) 58 | Select Case State 59 | Case 0 60 | DrawGradient(Color.FromArgb(92, 89, 86), Color.FromArgb(74, 72, 70), ClientRectangle, 90S) 61 | DrawBorders(New Pen(New SolidBrush(Color.FromArgb(112, 109, 105)))) 62 | DrawCorners(Color.FromArgb(82, 79, 77)) 63 | Case 1 64 | DrawGradient(Color.FromArgb(112, 109, 106), Color.FromArgb(94, 92, 90), ClientRectangle, 90S) 65 | DrawBorders(New Pen(New SolidBrush(Color.FromArgb(141, 148, 130)))) 66 | DrawCorners(Color.FromArgb(82, 79, 77)) 67 | Case 2 68 | DrawGradient(Color.FromArgb(56, 54, 53), Color.FromArgb(73, 71, 69), ClientRectangle, 90S) 69 | DrawBorders(New Pen(New SolidBrush(Color.FromArgb(112, 109, 105)))) 70 | DrawCorners(Color.FromArgb(82, 79, 77)) 71 | End Select 72 | DrawText(New SolidBrush(Color.FromArgb(195, 193, 191)), Text.ToUpper, HorizontalAlignment.Left, 4, 0) 73 | End Sub 74 | End Class 75 | 76 | Class SteamSeparator 77 | Inherits ThemeControl153 78 | 79 | Protected Overrides Sub ColorHook() 80 | 81 | End Sub 82 | 83 | Protected Overrides Sub PaintHook() 84 | G.FillRectangle(New SolidBrush(Color.FromArgb(56, 54, 53)), ClientRectangle) 85 | DrawGradient(Color.FromArgb(107, 104, 101), Color.FromArgb(74, 72, 70), New Rectangle(0, Height / 2, Width, 1), 45S) 86 | End Sub 87 | End Class 88 | 89 | Class SteamProgressBar 90 | Inherits ThemeControl153 91 | 92 | Private _Maximum As Integer 93 | Public Property Maximum() As Integer 94 | Get 95 | Return _Maximum 96 | End Get 97 | Set(ByVal v As Integer) 98 | Select Case v 99 | Case Is < _Value 100 | _Value = v 101 | End Select 102 | _Maximum = v 103 | Invalidate() 104 | End Set 105 | End Property 106 | Private _Value As Integer 107 | Public Property Value() As Integer 108 | Get 109 | Select Case _Value 110 | Case 0 111 | Return 1 112 | Case Else 113 | Return _Value 114 | End Select 115 | End Get 116 | Set(ByVal v As Integer) 117 | Select Case v 118 | Case Is > _Maximum 119 | v = _Maximum 120 | End Select 121 | _Value = v 122 | Invalidate() 123 | End Set 124 | End Property 125 | 126 | Sub New() 127 | Transparent = True 128 | BackColor = Color.Transparent 129 | LockHeight = 18 130 | Value = 0 131 | Maximum = 100 132 | End Sub 133 | 134 | Protected Overrides Sub PaintHook() 135 | G.Clear(BackColor) 136 | 'Fill 137 | Select Case _Value 138 | Case Is > 2 139 | G.FillRectangle(New SolidBrush(Color.FromArgb(166, 164, 161)), New Rectangle(4, 4, CInt(_Value / _Maximum * Width) - 8, Height - 8)) 140 | Case Is > 0 141 | G.FillRectangle(New SolidBrush(Color.FromArgb(166, 164, 161)), New Rectangle(4, 4, CInt(_Value / _Maximum * Width) - 2, Height - 8)) 142 | 143 | End Select 144 | 145 | DrawBorders(New Pen(New SolidBrush(Color.FromArgb(128, 124, 120)))) 146 | DrawCorners(BackColor) 147 | End Sub 148 | 149 | Protected Overrides Sub ColorHook() 150 | 151 | End Sub 152 | End Class 153 | 154 | Class SteamTextBox 155 | Inherits ThemeControl153 156 | Dim WithEvents txtbox As New TextBox 157 | 158 | Private _PassMask As Boolean 159 | Public Property UsePasswordMask() As Boolean 160 | Get 161 | Return _PassMask 162 | End Get 163 | Set(ByVal v As Boolean) 164 | _PassMask = v 165 | Invalidate() 166 | End Set 167 | End Property 168 | Private _maxchars As Integer 169 | Public Property MaxCharacters() As Integer 170 | Get 171 | Return _maxchars 172 | End Get 173 | Set(ByVal v As Integer) 174 | _maxchars = v 175 | End Set 176 | End Property 177 | 178 | Sub New() 179 | txtbox.TextAlign = HorizontalAlignment.Center 180 | txtbox.BorderStyle = BorderStyle.None 181 | txtbox.Location = New Point(5, 6) 182 | txtbox.Font = New Font("Verdana", 7.25) 183 | Controls.Add(txtbox) 184 | Text = "" 185 | txtbox.Text = "" 186 | Me.Size = New Size(135, 35) 187 | Transparent = True 188 | BackColor = Color.Transparent 189 | End Sub 190 | 191 | Dim P1 As Pen 192 | 193 | Protected Overrides Sub ColorHook() 194 | End Sub 195 | 196 | Protected Overrides Sub PaintHook() 197 | G.Clear(Color.FromArgb(56, 54, 53)) 198 | Select Case UsePasswordMask 199 | Case True 200 | txtbox.UseSystemPasswordChar = True 201 | Case False 202 | txtbox.UseSystemPasswordChar = False 203 | End Select 204 | Size = New Size(Width, 25) 205 | txtbox.BackColor = Color.FromArgb(56, 54, 53) 206 | txtbox.ForeColor = Color.FromArgb(195, 193, 191) 207 | txtbox.Font = Font 208 | txtbox.Size = New Size(Width - 10, txtbox.Height - 10) 209 | txtbox.MaxLength = MaxCharacters 210 | DrawBorders(New Pen(New SolidBrush(Color.FromArgb(112, 109, 105)))) 211 | DrawCorners(BackColor) 212 | End Sub 213 | Sub TextChngTxtBox() Handles txtbox.TextChanged 214 | Text = txtbox.Text 215 | End Sub 216 | Sub TextChng() Handles MyBase.TextChanged 217 | txtbox.Text = Text 218 | End Sub 219 | End Class -------------------------------------------------------------------------------- /Steam/gzyoEqw.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/VBTheme/729263e38ab40c4139b82e831cfe5eef85755ec0/Steam/gzyoEqw.png -------------------------------------------------------------------------------- /VI/VI Theme.txt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/VBTheme/729263e38ab40c4139b82e831cfe5eef85755ec0/VI/VI Theme.txt -------------------------------------------------------------------------------- /VI/aHR0cDovL2RsLmRyb3Bib3guY29tL3UvNDc2NTQ3NjAvVkl0aGVtZS5wbmc.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/VBTheme/729263e38ab40c4139b82e831cfe5eef85755ec0/VI/aHR0cDovL2RsLmRyb3Bib3guY29tL3UvNDc2NTQ3NjAvVkl0aGVtZS5wbmc.png -------------------------------------------------------------------------------- /Valley/Valley Theme.txt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/VBTheme/729263e38ab40c4139b82e831cfe5eef85755ec0/Valley/Valley Theme.txt -------------------------------------------------------------------------------- /Valley/sOvzFMY.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/VBTheme/729263e38ab40c4139b82e831cfe5eef85755ec0/Valley/sOvzFMY.png -------------------------------------------------------------------------------- /VibeLander/b8p9ggI.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/VBTheme/729263e38ab40c4139b82e831cfe5eef85755ec0/VibeLander/b8p9ggI.png -------------------------------------------------------------------------------- /Visual Studio (Dark)/Rdmevnk.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/VBTheme/729263e38ab40c4139b82e831cfe5eef85755ec0/Visual Studio (Dark)/Rdmevnk.png -------------------------------------------------------------------------------- /Vitality/Vitality Theme.txt: -------------------------------------------------------------------------------- 1 | '------------------------ 2 | 'Credits: 3 | 'Example - Theme Creator 4 | 'Mavamaarten~ - Hatchbrush in Progressbar and TabControl 5 | ' 6 | 'Created on - 9/17/12 7 | 'Released on - 9/22/12 8 | ' 9 | 'Example Profile Link - http://www.hackforums.net/member.php?action=profile&uid=672917 10 | 'Mavamaarten~ Profile Link - http://www.hackforums.net/member.php?action=profile&uid=244760 11 | '------------------------ 12 | 13 | Class VitalityTheme 14 | Inherits ThemeContainer154 15 | Dim G1, G2, BG As Color 16 | 17 | Sub New() 18 | TransparencyKey = Color.Fuchsia 19 | SetColor("G1", Color.White) 20 | SetColor("G2", Color.LightGray) 21 | SetColor("BG", Color.FromArgb(240, 240, 240)) 22 | End Sub 23 | 24 | Protected Overrides Sub ColorHook() 25 | G1 = GetColor("G1") 26 | G2 = GetColor("G2") 27 | BG = GetColor("BG") 28 | End Sub 29 | 30 | Protected Overrides Sub PaintHook() 31 | G.Clear(BG) 32 | 33 | Dim LGB As New LinearGradientBrush(New Rectangle(New Point(1, 1), New Size(Me.Width - 2, 23)), G1, G2, 90.0F) 34 | G.FillRectangle(LGB, New Rectangle(New Point(1, 1), New Size(Me.Width - 2, 23))) 35 | 36 | G.DrawLine(Pens.LightGray, 1, 25, Me.Width - 2, 25) 37 | G.DrawLine(Pens.White, 1, 26, Me.Width - 2, 26) 38 | 39 | DrawCorners(TransparencyKey) 40 | DrawBorders(Pens.LightGray, 1) 41 | 42 | Dim IconRec As Rectangle = New Rectangle(3, 3, 20, 20) 43 | G.DrawIcon(ParentForm.Icon, IconRec) 44 | 45 | G.DrawString(ParentForm.Text, New Font("Segoe UI", 9), Brushes.Gray, New Point(25, 5)) 46 | End Sub 47 | End Class 48 | 49 | Class VitalityButton 50 | Inherits ThemeControl154 51 | Dim G1, G2, BG As Color 52 | 53 | Sub New() 54 | Me.Size = New Size(120, 26) 55 | SetColor("G1", Color.White) 56 | SetColor("G2", Color.LightGray) 57 | SetColor("BG", Color.FromArgb(240, 240, 240)) 58 | End Sub 59 | 60 | Protected Overrides Sub ColorHook() 61 | G1 = GetColor("G1") 62 | G2 = GetColor("G2") 63 | BG = GetColor("BG") 64 | End Sub 65 | 66 | Protected Overrides Sub PaintHook() 67 | G.Clear(BG) 68 | 69 | If State = MouseState.Over Then 70 | G.FillRectangle(Brushes.White, New Rectangle(New Point(0, 0), New Size(Width, Height))) 71 | ElseIf State = MouseState.Down Then 72 | Dim LGB As New LinearGradientBrush(New Rectangle(New Point(0, 0), New Size(Width, Height)), Color.FromArgb(240, 240, 240), Color.White, 90.0F) 73 | G.FillRectangle(LGB, New Rectangle(New Point(0, 0), New Size(Width, Height))) 74 | ElseIf State = MouseState.None Then 75 | Dim LGB As New LinearGradientBrush(New Rectangle(New Point(0, 0), New Size(Width, Height)), Color.White, Color.FromArgb(240, 240, 240), 90.0F) 76 | G.FillRectangle(LGB, New Rectangle(New Point(0, 0), New Size(Width, Height))) 77 | End If 78 | 79 | DrawBorders(Pens.LightGray) 80 | DrawCorners(Color.Transparent) 81 | 82 | Dim SF As New StringFormat 83 | SF.Alignment = StringAlignment.Center 84 | SF.LineAlignment = StringAlignment.Center 85 | G.DrawString(Me.Text, New Font("Segoe UI", 9), Brushes.Gray, New RectangleF(2, 2, Me.Width - 5, Me.Height - 4), SF) 86 | End Sub 87 | End Class 88 | 89 | _ 90 | Class VitalityCheckbox 91 | Inherits ThemeControl154 92 | Dim BG As Color 93 | Private _Checked As Boolean 94 | 95 | Event CheckedChanged(ByVal sender As Object) 96 | 97 | Public Property Checked As Boolean 98 | Get 99 | Return _Checked 100 | End Get 101 | Set(ByVal V As Boolean) 102 | _Checked = V 103 | Invalidate() 104 | RaiseEvent CheckedChanged(Me) 105 | End Set 106 | End Property 107 | 108 | Protected Overrides Sub OnMouseDown(e As System.Windows.Forms.MouseEventArgs) 109 | MyBase.OnMouseDown(e) 110 | If _Checked = True Then _Checked = False Else _Checked = True 111 | End Sub 112 | 113 | Sub New() 114 | LockHeight = 22 115 | SetColor("G1", Color.White) 116 | SetColor("G2", Color.LightGray) 117 | SetColor("BG", Color.FromArgb(240, 240, 240)) 118 | End Sub 119 | 120 | Protected Overrides Sub ColorHook() 121 | BG = GetColor("BG") 122 | End Sub 123 | 124 | Protected Overrides Sub PaintHook() 125 | G.Clear(BG) 126 | 127 | If _Checked Then G.DrawString("a", New Font("Marlett", 14), Brushes.Gray, New Point(0, 1)) 128 | 129 | If State = MouseState.Over Then 130 | G.FillRectangle(Brushes.White, New Rectangle(New Point(3, 3), New Size(15, 15))) 131 | If _Checked Then G.DrawString("a", New Font("Marlett", 14), Brushes.Gray, New Point(0, 1)) 132 | End If 133 | 134 | G.DrawRectangle(Pens.White, 2, 2, 17, 17) 135 | G.DrawRectangle(Pens.LightGray, 3, 3, 15, 15) 136 | G.DrawRectangle(Pens.LightGray, 1, 1, 19, 19) 137 | 138 | G.DrawString(Text, New Font("Segoe UI", 9), Brushes.Gray, 22, 3) 139 | End Sub 140 | End Class 141 | 142 | _ 143 | Class VitalityRadiobutton 144 | Inherits ThemeControl154 145 | Dim BG As Color 146 | 147 | Private _Checked As Boolean 148 | Property Checked() As Boolean 149 | Get 150 | Return _Checked 151 | End Get 152 | Set(ByVal value As Boolean) 153 | _Checked = value 154 | InvalidateControls() 155 | RaiseEvent CheckedChanged(Me) 156 | Invalidate() 157 | End Set 158 | End Property 159 | 160 | Event CheckedChanged(ByVal sender As Object) 161 | 162 | Private Sub InvalidateControls() 163 | If Not IsHandleCreated OrElse Not _Checked Then Return 164 | 165 | For Each C As Control In Parent.Controls 166 | If C IsNot Me AndAlso TypeOf C Is VitalityRadiobutton Then 167 | DirectCast(C, VitalityRadiobutton).Checked = False 168 | End If 169 | Next 170 | End Sub 171 | 172 | Protected Overrides Sub OnMouseDown(ByVal e As System.Windows.Forms.MouseEventArgs) 173 | If Not _Checked Then Checked = True 174 | MyBase.OnMouseDown(e) 175 | End Sub 176 | 177 | Sub New() 178 | LockHeight = 22 179 | Width = 140 180 | SetColor("BG", Color.FromArgb(240, 240, 240)) 181 | End Sub 182 | 183 | Protected Overrides Sub ColorHook() 184 | BG = GetColor("BG") 185 | End Sub 186 | 187 | Protected Overrides Sub PaintHook() 188 | G.Clear(BG) 189 | 190 | G.SmoothingMode = SmoothingMode.HighQuality 191 | 192 | If _Checked Then G.FillEllipse(Brushes.Gray, New Rectangle(New Point(7, 7), New Size(8, 8))) 193 | 194 | If State = MouseState.Over Then 195 | G.FillEllipse(Brushes.White, New Rectangle(New Point(4, 4), New Size(14, 14))) 196 | If _Checked Then G.FillEllipse(Brushes.Gray, New Rectangle(New Point(7, 7), New Size(8, 8))) 197 | End If 198 | 199 | G.DrawEllipse(Pens.White, New Rectangle(New Point(3, 3), New Size(16, 16))) 200 | G.DrawEllipse(Pens.LightGray, New Rectangle(New Point(2, 2), New Size(18, 18))) 201 | G.DrawEllipse(Pens.LightGray, New Rectangle(New Point(4, 4), New Size(14, 14))) 202 | 203 | G.DrawString(Text, New Font("Segoe UI", 9), Brushes.Gray, 23, 3) 204 | End Sub 205 | End Class 206 | 207 | Class VitalityProgressbar 208 | Inherits ThemeControl154 209 | Dim BG As Color 210 | Dim HBPos As Integer 211 | 212 | Private _Minimum As Integer 213 | Property Minimum() As Integer 214 | Get 215 | Return _Minimum 216 | End Get 217 | Set(ByVal value As Integer) 218 | If value < 0 Then 219 | Throw New Exception("Property value is not valid.") 220 | End If 221 | 222 | _Minimum = value 223 | If value > _Value Then _Value = value 224 | If value > _Maximum Then _Maximum = value 225 | Invalidate() 226 | End Set 227 | End Property 228 | 229 | Private _Maximum As Integer = 100 230 | Property Maximum() As Integer 231 | Get 232 | Return _Maximum 233 | End Get 234 | Set(ByVal value As Integer) 235 | If value < 0 Then 236 | Throw New Exception("Property value is not valid.") 237 | End If 238 | 239 | _Maximum = value 240 | If value < _Value Then _Value = value 241 | If value < _Minimum Then _Minimum = value 242 | Invalidate() 243 | End Set 244 | End Property 245 | 246 | Private _Value As Integer 247 | Property Value() As Integer 248 | Get 249 | Return _Value 250 | End Get 251 | Set(ByVal value As Integer) 252 | If value > _Maximum OrElse value < _Minimum Then 253 | Throw New Exception("Property value is not valid.") 254 | End If 255 | 256 | _Value = value 257 | Invalidate() 258 | End Set 259 | End Property 260 | 261 | Private Sub Increment(ByVal amount As Integer) 262 | Value += amount 263 | End Sub 264 | 265 | Property Animated() As Boolean 266 | Get 267 | Return IsAnimated 268 | End Get 269 | Set(ByVal value As Boolean) 270 | IsAnimated = value 271 | Invalidate() 272 | End Set 273 | End Property 274 | 275 | Protected Overrides Sub OnAnimation() 276 | If HBPos = 0 Then 277 | HBPos = 7 278 | Else 279 | HBPos += 1 280 | End If 281 | End Sub 282 | 283 | Sub New() 284 | Animated = True 285 | SetColor("BG", Color.FromArgb(240, 240, 240)) 286 | End Sub 287 | 288 | Protected Overrides Sub ColorHook() 289 | BG = GetColor("BG") 290 | End Sub 291 | 292 | Protected Overrides Sub PaintHook() 293 | G.Clear(BG) 294 | 295 | DrawBorders(Pens.LightGray, 1) 296 | DrawCorners(Color.Transparent) 297 | 298 | Dim LGB As New LinearGradientBrush(New Rectangle(New Point(2, 2), New Size(Width - 2, Height - 5)), Color.White, Color.FromArgb(240, 240, 240), 90.0F) 299 | G.FillRectangle(LGB, New Rectangle(New Point(2, 2), New Size((Width / Maximum) * Value - 5, Height - 5))) 300 | 301 | G.RenderingOrigin = New Point(HBPos, 0) 302 | Dim HB As New HatchBrush(HatchStyle.BackwardDiagonal, Color.LightGray, Color.Transparent) 303 | G.FillRectangle(HB, New Rectangle(New Point(1, 2), New Size((Width / Maximum) * Value - 3, Height - 3))) 304 | G.DrawLine(Pens.LightGray, New Point((Width / Maximum) * Value - 2, 1), New Point((Width / Maximum) * Value - 2, Height - 3)) 305 | End Sub 306 | End Class 307 | 308 | Class VitalityTabControl 309 | Inherits TabControl 310 | 311 | Sub New() 312 | SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.ResizeRedraw Or ControlStyles.UserPaint Or ControlStyles.DoubleBuffer, True) 313 | DoubleBuffered = True 314 | End Sub 315 | 316 | Protected Overrides Sub CreateHandle() 317 | MyBase.CreateHandle() 318 | Alignment = TabAlignment.Top 319 | End Sub 320 | 321 | Protected Overrides Sub OnPaint(e As System.Windows.Forms.PaintEventArgs) 322 | Dim B As New Bitmap(Width, Height) 323 | Dim G As Graphics = Graphics.FromImage(B) 324 | Try : SelectedTab.BackColor = Color.FromArgb(240, 240, 240) : Catch : End Try 325 | G.Clear(Parent.BackColor) 326 | For i = 0 To TabCount - 1 327 | If Not i = SelectedIndex Then 328 | Dim x2 As Rectangle = New Rectangle(GetTabRect(i).X, GetTabRect(i).Y + 3, GetTabRect(i).Width + 2, GetTabRect(i).Height) 329 | Dim G1 As New LinearGradientBrush(New Point(x2.X, x2.Y), New Point(x2.X, x2.Y + x2.Height), Color.White, Color.LightGray) 330 | G.FillRectangle(G1, x2) : G1.Dispose() 331 | G.DrawRectangle(Pens.LightGray, x2) 332 | G.DrawRectangle(Pens.LightGray, New Rectangle(x2.X + 1, x2.Y + 1, x2.Width - 2, x2.Height)) 333 | G.DrawString(TabPages(i).Text, Font, Brushes.Gray, x2, New StringFormat With {.LineAlignment = StringAlignment.Near, .Alignment = StringAlignment.Center}) 334 | End If 335 | Next 336 | 337 | G.FillRectangle(New SolidBrush(Color.FromArgb(240, 240, 240)), 0, ItemSize.Height, Width, Height) 338 | G.DrawRectangle(Pens.LightGray, 0, ItemSize.Height, Width - 1, Height - ItemSize.Height - 1) 339 | G.DrawRectangle(Pens.LightGray, 1, ItemSize.Height + 1, Width - 3, Height - ItemSize.Height - 3) 340 | If Not SelectedIndex = -1 Then 341 | Dim x1 As Rectangle = New Rectangle(GetTabRect(SelectedIndex).X - 2, GetTabRect(SelectedIndex).Y, GetTabRect(SelectedIndex).Width + 3, GetTabRect(SelectedIndex).Height) 342 | Dim GradientBrush As New LinearGradientBrush(New Rectangle(x1.X + 2, x1.Y + 2, x1.Width - 2, x1.Height), Color.White, Color.LightGray, 90.0F) 343 | G.FillRectangle(New SolidBrush(Color.FromArgb(240, 240, 240)), New Rectangle(x1.X + 2, x1.Y + 2, x1.Width - 2, x1.Height)) 344 | G.DrawLine(Pens.LightGray, New Point(x1.X, x1.Y + x1.Height - 2), New Point(x1.X, x1.Y)) 345 | G.DrawLine(Pens.LightGray, New Point(x1.X, x1.Y), New Point(x1.X + x1.Width, x1.Y)) 346 | G.DrawLine(Pens.LightGray, New Point(x1.X + x1.Width, x1.Y), New Point(x1.X + x1.Width, x1.Y + x1.Height - 2)) 347 | 348 | G.DrawLine(Pens.LightGray, New Point(x1.X + 1, x1.Y + x1.Height - 1), New Point(x1.X + 1, x1.Y + 1)) 349 | G.DrawLine(Pens.LightGray, New Point(x1.X + 1, x1.Y + 1), New Point(x1.X + x1.Width - 1, x1.Y + 1)) 350 | G.DrawLine(Pens.LightGray, New Point(x1.X + x1.Width - 1, x1.Y + 1), New Point(x1.X + x1.Width - 1, x1.Y + x1.Height - 1)) 351 | 352 | G.DrawString(TabPages(SelectedIndex).Text, Font, Brushes.Gray, x1, New StringFormat With {.LineAlignment = StringAlignment.Center, .Alignment = StringAlignment.Center}) 353 | End If 354 | 355 | G.DrawLine(New Pen(Color.FromArgb(240, 240, 240)), New Point(0, 1), New Point(0, 2)) 356 | 357 | e.Graphics.DrawImage(B.Clone, 0, 0) 358 | G.Dispose() : B.Dispose() 359 | End Sub 360 | End Class 361 | 362 | Class VitalityTextBox 363 | Inherits TextBox 364 | 365 | Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message) 366 | Select Case m.Msg 367 | Case 15 368 | Invalidate() 369 | MyBase.WndProc(m) 370 | Me.CustomPaint() 371 | Exit Select 372 | Case Else 373 | MyBase.WndProc(m) 374 | Exit Select 375 | End Select 376 | End Sub 377 | 378 | Sub New() 379 | Font = New Font("Microsoft Sans Serif", 8) 380 | ForeColor = Color.Gray 381 | BackColor = Color.FromArgb(235, 235, 235) 382 | BorderStyle = Windows.Forms.BorderStyle.FixedSingle 383 | End Sub 384 | 385 | Private Sub CustomPaint() 386 | Dim p As Pen = Pens.LightGray 387 | CreateGraphics.DrawLine(p, 0, 0, Width, 0) 388 | CreateGraphics.DrawLine(p, 0, Height - 1, Width, Height - 1) 389 | CreateGraphics.DrawLine(p, 0, 0, 0, Height - 1) 390 | CreateGraphics.DrawLine(p, Width - 1, 0, Width - 1, Height - 1) 391 | End Sub 392 | End Class 393 | 394 | Class VitalityLabel 395 | Inherits Label 396 | 397 | Sub New() 398 | ForeColor = Color.Gray 399 | BackColor = Color.Transparent 400 | End Sub 401 | End Class -------------------------------------------------------------------------------- /Vitality/oYtEQFp.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/VBTheme/729263e38ab40c4139b82e831cfe5eef85755ec0/Vitality/oYtEQFp.png -------------------------------------------------------------------------------- /Winter/T8SwDUr.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/VBTheme/729263e38ab40c4139b82e831cfe5eef85755ec0/Winter/T8SwDUr.png -------------------------------------------------------------------------------- /Winter/Winter Theme.txt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/mwsrc/VBTheme/729263e38ab40c4139b82e831cfe5eef85755ec0/Winter/Winter Theme.txt --------------------------------------------------------------------------------