dotNETportal.cz

Dobrý den. Dělám si takový komunikátor přes sériový port a vše funguje ale když mám ve formu ve kterém mám komponentu SerialPort1 proceduru SerialPort1_DataRecieved ve které volám metodu pridej v komunikačním formuláři, tak app spadne a na řádku

RichTextBox1.Text &= Environment.NewLine & text

se mi ukáže výše uvedená chyba (nadpis). Poradí mi někdo jak to mám udělat? Díky předem, PC22.

To znamená, že richTextBox1 byl vytvořen v jiném vlákně, než z jakého se k němu pokoušíte přistupovat (typicky když je RichtextBox umístěn na formuláři, Vy spustíte něco v jiném vlákně a z toho jiného vlákna zkusíte přistupovat k tomu richtextboxu)

K prvkům formuláře můžete přistupovat jen z hlavního vlákna, pokud potřebujete na něm něco měnit z jiného vlákna, můžete použít např. komponentu BackGroundWorker (na tomto webu je o ní pěkný článek).

o komponente BackGroundWorker som tu niako nenasiel clanok mozete mi prosim napisat LINK ? Dakujem

Dobrý den,

dá se to také obejít tak, že ve formu definujete proměnou, do které budete předávat data ze seriového portu a následně data z proměné "sypat" do RichTextBoxu , třeba každých 100ms timerem

J.

je to moznost ,ktora mi uz napadlo velmi davno a vysledok bol ze zbytocne sa zatazuje aplikacia... ved sami skuste ze je to hlupe.

... skromný dotaz, jak by to vypadalo, když bych chtěl naplnit RichTextBox1 přijatými daty ze sériového portu, jsou v invoke nějaké parametry ?

J.

Ano to by mě také zajímalo. Pokud bych v proceduře SetRichTextBox potřeboval parametr Sub SetRichTextBox (ByVal text as String) Jak ho tam vmáčknu? Visual Studio na mě totiž řve, že delegát vyžaduje AddressOf a když ho tam dám tak mě to tam už nenechá parametr vtěstnat.

Můj kód tedy vypadá takto:

    Delegate Sub ZapsatTextDelegate()

    Protected Sub ZapsatText()
        If Me.InvokeRequired Then
            'jsme v jiném vlákně
            Me.Invoke(New ZapsatTextDelegate(AddressOf zapsatText))
            Exit Sub
        End If

        Me.Label1.Text = "AHOJ"
    End Sub

Ale já bych proceduře ZapsatText potřeboval posílat parametr.

Takže zpět, vyřešeno (sice náhodou ale vyřešeno) :)

Parametry se mi podařilo poslat takto:

    Delegate Sub ZapsatTextDelegate(ByVal text As String)

    Protected Sub zapsatText(ByVal text As String)
        If Me.InvokeRequired Then
            'jsme v jiném vlákně
            Me.Invoke(New ZapsatTextDelegate(AddressOf zapsatText), text)
            Exit Sub
        End If

        Me.Label1.Text = text
    End Sub

Díky za vše ale již jsem našel řešení pomocí delegáta.