Filter
Top Products
13-31
Dynamic Data Exchange
End Sub
Sub status_Click (index As Integer)
text2.LinkMode = 0
text2.LinkTopic = “TT07W|System”
text2.LinkItem = “Status”
text2.LinkMode = 2
text2.LinkRequest
End Sub
Sub Sysitems_Click (index As Integer)
text2.LinkMode = 0
text2.LinkTopic = “TT07W|System”
text2.LinkItem = “SysItems”
text2.LinkMode = 2
text2.LinkRequest
End Sub
Sub topics_Click (index As Integer)
text2.LinkMode = 0
text2.LinkTopic = “TT07W|System”
text2.LinkItem = “Topics”
text2.LinkMode = 2
text2.LinkRequest
End Sub
Sub ttscr_Click (index As Integer)
text2.LinkMode = 0
If index = 0 Then
text2.LinkTopic = “TT07W|ttlk1”
Else
text2.LinkTopic = “TT07W|ttlk2”
End If
text2.LinkItem = “Escape”
text2.LinkMode = 2
text2.LinkExecute “[Escape(“ + Chr(27) +
“P2zC:\TTLKW31\scripts\DEMO.SCR(WIN,INIT)” + Chr(27) + “\)]”
End Sub
Sub TTstat_Click (index As Integer)
If index = 0 Then
For i = 0 To 6
Text1(i).LinkMode = 0
Text1(i).LinkTopic = “TT07W|ttlk1”
Text1(i).LinkItem = “0,” + i + “,80”
Text1(i).LinkMode = 1
Next i
Else
For i = 0 To 6
Text1(i + 12).LinkMode = 0
Text1(i + 12).LinkTopic = “TT07W|ttlk2”