AccessTr.neTVisual Basic .NETVisual Basic .NET Cevaplanmış Soruları

İsteğe bağlı form açılışı

1 2
04/12/2011, 00:03

drummers

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 yemedi Projem VB 2010 dur
04/12/2011, 01:46

ercansahin

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

drummers

(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ı
04/12/2011, 03:28

alpeki99

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, 12:58

ercansahin

(04/12/2011, 01:53)drummers yazdı: İlk formu kapadı fakat Kayitformu açmadı Mümkün değil..Test edilerek eklenmiştir.
05/12/2011, 00:11

drummers

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

Fromların biri açık kalıyor[/vb]
1 2