.NET [FINISHED][TUT] Custom Themes (GUI)[VB.NET][UPDATED]

[.NET] [FINISHED][TUT] Custom Themes (GUI)[VB.NET][UPDATED] - Printable Version

+- Hack Forums (https://hackforums.net)
+-- Forum: Tech (https://hackforums.net/forumdisplay.php?fid=444)
+--- Forum: Coding (https://hackforums.net/forumdisplay.php?fid=151)
+---- Forum: Software Development (https://hackforums.net/forumdisplay.php?fid=118)
+---- Thread: [.NET] [FINISHED][TUT] Custom Themes (GUI)[VB.NET][UPDATED] (/showthread.php?tid=668180)

Pages: Pages 1 2 3

[FINISHED][TUT] Custom Themes (GUI)[VB.NET][UPDATED] - Obi-Wan Cannabis - Sep 9, 2010

What will you learn?

In this tutorial i'm gonna show you three methods of using custom themes on your applications! 😉

Method 1 - DotNetBar
Method 2 - Custom Themes (Aeonhack themes)
Method 3 - Create your own theme on photoshop and use it on you application.

Method 1

Step 1) Download and install DotNetBar here.

Step 2) Patch the program (so the trial will become full).

Step 3) On your toolbox are now new controls for your applications. ✌

Method 2

Step 1) Go here and here (Fusion - New Theme).

Step 2) Download the themes from there.

Step 3) Install them on your app.

Step 4) Enjoy your new themes. ✌

Method 3

Step 1) Create an image on Photoshop (GUI).

[img]http://img827.imageshack.us/img827/2315/semtt2ulo.png[/img]

Step 2) Put the image in the background of the form.

Step 3) Add a timer to your form and make sure its enabled=false and interval=1 or 2.

Step 4) Create a Private Sub called Theme and write this on:

Code 
AppLocation = Me.Location

CurLocation = Cursor.Position

Step 4) Add the folowing code to your app now:

Code 
Dim AppLocation, CurLocation As New Point(0, 0)

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

  Me.Location = AppLocation - CurLocation + Cursor.Position

    End Sub

    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown

  Timer1.Enabled = True

  Timer1.Start()

  Theme()

    End Sub

    Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp

  Timer1.Stop()

  Theme()

    End Sub

Step 5) Add now three labels (nameofapp, X and - / to close and minimize the form)

Step 6) Add this code to form1_load:

Code 
Label1.Parent = PictureBox1

Label2.Parent = PictureBox1

Label3.Parent = PictureBox1

And add this code:

Code 
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

  Me.Close()

    End Sub

    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

  Me.WindowState = FormWindowState.Minimized

    End Sub

Step 7) Test your application.

[IMG]http://img444.imageshack.us/img444/7346/93923668.png[/IMG]

And you just created a theme! Congratulations! ✌

Sorry for posting before finish!
It was an accident! :(

But now the thread is updated! =D

* - zyvox - Sep 9, 2010

In method 3, the code for move form around is very complicated. It's an alott easier code (just one function or something) that can do it.

Umm and yeah... Maybe add it to a picture box or anything at the top of the form.

Else, good tut.

* - Obi-Wan Cannabis - Sep 9, 2010

(Sep 9, 2010 06:56 AM)wrseb Wrote: In method 3, the code for move form around is very complicated. It's an alott easier code (just one function or something) that can do it.

Umm and yeah... Maybe add it to a picture box or anything at the top of the form.

Else, good tut.

Thanks for your comment.

But the code is not that hard to understand. 🙂

* - woodo - Sep 9, 2010

Why do you have a timer in method 3?

Code 
Dim Point As New System.Drawing.Point() 

Dim X, Y As Intege

Private Sub Form1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove 

  If e.Button = MouseButtons.Left Then 

    Point = Control.MousePosition 

    Point.X = Point.X - (X) 

    Point.Y = Point.Y - (Y) 

    Me.Location = Point 

  End If 

    End Sub 

    Private Sub Form1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown 

  X = Control.MousePosition.X - Me.Location.X 

  Y = Control.MousePosition.Y - Me.Location.Y 

    End Sub

* - zyvox - Sep 9, 2010

^Yeah there it is that code lol.

And I wasn't pointing at the code wass hard to understand, but its so long and needs a private sub, mouse up, mouse down and stuff :p
Easier with that one woodo posted.

* - Obi-Wan Cannabis - Sep 9, 2010

Probably it wouldn't need the timer... xD

But that's the code I use on my apps!

* - Obi-Wan Cannabis - Sep 9, 2010

Keeping this alive! ^^)

LOL

* - -na.Talish - Sep 9, 2010

This has been made 100 times before, I know your just trying to contribute and help out but try using the search before posting.

* - S!rk0 - Sep 9, 2010

Nice post but you need to update with new theme (Custom Theme) and with a pack with a lot of PSD and their Fonts ...

* - Obi-Wan Cannabis - Sep 9, 2010

(Sep 9, 2010 10:04 AM)Talish Wrote: This has been made 100 times before, I know your just trying to contribute and help out but try using the search before posting.

sorry about that...🤦‍♂🤦‍♂🤦‍♂

(Sep 9, 2010 10:07 AM)S!rk0 Wrote: Nice post but you need to update with new theme (Custom Theme) and with a pack with a lot of PSD and their Fonts ...

thanks for your comment! 😁

* - -na.Talish - Sep 9, 2010

(Sep 9, 2010 10:11 AM)MrJonnyHacker Wrote: sorry about that...🤦‍♂🤦‍♂🤦‍♂

Heh, no need to be sorry bro. I mean, your contributing I'm just saying maybe it could have saved you a bit of time making this tut lol. Most people here wanna see nice unique tuts.

But kudos for you for spending your time on this.

* - Krex Productions™ - Sep 9, 2010

This is great, thank you so much for sharing this Tutorial Dude.

* - Fake. - Sep 9, 2010

(Sep 9, 2010 10:11 AM)MrJonnyHacker Wrote: sorry about that...🤦‍♂🤦‍♂🤦‍♂

(Sep 9, 2010 10:07 AM)S!rk0 Wrote: Nice post but you need to update with new theme (Custom Theme) and with a pack with a lot of PSD and their Fonts ...
thanks for your comment! 😁

Everyone hates timers, there are so many better options, i.e. threads. That's why a few are like ew timers, plus the fact you can use the mouse events :D

* - Obi-Wan Cannabis - Sep 9, 2010

Can you explain me why people hates timers??

* - Charny - Sep 9, 2010

(Sep 9, 2010 05:01 PM)MrJonnyHacker Wrote: Can you explain me why people hates timers??

Because timers are shit...