Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

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

drummers
drummers
Visual Basic .NET Cevaplanmış Soruları
11
5389

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

Çözüldü #1
drummers
Omur Can
drummers
www Bul
Destek
Adı Soyadı: Om.... Ca....
Konum: İzmir
Ofis Versiyonu: Ofis 2003
Son Oturumu: 30/01/2025,16:50
Yorumları: 419
Konuları: 122
Kayıt Tarihi: 11/05/2009
Teşekkür Puanı: 125
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
ercansahin
BlackEagle
ercansahin
Bul
Uzman
Adı Soyadı: Er.... ŞA....
Yaşı: 50
Konum: Bursa
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: 01/11/2024,00:00
Yorumları: 3.764
Konuları: 69
Kayıt Tarihi: 14/11/2008
Teşekkür Puanı: 1.089
Şö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
drummers
Omur Can
drummers
www Bul
Destek
Adı Soyadı: Om.... Ca....
Konum: İzmir
Ofis Versiyonu: Ofis 2003
Son Oturumu: 30/01/2025,16:50
Yorumları: 419
Konuları: 122
Kayıt Tarihi: 11/05/2009
Teşekkür Puanı: 125
(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
alpeki99
Düşünmek en zor iştir...
alpeki99
www Bul
Uzman
Adı Soyadı: Ol....
Yaşı: 44
Konum: Bursa
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: 05/12/2024,08:44
Yorumları: 6.138
Konuları: 162
Kayıt Tarihi: 29/10/2008
Teşekkür Puanı: 1.291
Mesleğiniz: Yazılım Geliştirici
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
ercansahin
BlackEagle
ercansahin
Bul
Uzman
Adı Soyadı: Er.... ŞA....
Yaşı: 50
Konum: Bursa
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: 01/11/2024,00:00
Yorumları: 3.764
Konuları: 69
Kayıt Tarihi: 14/11/2008
Teşekkür Puanı: 1.089
(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
drummers
Omur Can
drummers
www Bul
Destek
Adı Soyadı: Om.... Ca....
Konum: İzmir
Ofis Versiyonu: Ofis 2003
Son Oturumu: 30/01/2025,16:50
Yorumları: 419
Konuları: 122
Kayıt Tarihi: 11/05/2009
Teşekkür Puanı: 125
(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
Task