Web browser

back Button        =  WebBrowser1.GoBack

Forword Button  =  WebBrowser1.GoForword

Refresh Button    =  WebBrowser1.Refresh

Home button        =  WebBrowser1.Navigate("#")

Go Button            =  WebBrowser1.Navigate("Textboox.Text")

Google Search     =  WebBrowser1.Navigate("https://www.google.com/search?q=" + TextBox1.Text)

Read More

Show Windows Time

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Label1.Text = TimeOfDay
    End Sub

Read More

Button Background and text color & Form background and textchange

Button1.ForeColor = Color.White      text color
Button1.BackColor = Color.Blue

Me.ForeColor = Color.White                 form color
Me.BackColor = Color.Red

Read More

TableLayoutPanel Show and Hide

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        TableLayoutPanel1.Show()
        TableLayoutPanel2.Hide()
        TableLayoutPanel3.Hide()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        TableLayoutPanel2.Show()
        TableLayoutPanel3.Hide()
        TableLayoutPanel1.Hide()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        TableLayoutPanel3.Show()
        TableLayoutPanel2.Hide()
        TableLayoutPanel1.Hide()
    End Sub

Read More

Font + Color Dialog

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


Private Sub ColorToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ColorToolStripMenuItem.Click
        ColorDialog1.ShowDialog()
        RichTextBox1.ForeColor = ColorDialog1.Color
End Sub

Read More

Print & Preview visual studio

Two button  +  PrintDocument1  +  PrintPreviewDialog1  +  RichTextBox1

 Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        If RichTextBox1.Text = "" Then
            MsgBox("Your Text is blank. please type something")
        Else
            PrintPreviewDialog1.ShowDialog()
        End If
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        PrintDocument1.Print()
    End Sub

    Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Dim font As New Font("Arial", 16, FontStyle.Regular)
        e.Graphics.DrawString(RichTextBox1.Text, font, Brushes.Black, 100, 100)
    End Sub

Read More

Access file to view

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles ButtonClose.Click
        AdminLoginForm.Show()
        Me.Hide()
    End Sub

    Private Sub FontToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FontToolStripMenuItem.Click

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles ButtonNew.Click
        TblAdmissionBindingSource.AddNew()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles ButtonSave.Click
        TblAdmissionBindingSource.EndEdit()
        TblAdmissionTableAdapter.Update(SchoolProjectDataSet.tblAdmission)
    End Sub

    Private Sub SearchToolStripButton_Click(sender As Object, e As EventArgs) Handles SearchToolStripButton.Click
        Try
            Me.TblAdmissionTableAdapter.Search(Me.SchoolProjectDataSet.tblAdmission, StudentNameToolStripTextBox.Text)
        Catch ex As System.Exception
            System.Windows.Forms.MessageBox.Show(ex.Message)
        End Try

    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles ButtonSearch.Click
        TblAdmissionTableAdapter.Search(SchoolProjectDataSet.tblAdmission, AdmissionNoTextBox.Text)
    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles ButtonRemove.Click
        TblAdmissionBindingSource.RemoveCurrent()
    End Sub

    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles ButtonPreviews.Click
        TblAdmissionBindingSource.MovePrevious()
    End Sub

    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles ButtonNext.Click
        TblAdmissionBindingSource.MoveNext()
    End Sub

    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles ButtonFirst.Click
        TblAdmissionBindingSource.MoveFirst()
    End Sub

    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles ButtonLast.Click
        TblAdmissionBindingSource.MoveLast()
    End Sub

    Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
        FindStudentPayment.Show()
    End Sub
End Class

Read More