Visual Basic 2008 Tutorials

Advance System Information Using Visual Basic 2008

2012-07-05T23:23:00.001-07:00

Download Project and Source Code

Clicking Game Made On Visual Basic 2008

2012-07-05T23:14:00.002-07:00

Design

Running

Download Project and Source Code

Screen Capture Program Using Visual Basic 2008

2012-07-05T23:03:00.001-07:00

Design

Running

You will need the following:

* 3 Buttons
* 1 Image Box
* 2 Timers
* 1 Save Dialog

Program Codes :

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Opacity = 0
        Me.WindowState = FormWindowState.Minimized
        Me.Text = "Please Wait..."
        Me.Text = "Taking Picture"
        Timer2.Enabled = True
        Timer1.Enabled = True
        Label1.Visible = False
        Me.Size = New Size(602, 400)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim savefiledialog1 As New SaveFileDialog
        Try
            savefiledialog1.Title = "Save File"
            savefiledialog1.FileName = "Screen"
            savefiledialog1.Filter = "JPEG |*.jpg"
            If savefiledialog1.ShowDialog() = DialogResult.OK Then
                PictureBox1.Image.Save(savefiledialog1.FileName, System.Drawing.Imaging.ImageFormat.Bmp)
            End If
        Catch ex As Exception
            'Do Nothing
        End Try
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        PictureBox1.Image = Nothing
        Label1.Visible = False
        Me.Size = New Size(602, 71)
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Me.Opacity = 100
        Me.WindowState = FormWindowState.Minimized
        Me.WindowState = FormWindowState.Normal
        Timer1.Enabled = False
        Me.Text = "Screen Capture"
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Dim bounds As Rectangle
        Dim screenshot As System.Drawing.Bitmap
        Dim graph As Graphics
        bounds = Screen.PrimaryScreen.Bounds
        screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
        graph = Graphics.FromImage(screenshot)
        graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)
        PictureBox1.Image = screenshot
        Timer2.Enabled = False
        Label1.Visible = True
    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

    End Sub

    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        Process.Start("http://vb2008tutorialz.blogspot.com/")
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

Source Code Download

Batch File Maker Using Visual Basic 2008

2012-07-05T22:52:00.000-07:00

Desing

Running

You will need the following:

*1 Rich Text Box

* 1 Menu Strip

* 1 Save Dialog

Program Codes :

Public Class Form1

    Private Sub SaveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToolStripMenuItem.Click
        Try
            PictureBox1.Visible = True
            Dim dlg As SaveFileDialog = New SaveFileDialog
            dlg.Title = "Save Batch File"
            dlg.Filter = "Batch File (*.bat)|*.bat"
            If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
                RichTextBox1.SaveFile(dlg.FileName, RichTextBoxStreamType.PlainText)
            End If
        Catch ex As Exception : End Try
        PictureBox1.Visible = False
    End Sub

    Private Sub NewToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewToolStripMenuItem.Click
        RichTextBox1.Clear()
    End Sub

    Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click
        MsgBox("Batch File Maker Created By Roatan Softwares")
    End Sub

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub GreenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GreenToolStripMenuItem.Click
        RichTextBox1.BackColor = Color.Black
        RichTextBox1.ForeColor = Color.Lime
    End Sub

    Private Sub RedToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RedToolStripMenuItem.Click
        RichTextBox1.BackColor = Color.Black
        RichTextBox1.ForeColor = Color.Red
    End Sub

    Private Sub WhiteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WhiteToolStripMenuItem.Click
        RichTextBox1.BackColor = Color.Black
        RichTextBox1.ForeColor = Color.White
    End Sub

    Private Sub BlackToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BlackToolStripMenuItem.Click
        RichTextBox1.BackColor = Color.White
        RichTextBox1.ForeColor = Color.Black
    End Sub

    Private Sub BlueToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BlueToolStripMenuItem.Click
        RichTextBox1.BackColor = Color.White
        RichTextBox1.ForeColor = Color.Blue
    End Sub

    Private Sub GreenToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GreenToolStripMenuItem1.Click
        RichTextBox1.BackColor = Color.White
        RichTextBox1.ForeColor = Color.Lime
    End Sub

    Private Sub SilverToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SilverToolStripMenuItem.Click
        RichTextBox1.BackColor = Color.Blue
        RichTextBox1.ForeColor = Color.Silver
    End Sub

    Private Sub RedToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RedToolStripMenuItem1.Click
        RichTextBox1.BackColor = Color.Blue
        RichTextBox1.ForeColor = Color.Red
    End Sub

    Private Sub GreenToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GreenToolStripMenuItem2.Click
        RichTextBox1.BackColor = Color.Blue
        RichTextBox1.ForeColor = Color.Lime
    End Sub

    Private Sub CheckForUpdatesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckForUpdatesToolStripMenuItem.Click
        MsgBox("You Have The Lastest Version")
    End Sub

End Class

Source Code Download

HTML Interactive Photo Gallery

2012-06-28T18:51:00.001-07:00

Samples

Final View

Adding a cool gallery to your website to captivate the user eye!

The Script

<script type="text/javascript" src="js/mootools.js"></script>
<script type="text/javascript" src="js/slimbox.js"></script>
<link rel="stylesheet" href="css/slimbox.css" type="text/css" media="screen" />

Each Image have to contain the following example:

<a href="images/amazingroa5.jpg" rel="lightbox"><img src="images/amazingroa5.jpg" alt="" width="144" height="98" />

Very simple and nice!

Complete Codes And Scripts

Make Your Computer Beep With Visual Basic 2008

2012-06-23T22:47:00.000-07:00

Design

Testing Project

You will need the following:
* 1 Button (Button Has a Hover effect that changes "Click Me!!" to ": D " when hover mouse)

Program Codes :

Imports System.IO
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Console.Beep()
    End Sub

    Private Sub Button1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseHover
        Button1.Text = ":D"
    End Sub

    Private Sub Button1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseLeave
        Button1.Text = "Click Me!!"
    End Sub
End Class

Source Code Download

Simple StopWatch Using Visual Basic 2008

2012-06-21T18:34:00.001-07:00

Design

Testing Project

You will need the following:
* 3 Button
* 1 Label

* 1 Timer (Interval set @ 1000)

Program Codes :

Public Class Form1

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label1.Text = Val(Label1.Text) + "01"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = True
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Enabled = False
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Label1.Text = "0"
    End Sub
End Class

Source Code Download

Get Your Computer Information Using Visual Basic 2008

2012-06-21T18:14:00.000-07:00

Design

Testing Project

You will need the following:
* 5 Textbox
* 6 Labels

Program Codes :

Imports System.IO
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Text = Environment.SystemDirectory.ToString
        TextBox2.Text = Environment.OSVersion.ToString
        TextBox3.Text = Environment.UserName.ToString
        TextBox4.Text = Mid((Environment.TickCount / 3600000), 1, 5) & " :Hours"
        TextBox5.Text = Environment.MachineName.ToString
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub
End Class

Source Code Download

Simple Web Browser Made On Visual Basic 2008

2012-06-21T14:24:00.000-07:00

Design

Testing Browser

You will need the following:
* 1 Textbox
* 2 Buttons

* 1 Web-browser plugin

Program Codes :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("www.google.com")
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        WebBrowser1.Navigate(TextBox1.Text)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        WebBrowser1.Navigate("www.google.com")
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        WebBrowser1.Navigate("back")
    End Sub

    Private Sub TextBox1_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Enter
        WebBrowser1.Navigate(TextBox1.Text)
    End Sub


End Class

Source Code Download

Making A Simple NotePad On Visual Basic 2008

2012-06-20T21:24:00.000-07:00

Design

Menu File Options

Menu Edit Option

Menu Help Option

You will need the following:
* 1 Richtextbox
* 1 DropdownMenuStrip with the following;
File (New, Save, Exit) Edit(Font, Color) Help(Help)

Program Codes :

Imports System.IO

Public Class Form1

    Private Sub ExitToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem1.Click
        End
    End Sub

    Private Sub NewToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewToolStripMenuItem.Click
        RichTextBox1.Text = ""
    End Sub

    Private Sub SaveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToolStripMenuItem.Click
        If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Dim myStream As New StreamWriter(SaveFileDialog1.FileName, True)
            myStream.Write(RichTextBox1.Text)
            myStream.Close()
        End If
    End Sub

    Private Sub SaveFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk

    End Sub

    Private Sub AboutToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem1.Click
        MsgBox("Made by VB2008Tutorialz")
    End Sub

    Private Sub FontToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FontToolStripMenuItem.Click
        FontDialog1.Font = RichTextBox1.Font
        FontDialog1.ShowDialog()
        RichTextBox1.Font = FontDialog1.Font
    End Sub

    Private Sub ColorToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ColorToolStripMenuItem.Click
        ColorDialog1.ShowDialog()
        If ColorDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            RichTextBox1.SelectionColor = ColorDialog1.Color
        End If

    End Sub

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

    End Sub
End Class

Project Source Download

Making a calculator on Visual Basic

2012-06-20T18:05:00.000-07:00

Design without codes

Design after adding codes

Final design

You will need the following:
* 17 Buttons
* 3 Textbox

Button Layout:
Button1 = 1          Button10 = 0
Button2 = 2          Button11 = +

Button3 = 3          Button12 = -
Button4 = 4          Button13 = x
Button5 = 5          Button14 = /
Button6 = 6          Button15 = Clear
Button7 = 7          Button16 = "="
Button8 = 8          Button17 = --->
Button9 = 9

The following is the codes for this program

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = TextBox1.Text + "1"
    End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Text = TextBox1.Text + "2"
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox1.Text = TextBox1.Text + "3"
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        TextBox1.Text = TextBox1.Text + "4"
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        TextBox1.Text = TextBox1.Text + "5"
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        TextBox1.Text = TextBox1.Text + "6"
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        TextBox1.Text = TextBox1.Text + "7"
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        TextBox1.Text = TextBox1.Text + "8"
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        TextBox1.Text = TextBox1.Text + "9"
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        TextBox1.Text = TextBox1.Text + "0"
    End Sub

    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        TextBox2.Text = TextBox1.Text
        TextBox3.Text = "+"
        TextBox1.Text = ""
    End Sub

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
        If TextBox3.Text = "+" Then
            TextBox3.Text = TextBox1.Text
            TextBox1.Text = Val(TextBox2.Text) + Val(TextBox3.Text)
        End If
        If TextBox3.Text = "x" Then
            TextBox3.Text = TextBox1.Text
            TextBox1.Text = Val(TextBox2.Text) * Val(TextBox3.Text)
        End If
        If TextBox3.Text = "/" Then
            TextBox3.Text = TextBox1.Text
            TextBox1.Text = Val(TextBox2.Text) / Val(TextBox3.Text)
        End If
        If TextBox3.Text = "-" Then
            TextBox3.Text = TextBox1.Text
            TextBox1.Text = Val(TextBox2.Text) / Val(TextBox3.Text)
        End If
        TextBox2.Text = ""
        TextBox3.Text = ""
    End Sub

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        TextBox2.Text = TextBox1.Text
        TextBox3.Text = "x"
        TextBox1.Text = ""
    End Sub

    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
        TextBox2.Text = TextBox1.Text
        TextBox3.Text = "/"
        TextBox1.Text = ""
    End Sub

    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
        TextBox1.Text = ""
    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        TextBox2.Text = TextBox1.Text
        TextBox3.Text = "-"
        TextBox1.Text = ""
    End Sub
End Class

Project and Source File Download