AccessTr.neT

Tam Versiyon: İsteğe bağlı form açılışı
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
Açılışta gelen formumun ismi "Musavir.vb" bu formda işim bitince, yani kaydet(button1) veya sıfırla (button2) ye bastığımda "Musavir.vb" formumun kapanıp ardından "Kayitformu.vb" formumun açılmasını nasıl sağlarım. Teşekkürler

"Musavir.vb" deki butonların kodlarının altına
Me.Close()
Kayitformu.Show()

yazdım ama yemediImg-grin
Projem VB 2010 dur
Şöyle yapabilirsiniz.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Hide()
Kayitformu.Show()
End Sub
(04/12/2011, 01:46)BlackEagle yazdı: [ -> ]Şöyle yapabilirsiniz.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Hide()
Kayitformu.Show()
End Sub

İlk formu kapadı fakat Kayitformu açmadıImg-cray
Vb.Net te her şey biraz daha farklı yeni form olayı:


Dim frm As Form
frm = New Form2
frm.Show()
Me.Hide()
(04/12/2011, 01:53)drummers yazdı: [ -> ]İlk formu kapadı fakat Kayitformu açmadıImg-cray

Mümkün değil..Test edilerek eklenmiştir.
(04/12/2011, 12:58)BlackEagle yazdı: [ -> ]
(04/12/2011, 01:53)drummers yazdı: [ -> ]İlk formu kapadı fakat Kayitformu açmadıImg-cray

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()

Fromların biri açık kalıyorImg-cray[/vb]
Sayfalar: 1 2