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

alamin net

Jras@UJJAL4(G)

Read More

Search button by quary

New Quary Name set     "Search"

Query Builder Click

(StudentName LIKE?+"%")



Button Coding   =   ShopdataTableAdapter.Search(ShopmaintaindataDataSet.shopdata, TextBox1.Text)

Read More

save text of text box

public class Forn1

Public sub button_click(fxdhmgickgm,354120)
If (TextBox_pass.Text = "123456") Then
Form2.Show()
Me.Hide()

Else

MessageBox.Shoe("Possword is not Correct")

End If

End Sub

End Class







exit button    =    Application.Exit()

if (te




SaveFileDialog1.ShowDialog()
SaveFileDialog1.Title = "Save Text"
SaveFileDialog1.InitialDirectory ="C:\"

Dim location As String

location = SaveFileDialog1.FileName

My.Computer.FileSystem.WriteAllText(location & ".txt", "" & TextBox.Text, True)         /       SaveFileDialog1.Filter = "Text files | *.txt"







SaveFileDialog1.ShowDialog()
RichTextBox1.SaveFile(SaveFileDialog1.FileName)
MsgBox("File save Sucessfuliy")






TextBox5.AppendText (" " + vbNewLine)
TextBox5.AppendText (vbTab &  label1.Text + " : "  + TextBox1.Text + vbNewLine)
TextBox5.AppendText (" " + vbNewLine)
TextBox5.AppendText (vbTab &  label2.Text + " : "  + TextBox2.Text + vbNewLine)
TextBox5.AppendText (" " + vbNewLine)
TextBox5.AppendText (vbTab &  label3.Text + " : "  + TextBox3.Text + vbNewLine)
TextBox5.AppendText (" " + vbNewLine)
TextBox5.AppendText (vbTab &  label4.Text + " : "  + TextBox4.Text + vbNewLine)

TextBox5.AppendText (" " + vbNewLine)
TextBox5.AppendText (vbTab &  Today & TimeOfDay + vbNewLine)

gggggggggggggggggggggggggggggggggggggggggg

If FontDialog1.ShowDialog = DialogResult.Ok Than
TextBox5.Font = FontDialog1.Font
End If
22222222222222222
If ColoDialog1.ShowDialog = Windows.Forms.DialogResult.Ok Than
TextBox5.ForeColor = ColorDialog1.Font

ColorDialog1.ShowDialog()
TextBox5.ForeColor = ColoDialog1.ColorDialog1

Read More