beautypg.com

Rockwell Automation FactoryTalk Historian SE ActiveView 3.2 User Guide User Manual

Page 82

background image

FactoryTalk Historian ActiveView User Guide

74

With Pbd1
.ServerIniURL = "http://webserver/eenie.ini"
.DisplayURL = "http://webserver/fee.pdi"
End With
End Sub
Sub Pbd1_FailedServerIniURL
SetNextURL()
End Sub
Sub Pbd1_FailedDisplayURL
SetNextURL()
End Sub
Sub SetNextURL()
With Pbd1
If instr(.DisplayURL, "fee.pdi") Then
.ServerIniURL = "http://webserver/meenie.ini"
.DisplayURL = "http://webserver/fi.pdi"
Elseif instr(.DisplayURL, "fi.pdi") Then
.ServerIniURL = "http://webserver/minie.ini"
.DisplayURL = "http://webserver/fo.pdi"
Else
.ServerIniURL = "http://webserver/mo.ini"
.DisplayURL = "http://webserver/fum.pdi"
End If
End With
End Sub




width = "800"
height = "600"
classid = "CLSID:4F26B906-2854-11D1-9597-
00A0C931BFC8">