Windows Forms

<br />
    Private Delegate Sub ControlStringConsumer(ByVal control As Control, ByVal text As String)    ' defines a delegate type<br />
<br />
    ' SetTextData to update text of TextBox (statusTxt)<br />
    Private Sub SetTextData(ByVal control As Control, ByVal text As String)<br />
        If (control.InvokeRequired) Then<br />
            control.Invoke(New ControlStringConsumer(AddressOf SetTextData), New Object() {control, text})<br />
        Else<br />
            control.Text = text<br />
        End If<br />
    End Sub<br />
<br />
<br />
    ' Update Imported<br />
    Private Sub updateBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles updateBtn.Click<br />
        If (ValidateInputs()) Then<br />
            importAdd = False<br />
            ' ADDED THREADING EXECUTION FOR Start_Processing<br />
            Dim myThreadDelegate As New ThreadStart(AddressOf Start_Processing)<br />
            Dim myThread As New Thread(myThreadDelegate)<br />
            myThread.Start()<br />
<br />
            'Start_Processing()<br />
        End If<br />
    End Sub<br />
<br />
    Private Sub Start_Processing()<br />
        'statusTxt.AppendText(vbCrLf + "Initializing...." + vbCrLf + "Loading Data........." + vbCrLf)<br />
        dim s as string = vbCrLf + "Initializing...." + vbCrLf + "Loading Data........." + vbCrLf<br />
        SetTextData(statusTxt, s)<br />
        .........<br />
    Endif<br />
       <br />

public void SetText(Control control, string text) {
    if (control.InvokeRequired) {
        control.Invoke(new ControlStringConsumer(SetText), new object[]{control, text});  // invoking itself
    } else {
        control.Text=text;      // the "functional part", executing only on the main thread
    }
}

public void AppendText(TextBox control, string text) {
    if (control.InvokeRequired) {
        control.Invoke(new ControlStringConsumer(AppendText), new object[]{control, text});  // invoking itself
    } else {
        control.AppendText(text);      // the "functional part", executing only on the main thread
    }
}

Private Delegate Sub ControlStringConsumer(ByVal control As Control, ByVal text As String)    ' defines a delegate type

Private Sub importNewBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles importNewBtn.Click
    If (ValidateInputs()) Then
        'Start_Processing()
        Dim myThreadDel As New ThreadStart(AddressOf Start_Processing)
        Dim myThread As New Thread(myThreadDel)
        myThread.Start()
    End If
End Sub

Public Sub AppendText(ByVal control As TextBox, ByVal text As String)
    If (control.InvokeRequired) Then
       ' invoking itself SHOWS WARNING - IMPLICIT CONVERSION FROM CRONTROL TO TEXTBOX
        control.Invoke(New ControlStringConsumer(AddressOf AppendText), New Object() {control, text})
    Else
        control.AppendText(text)      ' the "functional part", executing only on the main thread
    End If
End Sub

Private Sub Start_Processing()
    EnableComponents(False)
    statusTxt.Clear()  ' ---- GENERATING ERROR

    statusTxt.AppendText(vbCrLf + "Initializing...." + vbCrLf + "Loading Data........." + vbCrLf)
    ' Load all required basic Data
    If (setUp() = False) Then
        Return
    End If

    statusTxt.AppendText(vbCrLf + "Generating....." + vbCrLf)
    GenerateQueries()
    statusTxt.AppendText(vbCrLf + "Data Set Up Completed - " + Now.ToString + vbCrLf)

    ' ADD ALL RECORDS OF main TO REGISTER
    statusTxt.AppendText(vbCrLf + "Processing Main transactions ..... " + Now.ToString + vbCrLf)
    MainProcessing()

    ' Update UFV records to Register
    statusTxt.AppendText(vbCrLf + "Processing UFV transactions ..... " + Now.ToString + vbCrLf)
    UFVProcessing()

    ' Update Item records to Register
    statusTxt.AppendText(vbCrLf + "Processing Item transactions ..... " + Now.ToString + vbCrLf)
    ItemProcessing()

    ' Update Tax records to register
    statusTxt.AppendText(vbCrLf + "Processing Tax transactions ..... " + Now.ToString + vbCrLf)
    TaxProcessing()

    ' Update Qty, Rate records to Register
    statusTxt.AppendText(vbCrLf + "Processing Qty/Rate transactions ..... " + Now.ToString + vbCrLf)
    Qty_Rate_Processing()

    'Update Ctr
    OleDbModule.UpdateCtr(tblName, docId)

    statusTxt.AppendText("FINISHED WORKING WITH DOCUMENTS OF " + docType + " OF " + transType)
    EnableComponents(True)

    Return
End Sub

Moshe T wrote:

Your suggestion will mix-up those layers

class MyPanel : TableLayoutPanel
{
    public string NameText
    {
        get
        {
            return myNameTextBox.Text;
        }

        set
        {
            myNameTextBox.Text = value;
        }
    }
}

KenKen Wong wrote:

Does Windows From have any API for that?