Merhaba Ziyaretçi !

Konuyu Oyla:
  • Toplam: 0 Oy - Ortalama: 0
  • 1
  • 2
  • 3
  • 4
  • 5
Formlar Arasında Veri Transferi Yapmak

Kurucu & Admin
Yorum Sayısı: 649
Konu Sayısı: 218
Üyelik Tarihi: May 2008
Rep Puanı:
0

TL: 68.68₺
#1
Merhaba arkadaşlar, bu makalemde sizlere iki form arasında veri taşımayı göstereceğim.

Şimdi Form1'e 2 tane Label ve 1 tane de Buton koyuyoruz.

f2945549c49dcdf04c310d7c53dc861a2deae4dd.jpg

Şimdi kodlama bölümüne geçelim.

Buton1_click Event'ına (olayına) çift tıklama yolu ile geçelim.

Kod:
Private Sub btnform1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnform1.Click



       Dim f As New Form2



       f.ShowDialog() 'f.ShowDialog() (bu şekilde yazıldığında buton bir kez tıklandığında form2 açılır form2'nin görevi bitmeden form1'e dönüş yapılamaz.)



       'f.Show() ' f.Show() (bu şekilde yazıldığında ise form1'deki buton'a her tıklamada form2'yi yeniden açar.)



   End Sub


Şimdi sıra geldi Form2'deki değeri Form1'deki Label'a göndermeye. Şimdi Form2'deki kontrolleri düzenleyelim; 1 tane buton ve 1 Tane textbox koyuyoruz.

2c1bb3f6e719de03589e1777003cba2b4f0fe123.jpg

Ve şimdi geçelim kodlama bölümüne;

Kod:
Private Sub btnform2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnform2.Click



       Form1.Label2.Text = Me.TextBox1.Text



       Me.Close()



   End Sub

Private m_form1 As Form1 'form1'deki controllere ulaşabilmek için private bir değişken tanımlıyoruz.

Kod:
Public Sub LoadMe(ByRef form As Form1)



       m_form1 = form ' Tanımladığımız Private değişkeni Public Sub içinde kullanarak. Form1'deki bütün herşeye ulaşmamızı sağlıyor.

Projemizi çalıştırıyoruz şimdi. İlk açılış olarak Form1'i seçiyoruz.

1fb3266ab7cf096170962c82b3b3e86712524127.jpg

Ve projemizi çalıştırıp Form1'de bulunan Diğer Form’a geçiş yapacağımız Buton'a tıklıyoruz.

83b715108941e4a4332f5e424e9d8e21825ca357.jpg

Form2'yi açıldıktan sonra Form2'de bulunan buton'a tıklıyoruz ve form2'deki textboxta bulunan yazı Form1'e Geçmiş oluyor.

d95c3ae45b85cd20e1bace5e76d5a92cf10a4fdf.jpg

Alıntıdır.

AYKAÇ™
01-21-2016, 06:42 AM
Ara Cevapla


Hızlı Menü:


Şu anda bu konuyu okuyanlar: 2 Ziyaretçi


10tl.net Destek Forumu -

Online Shopping App
Online Shopping - E-Commerce Platform
Online Shopping - E-Commerce Platform
Feinunze Schmuck Jewelery Online Shopping