Skip to main content

AccessTr.neT


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

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

Çözüldü #1
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
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 04/12/2011, 00:03, Düzenleyen: drummers.
Cevapla
Çözüldü #2
Şö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
Cevapla
Çözüldü #3
(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
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #4
Vb.Net te her şey biraz daha farklı yeni form olayı:


Dim frm As Form
frm = New Form2
frm.Show()
Me.Hide()
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
Çözüldü #5
(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.
Cevapla
Çözüldü #6
(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]
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da