Public Class Meth
'ผมลอง inherit Cont เข้ามาแล้ว แต่เวลานำไปเรียกใช้มันเห็น ตัวแปร nameinput มาด้วย
Public Sub showDisplay(value as string)
nameInput.text = value
End Sub
End Class
Public Class Cont
Protected Shared nameInput As textbox
Public WriteOnly Property setConCtrl
Set(value)
nameInput = value
End Set
End Property
End Class
Public Class RUNFROM
Private Sub onLoad
Dim test As New Meth
test.setConCtrl = txtName '<--- ต้องการเรียกใช้แบบนี้ครับ
End Sub
End Class
Public Class Meth
Public setCon as new Cont
Public Sub showDisplay(value as string)
nameInput.text = value
End Sub
Public Class Cont
Protected Shared nameInput As textbox
Public Property setConCtrl As Textbox
Set(value As Textbox)
nameInput = value
End Set
Get
Return nameInput
End Get
End Property
End Class
End Class
Public Class RUNFROM
Private Sub onLoad
Dim test As New Meth
test.setCon.setConCtrl = txtName '<--- ได้เป็นแบบนี้ครับ
End Sub
End Class
Load balance : Server 04
