Databases
StackOverflow2013
Postsdbo
POAppend text to a RichTextBox from another class in VB.NET
 

Note that there are some explanatory texts on larger screens.

plurals
  1. POAppend text to a RichTextBox from another class in VB.NET
    primarykey
    data
    text
    <p>I have a <code>Form</code> (ClientGUI) that has a <code>RichTextBox</code>. What I want to do is to append text to this RichTextBox from a Sub located in another class (MyQuickFixApp). I know that the Sub works, because the debugger go through, but it doesn't append the text to my <code>RichTextBox</code>.</p> <p>How do I do that ?</p> <p>Thanks for you help !</p> <hr> <p>ClientGUI.vb : </p> <pre><code>Imports QuickFix Imports QuickFix.Transport Imports QuickFix.Fields Public Class ClientGUI Dim initiator As SocketInitiator Public Sub ClientGUI_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim filename As String = "Resources/initiator.cfg" Dim settings As New SessionSettings(filename) Dim myApp As New MyQuickFixApp() Dim storeFactory As New FileStoreFactory(settings) Dim logFactory As New FileLogFactory(settings) initiator = New SocketInitiator(myApp, storeFactory, settings, logFactory) End Sub Public Sub ConnectToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ConnectToolStripMenuItem.Click ToolStripDropDownButton1.Text = "Establishing connection..." ToolStripDropDownButton1.Image = My.Resources.Connecting initiator.Start() End Sub Public Sub DisconnectToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DisconnectToolStripMenuItem.Click ToolStripDropDownButton1.Text = "Disconnecting..." ToolStripDropDownButton1.Image = My.Resources.Disconnecting initiator.Stop() End Sub End Class </code></pre> <p>MyQuickFixApp.vb :</p> <pre><code>Imports QuickFix Imports QuickFix.Transport Imports QuickFix.Fields Public Class MyQuickFixApp Inherits MessageCracker : Implements IApplication Dim _session As Session = Nothing Public Sub FromAdmin(message As Message, sessionID As SessionID) Implements IApplication.FromAdmin ClientGUI.RichTextBox1.AppendText("") ClientGUI.RichTextBox1.AppendText("IN (ADMIN): " + message.ToString()) Try Crack(message, sessionID) Catch ex As Exception ClientGUI.RichTextBox1.AppendText("") ClientGUI.RichTextBox1.AppendText("==Cracker exception==") ClientGUI.RichTextBox1.AppendText(ex.ToString()) ClientGUI.RichTextBox1.AppendText(ex.StackTrace) End Try End Sub Public Sub FromApp(message As Message, sessionID As SessionID) Implements IApplication.FromApp ClientGUI.RichTextBox1.AppendText("") ClientGUI.RichTextBox1.AppendText("IN (APP): " + message.ToString()) Try Crack(message, sessionID) Catch ex As Exception ClientGUI.RichTextBox1.AppendText("") ClientGUI.RichTextBox1.AppendText("==Cracker exception==") ClientGUI.RichTextBox1.AppendText(ex.ToString()) ClientGUI.RichTextBox1.AppendText(ex.StackTrace) End Try End Sub Public Sub ToApp(message As Message, sessionId As SessionID) Implements IApplication.ToApp Try Dim possDupFlag As Boolean = False If (message.Header.IsSetField(Tags.PossDupFlag)) Then possDupFlag = Converters.BoolConverter.Convert(message.Header.GetField(Tags.PossDupFlag)) End If If (possDupFlag) Then Throw New DoNotSend() End If Catch ex As FieldNotFoundException ClientGUI.RichTextBox1.AppendText("OUT (APP): " + message.ToString()) End Try End Sub Public Sub OnCreate(sessionID As SessionID) Implements IApplication.OnCreate '_session = Session.LookupSession(sessionID) ClientGUI.RichTextBox1.AppendText("Session created - " + sessionID.ToString()) End Sub Public Sub OnLogon(sessionID As SessionID) Implements IApplication.OnLogon ClientGUI.RichTextBox1.AppendText("Logon - " + sessionID.ToString()) ClientGUI.ToolStripDropDownButton1.Text = "Connected" ClientGUI.ToolStripDropDownButton1.Image = My.Resources.Connected 'MsgBox("onlogon") End Sub Public Sub OnLogout(sessionID As SessionID) Implements IApplication.OnLogout ClientGUI.RichTextBox1.AppendText("Logout - " + sessionID.ToString()) ClientGUI.ToolStripDropDownButton1.Text = "Disconnected" ClientGUI.ToolStripDropDownButton1.Image = My.Resources.Disconnected End Sub Public Sub ToAdmin(message As Message, sessionID As SessionID) Implements IApplication.ToAdmin ClientGUI.RichTextBox1.AppendText("OUT (ADMIN): " + message.ToString()) End Sub Public Sub OnMessage(message As FIX42.Heartbeat, sessionID As SessionID) ClientGUI.RichTextBox1.AppendText("HEARTBEAT") End Sub End Class </code></pre>
    singulars
    1. PO
      singulars
      1. PTAnswer
    1. This table or related slice is empty.
    1. PTQuestion
    1. USJoel Coehoorn
    1. USWilliam Gérald Blondel
    plurals
    1. PL
      singulars
      1. LTLinked
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. PO
      singulars
      1. PTAnswer
    2. PO
      singulars
      1. PTAnswer
    1. This table or related slice is empty.
    1. COPlease post the code that you have already
      singulars
      1. POAppend text to a RichTextBox from another class in VB.NET
      1. USMatt Wilko
    2. COHi, I've added the code
      singulars
      1. POAppend text to a RichTextBox from another class in VB.NET
      1. USWilliam Gérald Blondel
 

Querying!

 
Guidance
A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload