AccessTr.neT
İsteğe bağlı form açılışı - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic .NET (https://accesstr.net/forum-visual-basic-net.html)
+--- Forum: Visual Basic .NET Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-net-cevaplanmis-sorulari.html)
+--- Konu Başlığı: İsteğe bağlı form açılışı (/konu-istege-bagli-form-acilisi.html)

Sayfalar: 1 2

İsteğe bağlı form açılışı - drummers - 04/12/2011

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

Cvp: İsteğe bağlı form açılışı - ercansahin - 04/12/2011

Şö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


Cvp: İsteğe bağlı form açılışı - drummers - 04/12/2011

(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

Cvp: İsteğe bağlı form açılışı - alpeki99 - 04/12/2011

Vb.Net te her şey biraz daha farklı yeni form olayı:



    Dim frm As Form

    frm = New Form2

    frm.Show()

    Me.Hide()


Cvp: İsteğe bağlı form açılışı - ercansahin - 04/12/2011

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

Cvp: İsteğe bağlı form açılışı - drummers - 05/12/2011

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