Private Sub YeniHareket_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YeniHareket.Click Dim f As New F_CariKayıt f.ShowDialog() End Sub
Private Sub CARIARA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CARIARA.Click Dim FRM As New F_CariList FRM.FORMNO.Text = 3 FRM.ShowDialog() End Sub
Sub detayformagonder() F_CariKayıt.CARKOD3.Text = CARI_TABLO.Rows(CARI_TABLO.CurrentCell.RowIndex).Cells(0).Value F_CariKayıt.UNVAN_CEK() End If ' Me.Close() End Sub
<pre>Sub detayformagonder() F_CariKayıt.CARKOD3.Text = CARI_TABLO.Rows(CARI_TABLO.CurrentCell.RowIndex).Cells(0).Value F_CariKayıt.UNVAN_CEK() End If ' Me.Close() End Sub
'Form2 code Public MyVar as string = ""
'Form1 code Dim f as new form2 f.MyVar = "Whatever"
Private Sub CARIARA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CARIARA.Click Dim FRM As New F_CariList FRM.FORMNO.Text = 3 FRM.ShowDialog() CARKOD3.Text = FRM.Rows(FRM.CurrentCell.RowIndex).Cells(0).Value UNVAN_CEK() End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)