Joined: |
Aug 18, 2004 01:33 PM |
Last Post: |
Sep 3, 2004 09:17 AM |
Last Visit: |
Sep 9, 2004 09:28 AM |
Website: |
|
Location: |
|
Occupation: |
|
Interests: |
|
Avatar: |
|
|
AIM: |
|
ICQ: |
|
MSN IM: |
|
Yahoo IM: |
|
|
gklangreck has contributed to 3 posts out of 21251 total posts
(0.01%) in 7,631 days (0.00 posts per day).
20 Most recent posts:
Can't get simple VB .NET program to work with IQFeedY. I draged the AX control to the form and used it that way. I also tried using the COM way and could not get anything to work. Can someone please help with this simple program...
Here is the code for the form...
Public Class Form1 Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim strName As String = "IQFEED_DEMO" Dim strVersion As String = "1" Dim strKey As String = "0.11111111" Try IQFeedY.RegisterClientApp(strName, strVersion, strKey) IQFeedY.SetAutoLogin("000000", "0000") Catch ex As Exception MessageBox.Show(ex.ToString) End Try End Sub
Private Sub btnGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGo.Click IQFeedY.WatchSymbol("KLAC") End Sub
Private Sub IQFeedY_QuoteMessage(ByVal sender As Object, ByVal e As AxIQFEEDYLib._DIQFeedYEvents_QuoteMessageEvent) Handles IQFeedY.QuoteMessage lstOutput.Items.Add(e.strQuoteData) End Sub
Private Sub IQFeedY_IQConnectStatus(ByVal sender As Object, ByVal e As AxIQFEEDYLib._DIQFeedYEvents_IQConnectStatusEvent) Handles IQFeedY.IQConnectStatus lstOutput.Items.Add("Connection Code " & e.lStatus.ToString) End Sub End Class
OK I see now that I should be using IQFeedY, but I don't see any examples for VB .NET. I tried the AX control, but it would shutdown my program right after it loged in. I'm currently trying to use the Com direction from reading other problems in this forum, but still having problems with tham. Does anyone have a simple watch symbol program in VB .NET that they could send me.
Thanks...
I'm trying to develop a VB .NET program receiving up to the second stock quotes. I've tryed this simple test program to figure out what the problem is and it exits after less than 5 min without a reason. Can anyone help, please. Here is the code for the form.
Private s1 As String = "KLAC" Private s2 As String = "NVLS"
Private Sub btnGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGo.Click IQFeed.WatchSymbol(s1) IQFeed.WatchSymbol(s2) End Sub
Private Sub IQFeed_ReceiveMessage(ByVal sender As Object, ByVal e As AxIQFEEDXLib._IIQFeedXEvents_ReceiveMessageEvent) Handles IQFeed.ReceiveMessage If (e.message.Chars(0) = "Q") Then Dim message As String() = Split(e.message, ",") If message(1) = s1 Then lstOutput.Items.Add("S1 " & message(3)) ElseIf message(1) = s2 Then lstOutput.Items.Add("S2 " & message(3)) End If End If End Sub
See very simple program, why does it exit...
|
|