Quote:
|
Originally Posted by fivewhy
Is the code in VB6?
I think it is a neat app, but I would like to see the source code. Is that the source included in the zip? I couldn't find actual vb code.
Basically, the app re-displays the info from the MaketWatch window via a DDE interface. That would be cool to see the code to do that, but I don't see the use for an end-user..unless I'm just stupid and missing something. 
5y |
fivewhy,
Thank you very much
. The source code is included in the zip file.
PHP Code:
Private Sub Check1_Click()
MsgBox "Coming soon!", vbExclamation + vbOKOnly, "MT4 Monitor"
End Sub
Private Sub Form_Load()
LoadPairs
End Sub
Private Sub TimerCheckBrowsers_Timer()
On Error GoTo err1
TxtDDE(0).LinkTopic = "MT4|BID"
TxtDDE(0).LinkItem = Combo1.Text
TxtDDE(0).LinkMode = 1
TxtDDE(0).LinkRequest
TxtDDE(1).LinkTopic = "MT4|ASK"
TxtDDE(1).LinkItem = Combo1.Text
TxtDDE(1).LinkMode = 1
TxtDDE(1).LinkRequest
TxtDDE(2).LinkTopic = "MT4|HIGH"
TxtDDE(2).LinkItem = Combo1.Text
TxtDDE(2).LinkMode = 1
TxtDDE(2).LinkRequest
TxtDDE(3).LinkTopic = "MT4|LOW"
TxtDDE(3).LinkItem = Combo1.Text
TxtDDE(3).LinkMode = 1
TxtDDE(3).LinkRequest
TxtDDE(4).LinkTopic = "MT4|TIME"
TxtDDE(4).LinkItem = Combo1.Text
TxtDDE(4).LinkMode = 1
TxtDDE(4).LinkRequest
Exit Sub
err1:
TxtDDE(0).Text = "N/A"
TxtDDE(1).Text = "N/A"
TxtDDE(2).Text = "N/A"
TxtDDE(3).Text = "N/A"
TxtDDE(4).Text = "N/A"
End Sub
Public Sub LoadPairs()
Combo1.AddItem "USDCHF"
Combo1.AddItem "USDJPY"
Combo1.AddItem "EURUSD"
Combo1.AddItem "GBPUSD"
Combo1.AddItem "EURJPY"
Combo1.AddItem "EURCHF"
Combo1.AddItem "EURGBP"
Combo1.AddItem "USDCAD"
Combo1.AddItem "AUDUSD"
Combo1.AddItem "GBPJPY"
Combo1.AddItem "GBPCHF"
Combo1.AddItem "CHFJPY"
Combo1.AddItem "NZDUSD"
Combo1.AddItem "EURCAD"
Combo1.AddItem "AUDJPY"
Combo1.AddItem "EURAUD"
Combo1.AddItem "AUDCAD"
Combo1.AddItem "AUDNZD"
Combo1.AddItem "NZDJPY"
Combo1.Text = "EURUSD"
End Sub