• Bu site çerezler kullanır. Bu siteyi kullanmaya devam ederek çerez kullanımımızı kabul etmiş olursunuz. Daha fazla bilgi edin.
  • Editör alımları başladı! Hemen başvur ve kadroya gir! [ Konuya git ]
  • Destek Adayı alımları başladı! Hemen başvur ve kadroya gir! [ Konuya git ]

Sohbet Programı VB.Net

JIA

Onaylı Üye
Onaylı Üye
Katılım
25 Şub 2019
Mesajlar
60
Beğeniler
74
Puanları
18
#1
Sohbet Programı VB.Net

FORM1 İçerisine Yazılacak Kodlar…
Kod:
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…

Kod:
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…

Kod:
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…

Kod:
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


PROJEYİ İNDİRMEK İÇİN
[ TR ] Bu içeriği görmek için bunu beğenmeniz veya yanıtlamanız gerekir.
[ EN ]You need to like or reply to this in order to see this content.
 

AdiosVac

Aktif Üye
Aktif Üye
Katılım
10 Tem 2019
Mesajlar
10
Beğeniler
0
Puanları
1
Yaş
24
#2
bu tür paylaşımlar yaparken hangi kodun ne işe yaradığını da anlatsanız diğer arkadşlar için faydalı olabilir.