Hello HackForums,
Here is a tutorial on making a simple form like this:
[img]http://img264.imageshack.us/img264/7431/thisp.jpg[/img]
To this:
[img]http://img522.imageshack.us/img522/8305/tothis.jpg[/img]
Here goes:
Design
1) Open Visual Basic 2008>Create Project>Windows Form Application
Name it: Custom theme.
2) Set the properties of Form1 to this:
BackColor - Black
FormBorderstyle - None
Opacity - 97%
StartPosition - Center
3) Add two Picture boxes and add these pictures to each of them:
PictureBox1 -
[img]http://img522.imageshack.us/img522/4282/minimize.jpg[/img]
PictureBox2 -
[img]http://img190.imageshack.us/img190/2086/closeyg.jpg[/img]
Code
Imports:
1) Double Click PictureBox1 and add the following code:
This minimizes the form.
2)Double Click PictureBox2 and add the folloing code:
This closes the form.
3)Below the code you just added, write this:
Download Source File:
MultiUpload: No0bs Custom Theme Tut.rar (69.62 KB)
That's it. Not much to it really.
All credits to me, No0b.
[img]http://img685.imageshack.us/img685/3681/8wzlu1.png[/img]
Here is a tutorial on making a simple form like this:
[img]http://img264.imageshack.us/img264/7431/thisp.jpg[/img]
To this:
[img]http://img522.imageshack.us/img522/8305/tothis.jpg[/img]
Here goes:
Design
1) Open Visual Basic 2008>Create Project>Windows Form Application
Name it: Custom theme.
2) Set the properties of Form1 to this:
BackColor - Black
FormBorderstyle - None
Opacity - 97%
StartPosition - Center
3) Add two Picture boxes and add these pictures to each of them:
PictureBox1 -
[img]http://img522.imageshack.us/img522/4282/minimize.jpg[/img]
PictureBox2 -
[img]http://img190.imageshack.us/img190/2086/closeyg.jpg[/img]
Code
Imports:
Code
Imports System.Drawing.Drawing2D1) Double Click PictureBox1 and add the following code:
Code
WindowState = FormWindowState.Minimized2)Double Click PictureBox2 and add the folloing code:
Code
Me.Close()3)Below the code you just added, write this:
Code
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
Dim rec As Rectangle = New Rectangle(0, 0, Me.Width, Me.Height)
Dim myBrush As Brush = New Drawing.Drawing2D.LinearGradientBrush(rec, Color.Black, Color.Navy, Drawing.Drawing2D.LinearGradientMode.BackwardDiagonal)
e.Graphics.FillRectangle(myBrush, rec)
End SubDownload Source File:
MultiUpload: No0bs Custom Theme Tut.rar (69.62 KB)
That's it. Not much to it really.
All credits to me, No0b.
[img]http://img685.imageshack.us/img685/3681/8wzlu1.png[/img]


