Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
frm_supplier.ShowDialog(frm_main)
End Sub
Private Sub btn_add_Click(sender As Object, e As EventArgs) Handles btn_add.Click
Dim uc As New uct_Order()
uc.lbl_supID.Text = lbl_idsup.Text
uc.txt_supName.Text = lbl_namesup.Text
Controls.Add(uc)
'MessageBox.Show(uc.lbl_supID.Text)
Close()
End Sub
Tag : .NET, Ms SQL Server 2012, Crystal Report, Win (Windows App), VB.NET, VS 2015 (.NET 4.x)
แนะว่าให้เพิ่ม property ใน User Control จะเหมาะกว่า และเป็นรูปแบบที่ใช้กันทั่วไปมากกว่า(ไม่รู้จะใช้ศัพท์ไหน)
ประมาณนี้ครับ
Code (VB.NET)
Public Class UserControl1
<Category("Tor Property"), _
Description("SubID")> _
Public Property SubID() As String
Get
Return lbl_supID.Text
End Get
Set(value As String)
lbl_supID.Text = value
End Set
End Property
<Category("Tor Property"), _
Description("SubName")> _
Public Property SubName() As String
Get
Return txt_supName.Text
End Get
Set(value As String)
txt_supName.Text = value
End Set
End Property
End Class
Load balance : Server 05
Quote:
Verygood
