Sohbet Programı VB.Net

FORM1 İçerisine Yazılacak Kodlar…

Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click

Dim Form2 As New Form2()

If Integer.Parse(textBox1.Text) = 1907 Then

Form2.Show()

Me.Hide()

Else

MessageBox.Show("Yanlış Şifre ")

End If

End Sub

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

button1.Enabled = False

End Sub

Private Sub textBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles textBox1.TextChanged

button1.Enabled = True

End Sub

FORM2 İçerisine Yazılacak Kodlar…

Imports System.Data.OleDb

Public Class Form2

Dim bag As New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;Data Source=yesim.mdb")
Dim kmt As New OleDbCommand
Dim adtr As OleDbDataAdapter
Dim dtst As New DataSet

Sub listele()
bag.Open()
adtr = New OleDbDataAdapter("select * From tablo1", bag)
adtr.Fill(dtst, "tablo1")
dataGridView1.DataSource = dtst
dataGridView1.DataMember = "tablo1"
bag.Close()
adtr.Dispose()

End Sub

Private Sub dosyaToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dosyaToolStripMenuItem1.Click
saveFileDialog1.ShowDialog()

End Sub

Private Sub nickDeğiştirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nickDeğiştirToolStripMenuItem.Click
Dim frm3 = New Form3()
frm3.Show()
Me.Hide()

End Sub

Private Sub button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button2.Click
groupBox1.Visible = True

End Sub

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
listele()
groupBox1.Visible = False
groupBox2.Visible = False

End Sub

Private Sub görüntüResmiDeğiştirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles görüntüResmiDeğiştirToolStripMenuItem.Click
saveFileDialog1.ShowDialog()
Dim ara As String
ara = saveFileDialog1.FileName
pictureBox1.Load(ara)

End Sub

Private Sub oturumKapatToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles oturumKapatToolStripMenuItem.Click
Dim frm1 = New Form1()
frm1.Show()
Me.Hide()

End Sub

Private Sub oturumKilitleToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles oturumKilitleToolStripMenuItem.Click
Dim frm4 = New Form4()
frm4.Show()
Me.Hide()

End Sub

Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
bag.Open()
kmt.Connection = bag
kmt.CommandText = "INSERT INTO Tablo1( Kişiler,Msn  ) VALUES ('" + textBox1.Text + "','" + textBox2.Text + "')"
kmt.ExecuteNonQuery()
bag.Close()
kmt.Dispose()
dtst.Clear()
listele()
groupBox1.Visible = False

End Sub

Private Sub button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button3.Click
groupBox2.Visible = True

End Sub

Private Sub button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button4.Click
bag.Open()
kmt.Connection = bag
kmt.CommandText = "DELETE FROM Tablo1 WHERE Msn='" + textBox3.Text + "'"
kmt.ExecuteNonQuery()
bag.Close()
kmt.Dispose()
dtst.Clear()
listele()

groupBox2.Visible = False

End Sub

Private Sub kişiEkleToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kişiEkleToolStripMenuItem.Click
groupBox1.Visible = True
End Sub

Private Sub kişiSilToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kişiSilToolStripMenuItem.Click
groupBox2.Visible = True

End Sub
End Class

FORM3 İçerisine Yazılacak Kodlar…

Public Class Form3

Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
Dim frm2 = New Form2()
frm2.Show()
Me.Hide()
frm2.label1.Text = textBox1.Text

End Sub
End Class

FORM4 İçerisine Yazılacak Kodlar…

Public Class Form4

Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
Dim frm2 = New Form2()
frm2.Show()
Me.Hide()

End Sub

End Class

Projeyi İNDİR

Rica: Sitemizin Google'da Ön Sıralarda Çıkması İçin Lütfen Alttaki Google+ Butonuna Tıklayınız , Sayfamızı Facebookta Beğeniniz veya yazıları Twitter,Facebookta paylaşınız.