[WhyWork]

Way to take themes to the next level aero! Very nice work as always!

[.Cherry]

Do you use themebase for vb themes?
or how do i import it

[SaketSaket]

Do you use themebase for vb themes?
or how do i import it

Just copy paste theme code in seperate class & debug/compile... then use these custom controls the way you use normal controls... ;) Themebase is not needed for this theme...

@OP - awesome theme buddy ;)

[.Cherry]

Getting this
https://gyazo.com/48a38f2a945fda64ae8da005c63cc8a0

---

Nvm got it to work really nice theme

[bho007]

men your theme is really pretty cool

[debug]

Another great theme dude. Well done.

[KillαMuvz]

This is an amazing theme, I like it a lot!

[Devil Dog]

Maybe someone can do c# conversion :)
Great theme!

[CSGOClubhouse]

This is beautiful, tbh 10/10. :)

[SaketSaket]

Maybe someone can do c# conversion :)
Great theme!

Just create DLL & use it in c# ;)

[Zilog80]

The theme is very nice, but completely unusable, at least on my PC using Visual Studio 2013 Professional Edition.

I only want to use tab control. So if you placed an AetherTabControl on your form the problems begin.

By default Dock propertly is set to Fill. I you set Dock propertly to None and resize the tab control to your desidered size, nothing happens: When you run the app the tab control is Fill docking again :(

Problem two: if you want to change the ForeColor (R:52, G:56, B:67) or the BackColor (White) to another colors, nothing happens again, and thats sucks.

And finally some programming advices:

Do not make a public module. You may use friend or protected classes.
On your module you have a public enum called Direction. What if I have a previously public Direction enum on other module????. Crash:

You should use Namespaces here. Some simple example:

Code

Imports System.ComponentModel
Namespace MyHyperKoolTheme
   Module Helpers
....
   End Module

   Public classes here

End Namespace

And finally, looking ColorFromHex function: Val? Mid? Hex?...Are you kidding me? This code seems a VB5 or VB6 from 1990 crap. If i'm not mistaken we are in 2015, with a very mature .NET framework. You should use this sentence instead that VB5 crap:

Code

Public Function ColorFromHex(Hex As String) As Color
    Return Color.FromArgb(Long.Parse(String.Format("FFFFFFFFFF{0}", Hex.Substring(1)), Globalization.NumberStyles.HexNumber))
End Function

[Increment]

I keep getting an error when I add a listview to the form : https://gyazo.com/5f5fb185575f6d6d9d0852ef03283245

Anybody got this error or know how to fix it ?

[Zilog80]

I keep getting an error when I add a listview to the form [something here about 50 post NumberStyles]

Anybody got this error or know how to fix it ?

Same problem here!

But there is a worse news. You can accept this error message. The listview control is placed inside the tabpage control. But is completely useless.

On Form1, place a button and paste this code on Click event:

Code

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   Dim f As Form2 = New Form2()
   f.ShowDialog()
End Sub

Now create a new form called Form2 and place an AetherTabControl
Place an ListView control inside Tab1, accept the exception and then adjust ListView control position.

Now, on Form2 Load paste this crap code:

Code

Public Class Form2
  Private Sub Form2_Load(sender As Object, e As EventArgs) Handles Me.Load
    PopulateList()
  End Sub
  Private Sub PopulateList()
    With ListView1
      .GridLines = True
      .HeaderStyle = ColumnHeaderStyle.Nonclickable
      .FullRowSelect = True
      .MultiSelect = False
      .View = Windows.Forma.View.Details
      .Clear()

      .Columns.Add("id", 20, HorizontalAlignment.Left)
      .Columns.Add("test1", 60, HorizontalAlignment.Right)
      .Columns.Add("test2", 60, HorizontalAlignment.Center)
    End With

    ListView1.BeginUpdate()
    For i As Integer = 0 To 10
      Dim lstitem As New ListViewItem
      lstitem.Text = i
      lstitem.SubItems.Add(i)
      lstitem.SubItems.Add(i)
      ListView1.Items.Add(lstitem)
    Next
    ListView1.EndUpdate()
  End Sub
End Class

Now run the app, press form1 button and show what happens 4 seconds later when ListView has been populated: yes another 'hide' exception on f.ShowDialog() line.

As I said before, very nice theme, but completely useless. I still prefer Metro UI fork theme (search on github dennismagno repository)

[necromancerx]

A very very nice Theme :D :D :D

[Naywyn]

If you remove those lines, everything should be fine.

PHP Code


<?php 
Protected Overrides ReadOnly Property CreateParams() As CreateParams
        Get
            Dim cp As CreateParams = MyBase.CreateParams
            cp.ExStyle = cp.ExStyle Or &H2000000
            Return cp
        End Get
    End Property