[Source] Good GUI

[JamesA1994]

Visual Basic - Good GUI
The point of this project it to make the GUI a little bit 'smoother'. By using this, and a little Photoshop skills, you can blend the toolbar with your form and make it look super sleek.

Features:
More Control over the look of the toolbar.
Can still Minimize and Close.
Fades on minimize and close.
Easy to customize (With Photoshop).

Now, don't flame me if you think it looks shit or too basic, I am not very good with Photoshop and its made for people that know shit all about VB.

Code:

#Region "Form Eye Candy"
    Dim Point As New System.Drawing.Point()
    Dim X, Y As Integer
    Dim Set1 As String

    Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblClose.Click
        Set1 = "Close"
        Timer2.Start()
    End Sub

    Private Sub lblMinimize_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblMinimize.Click
        Set1 = "Min"
        Timer2.Start()
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Opacity -= 0.03
        If Opacity = 0 Then
            If Set1 = "Min" Then
                WindowState = FormWindowState.Minimized
                Opacity = 100
            Else
                End
            End If
            Timer2.Stop()
        End If
    End Sub

    Private Sub frmText_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles frmText.MouseDown
        X = Control.MousePosition.X - Me.Location.X
        Y = Control.MousePosition.Y - Me.Location.Y
    End Sub

    Private Sub frmToolbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles frmToolbar.MouseDown
        X = Control.MousePosition.X - Me.Location.X
        Y = Control.MousePosition.Y - Me.Location.Y
    End Sub

    Private Sub lblMinimize_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles lblMinimize.MouseDown
        X = Control.MousePosition.X - Me.Location.X
        Y = Control.MousePosition.Y - Me.Location.Y
    End Sub

    Private Sub lblMinimize_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles lblMinimize.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 frmText_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles frmText.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 frmToolbar_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles frmToolbar.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
#End Region

Screenshot:


Virus Scans:
VirusTotal
Jotti

If you have any questions, PM me, VM me or just post here.

[♪~ ᕕ(ᐛ)ᕗ]

Great!!! Thanks! Ur a great coder...

Offtopic:
i saw that here is a free position for minion......Why not you for it?!

[JamesA1994]

Great!!! Thanks! Ur a great coder...

Offtopic:
i saw that here is a free position for minion......Why not you for it?!

I do want the minion xD
https://www.mpgh.net/forum/27-coders-...-minion-7.html

[Jason]

Uhm, fairly basic yuh? Maybe add some code to the main thread rather than forcing people to download it to see.

[JamesA1994]

Uhm, fairly basic yuh? Maybe add some code to the main thread rather than forcing people to download it to see.

It was meant to be basic, and yeah, I'll post the code in the main message... The reason I did it the way I did was because of the pic...
Thanks.

[Sn0wn00b]

nice tut man ;D

[cgallagher21]

gj JamesA1994

[Hassan]

GJ. Keep it up =)

[bbhing987]

good job bro
When i open the project file, it supposed not to have errors
but when i open the project file, it have 15 errors on the thing when opening the project file..
mind to teach me how to fix it?thanks

[JamesA1994]

good job bro
When i open the project file, it supposed not to have errors
but when i open the project file, it have 15 errors on the thing when opening the project file..
mind to teach me how to fix it?thanks

I have 0 errors...
What OS do you have?
What are the errors?
Visual Basic Version?
.Net Version?

[Jason]

good job bro
When i open the project file, it supposed not to have errors
but when i open the project file, it have 15 errors on the thing when opening the project file..
mind to teach me how to fix it?thanks

Telling us the errors might be a good idea don't you think?

[freedompeace]

Heh? How is this different from how you'd normally do it? ._.

[JamesA1994]

Heh? How is this different from how you'd normally do it? ._.

You have a custom title bar which can make your form look much better...

[bbhing987]

the error is in this picture
[IMG]https://i828.photobucke*****m/albums/zz202/ngbhing/adsfadsfads.jpg[/IMG]
please can someone help me solve this problem so that i can get the good gui !

[[MPGH]master131]

This is for VB2010...