Har 2 forms. Det ena öppnar den andra genom att kalle på en funktion, så här:
'en sub
Dim frm As New Code()
frm.PrintCode(strClassName, strVariabels, strType)
Code är alltså det andra winformen. Hämtar värderna i den andra med:
Public Function PrintCode(ByVal strClassName As String, ByVal strValues As String, ByVal strType As String)
tbBussiness.Text = strClassName
' Show window
Dim frm As New Code()
frm.Show()
End Function
Men det visas inget i textboxen. Vad kan vara fel?
1. Du skapar en osynlig instans av Code.
2. Du anropar PrintCode på den.
3. Inne i PrintCode skapar du en tredje (och synlig) instans av Code som du aldrig anropar PrintCode på.
See the problem?
Dim frm As New Code()
frm.Show()
frm.PrintCode(strClassName, strVariabels, strType)
Public Function PrintCode(ByVal strClassName As String, ByVal strValues As String, ByVal strType As String)
tbBussiness.Text = "Public Shared Function " & strClassName
End Function