Change background image
  1. What's up? I see you're viewing as a Guest. How about registering, it only takes like 2 minutes. This will enable you to do more on our forum and stay updated.

[Tutorial] [visual Studios] Creating Custom Form

Discussion in 'Developer General' started by Cojoe The Creator, May 10, 2011.

Thread Status:
This thread is more than 180 days old.
  1. When Creating a Custom Form You Need Images

    • Exit Button
    • Max Button (optional)
    • Minimize Button (optional)
    • Move Bar
    • Background (optional)

    With Those Images Gathered You Can Start Making The Program...

    To Start Make

    • 3 Buttons
    • 1 Panel

    Adjust The Panel At The Top. This Is Were The [Move Bar] Will Be Placed. Just Change The Image To You're Custom [Move Bar]

    After That Remove The Text On All 3 Buttons. Than Flatten Them ( Flat Style > Flat )(Flat Appearance > Border Size [0] )

    Set The Back Color to Transparent. Of All The Buttons.

    Now Set Up the Images On The Buttons How You Desire. ( X, _ , [] )

    Now Use This Code

    PHP:
    Public Class Form1
        Dim XP 
    As Integer
        Dim YP 
    As Integer
        Dim NewPoint 
    As New System.Drawing.Point()

        Private 
    Sub Panel1_MouseDown(ByVal sender As ObjectByVal e As System.Windows.Forms.MouseEventArgsHandles Panel1.MouseDown
            XP 
    MousePosition.Me.Location.X
            YP 
    MousePosition.Me.Location.Y
        End Sub

        
    Private Sub Panel1_MouseMove(ByVal sender As ObjectByVal e As System.Windows.Forms.MouseEventArgsHandles Panel1.MouseMove
            
    If e.Button MouseButtons.Left Then
                NewPoint 
    MousePosition
                NewPoint
    .NewPoint.XP
                NewPoint
    .NewPoint.YP
                Me
    .Location NewPoint
            End 
    If
        
    End Sub
        
    Private Sub Panel1_Paint(ByVal sender As System.ObjectByVal e As System.Windows.Forms.PaintEventArgsHandles Panel1.Paint

        End Sub

        
    Private Sub Button3_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button3.Click
            Me
    .Close()
        
    End Sub

        
    Private Sub Button2_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button2.Click
            Me
    .WindowState FormWindowState.Maximized
        End Sub

        
    Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
            Me
    .WindowState FormWindowState.Minimized
        End Sub
    End 
    Class
    Button 3 = X
    Button 2 = Max
    Button 1 = Mini


    Remember To +Rep
  2. dns

    dns Active Member Admin

    I love visual basic. +1
  3. cheatss

    cheatss Junior Member Member

    i would +rep if i could see the button

    [​IMG]
  4. dns

    dns Active Member Admin

    This is what the button looks like, its on the bottom of every post. I may redo it tonight so it's easier for people to find
    [​IMG]
  5. Jok3r

    Jok3r MC-Admin/Summoner Member

    Damn guys what did I say dont use the print screen link cause the screenie page has severaly pics on it! go to the link of the screenie and right click the picture and click copy image url!
    [​IMG]
Thread Status:
This thread is more than 180 days old.

Share This Page