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

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

    Sub Panel1_MouseDown(ByVal sender As ObjectByVal e As System.Windows.Forms.MouseEventArgsHandles Panel1.MouseDown
        End Sub

    Private Sub Panel1_MouseMove(ByVal sender As ObjectByVal e As System.Windows.Forms.MouseEventArgsHandles Panel1.MouseMove
    If e.Button MouseButtons.Left Then
    .Location NewPoint
    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
    End Sub

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

    Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
    .WindowState FormWindowState.Minimized
        End Sub
    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

  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
  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!
Thread Status:
This thread is more than 180 days old.

Share This Page