TextBox bleibt leer

[Electra]

Guten Tag,

Was mache ich falsch, dass eine Textbox trotz Setzen der Text Property leer bleibt auf dem Form? Ich habe invalidate und refresh versucht, doch die Box bleibt leer. Der TextChange Handler wird jedoch aufgerufen. Eine dort platzierte Messagebox wird aufgerufen, das Feld bleibt leer.

Die Text Property wird mittels eines Delegates, der auf Invoke prüft, gesetzt.

Herzlichen Dank für einen Tip.

[Jürgen Thomas]

Meine Glaskugel ist gerade zur Reparatur...

Angesichts der vielen, umfangreichen Angaben von Dir kann man nur raten. Du müsstest schon Code anzeigen. Und hast Du es mal mit Kontrolle über den Debugger versucht?

Jürgen

[Electra]

Textbox bleibt leer - weitere Angaben

Lol, wollte nicht gleich mit der Tür ins Haus fallen.

Form1.vb

Public Class Form1

' ... die TextBox txtCall wird mittels Designer in dieser Klasse definiert

' ... auch der Button der den API Request auslöst, ist hier definiert

End Class

Classe1.vb

Public Class OptionsInitiator

Delegate Sub SetCallSymbolCallback(ByVal symbol As String)

    Public Sub SetCallSymbol(ByVal symbol As String)
        If Form1.txtCall.InvokeRequired Then
            Dim d As New SetCallSymbolCallback(AddressOf SetCallSymbol)
            Form1.Invoke(d, symbol)
        Else
            Form1.txtCall.Text = symbol
        End If
    End Sub

'...

    Private Sub OptionsInitiator_RequestCompleted(ByVal reqID As Integer) Handles Me.RequestCompleted
        Const strExpMonthCalls As String = "ABCDEFGHIJKL"
        Const strExpMonthPuts As String = "MNOPQRSTUVWX"

        For Each optionInit As OTFeed_NET.OTOptionInit In q
            With optionInit
                If .RequestId = reqID Then
                    If InStr(strExpMonthCalls, Mid(.Symbol, Len(.Symbol) - 1, 1)) > 0 Then
                        Me.SetCallSymbol(optionInit.Symbol)
                        Exit For
                    End If
                    If InStr(strExpMonthPuts, Mid(.Symbol, Len(.Symbol) - 1, 1)) > 0 Then
                        Form1.txtPut.Text = optionInit.Symbol
                        Exit For
                    End If
                End If
            End With
        Next
    End Sub

'...

End Class

Im Wesentlichen verwende ich den Grundcode, den MSDN für die Implementation des Asynchronen Patterns mit Events publiziert hat. Allerdings berechne ich nicht, wie dort, Primzahlen, sondern rufe via ein API informationen aus einer Datenbank ab. Wenn der Request beendet wird, sollen die empfangenen Symbole (hier zum Beispiel das Call-Symbol) auf dem Form1 dargestellt werden.

Herzlichen Dank für Deine Ratschläge.
Electra

[Jürgen Thomas]

Danke für diese Informationen. Jetzt weiß ich, dass ich nicht helfen kann: Mit Callback habe ich mich noch nicht befasst; und VB kann ich nur mit Mühe lesen (aber nicht schreiben).

Aber ich bin sicher, dass Du mit diesen Informationen noch Hilfe bekommst. Jürgen

[Markus Lahr]

Hallo.

Das Problem lässt sich wohl nur mit Kenntnis der Umgebung beheben.
Dennoch: http://www.galileocomputing.de/openbook/visual_basic/

Gruss