Advance System Information Using Visual Basic 2008

Download Project and Source Code

Clicking Game Made On Visual Basic 2008

 Design

Running

Download Project and Source Code

Screen Capture Program Using Visual Basic 2008

 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

 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

HTML Interactive Photo Gallery

 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

 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

 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

 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

 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

 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 :
 

Making a calculator on Visual Basic

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