SHOW:
|
|
- or go back to the newest paste.
| 1 | Imports QuickFix | |
| 2 | Imports QuickFix.Transport | |
| 3 | Imports QuickFix.Fields | |
| 4 | ||
| 5 | ||
| 6 | Public Class ClientGUI | |
| 7 | Dim filename As String = "initiator.cfg" | |
| 8 | Dim settings As New SessionSettings(filename) | |
| 9 | Dim myApp As New MyQuickFixApp() | |
| 10 | Dim storeFactory As New FileStoreFactory(settings) | |
| 11 | Dim logFactory As New FileLogFactory(settings) | |
| 12 | Dim initiator As New SocketInitiator(myApp, storeFactory, settings, logFactory) | |
| 13 | ||
| 14 | Public Sub ConnectToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ConnectToolStripMenuItem.Click | |
| 15 | ToolStripDropDownButton1.Text = "Establishing connection..." | |
| 16 | ToolStripDropDownButton1.Image = My.Resources._1376837601_Connecting | |
| 17 | initiator.Start() | |
| 18 | End Sub | |
| 19 | ||
| 20 | Private Sub DisconnectToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DisconnectToolStripMenuItem.Click | |
| 21 | ToolStripDropDownButton1.Text = "Disconnecting..." | |
| 22 | ToolStripDropDownButton1.Image = My.Resources._1376837601_Connecting | |
| 23 | initiator.Stop() | |
| 24 | End Sub | |
| 25 | ||
| 26 | End Class |
