This VB Project Can Be DownLoaded Here:
--- In twsapi@y..., "marinindextrader" <marinindextrader@y...> wrote:
Sample Code on Basic connection and display
Option Explicit
' contract description vars
Dim id As Long
Dim symbol As String
Dim secType As String
Dim expiry As String
Dim strike As Long
Dim right As String
Dim exchange As String
Dim curency As String
Dim port As Long
Private Sub Command1_Click()
Tws1.reqMktData id, symbol, secType, expiry, strike, right,
exchange,
curency
End Sub
Private Sub Command2_Click()
Tws1.cancelMktData id
Label1.Caption = "cancelMktData"
End Sub
Private Sub Form_Load()
'Here I have set all of the values as static constants for
demonstration purposes
port = 7496 'this is the port number you wrote down
id = 1 '
symbol = "ES"
secType = "FUT"
expiry = "200206"
strike = 0
right = ""
exchange = "GLOBEX"
curency = ""
Tws1.Connect "", port 'This must be the very first thing that is
called
End Sub
'now have it display the price of the security
Private Sub Tws1_tickPrice(ByVal id As Long, ByVal tickType As
Long,
ByVal price As Single)
If id = 1 Then 'reference the reqMktData call by its id number
If tickType = 4 Then 'tickType 4 is Last Price
Label1.Caption = Format(price, "0.00")
End If
End If
End Sub
