(04/12/2011, 12:58)BlackEagle yazdı:(04/12/2011, 01:53)drummers yazdı: İlk formu kapadı fakat Kayitformu açmadı
Mümkün değil..Test edilerek eklenmiştir.
(04/12/2011, 03:28)alpeki99 yazdı: Vb.Net te her şey biraz daha farklı yeni form olayı:
Dim frm As Form
frm = New Form2
frm.Show()
Me.Hide()
kaydet butonumun kodları
Kod:
'kaydet butonu
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Then
MessageBox.Show("Eksik bilgi girdiniz. Lütfen tamamlayın", "Bilgi", MessageBoxButtons.OK, MessageBoxIcon.Information)
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()
TextBox7.Clear()
TextBox8.Clear()
MaskedTextBox1.Clear()
MaskedTextBox2.Clear()
TextBox9.Clear()
TextBox10.Clear()
TextBox11.Clear()
TextBox12.Clear()
TextBox13.Clear()
MaskedTextBox3.Clear()
MaskedTextBox4.Clear()
TextBox14.Clear()
TextBox15.Clear()
TextBox16.Clear()
MaskedTextBox5.Clear()
TextBox1.Focus()
Else
My.Settings.musavirunvani = TextBox1.Text
My.Settings.adi = TextBox2.Text
My.Settings.soyadi = TextBox3.Text
My.Settings.unvan = TextBox4.Text
My.Settings.isyeriadres = TextBox5.Text
My.Settings.isyeriil = TextBox6.Text
My.Settings.isyeriilce = TextBox7.Text
My.Settings.vergidairesi = TextBox8.Text
My.Settings.vergino = MaskedTextBox1.Text
My.Settings.tcno = MaskedTextBox2.Text
My.Settings.email = TextBox9.Text
My.Settings.odaismi = TextBox10.Text
My.Settings.odano = TextBox11.Text
My.Settings.kaseno = TextBox12.Text
My.Settings.burono = TextBox13.Text
My.Settings.telefon1 = MaskedTextBox3.Text
My.Settings.telefon2 = MaskedTextBox4.Text
My.Settings.anaadi = TextBox14.Text
My.Settings.babaadi = TextBox15.Text
My.Settings.dogumyeri = TextBox16.Text
My.Settings.dogumtarihi = MaskedTextBox5.Text
MessageBox.Show("Ayarlar Kayıt Edilmiştir. Programı yeniden başlatın.", "Bilgi", MessageBoxButtons.OK, MessageBoxIcon.Information)
Dim frm As Form
frm = New Kayitformu
frm.Show()
Me.Hide()
'Application.Exit()
[/vb]
