Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Public Sub SetReceive(Value as String)
txtReceive.text = Value
End Sub
Private Sub OpenForm2
dim frmReceiver as new Form2
frmReceiver.SetReceive(txtSend.text)
frmReceiver.ShowDialog
End Sub
Private Property ReceiveText() As String
Get
Return txtReceive.Text
End Get
Set(ByVal Value As String)
txtReceive.Text = Value
End Set
End Property
Once you see that, look for this:'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Public Sub New(ReceiveValue as string)
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
txtReceive.Text = ReceiveValue
End Sub
Private Sub OpenForm2
dim frmReceiver as new Form2(txtSend.text)
frmReceiver.ShowDialog
End Sub
private m_frmOwner as Form
Public Sub New(byref frmOwner as Form)
m_frmOwner = frmOwner
End Sub
Public Sub DoProcess()
dim i as integer
for i = 0 to 100000
'do something
m_frmOwner.text = "Item " & i & " of 100000"
next i
End Sub
Private Sub StartProcess
dim pcsDoThing as New Process1(Me)
pcsDoThing.DoProcess
End Sub