Public Class Form2 Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Public Sub qc_OnQuote(ByVal sender As Object, ByVal args As QuoteEventArgs) Dim str As String = args.ToString Dim bidask As String() = str.Split(" ") MsgBox(bidask(1) & " / " & bidask(2)) Label8.Text = "" & bidask(1) & " / " & bidask(2) End Sub Private Sub ComboBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.TextChanged Try Dim syms As String = ComboBox1.Text Dim sym As String() = syms.Split(",") Dim qc As QuoteClient = New QuoteClient(******, "*******", "**.***.***.***", ****) AddHandler qc.OnQuote, AddressOf Me.qc_OnQuote qc.Connect() qc.Subscribe(sym(0)) Catch ex As Exception MsgBox(ex.Message) End Try End Sub
str
Dim str As String
Dim args As String = "XXXXXXXX YYYYYYY ZZZZZZZZZZZZ" Dim str As String = args.ToString Dim bidask As String() = str.Split(" ") MsgBox(bidask(1) & " / " & bidask(2)) Label1.Text = "" & bidask(1) & " / " & bidask(2)
YYYYYYY / ZZZZZZZZZZZZ
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)