B
Brian Cahill
Hello,
I am trying to create a variable when my form loads which can be used
when I click my buttons. Here is my code. What am I doing wrong?
Thanks for any help.
Private Sub Connect_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
CreateObjConnect()
End Sub
Public Sub CreateObjConnect()
Dim objIco As New ICAClient
'Set Browser Protocol
objIco.BrowserProtocol = "UDP"
'Set Server locator
objIco.TCPBrowserAddress = "10.1.200.234"
'Disable IPCLaunch
objIco.IPCLaunch = False
'Set to launch, rather than embed session
objIco.Launch = True
'Enable seamless
objIco.TWIMode = True
'objIco.XmlAddressResolutionType = "IPv4-Port"
objIco.ConnectionEntry = "TEST"
objIco.WinstationDriver = "ICA 3.0"
objIco.TransportDriver = "TCP/IP"
'Set credentials
objIco.Username = "test"
objIco.SetProp("Password", "testtest")
objIco.Domain = "test"
'Specify application to launch
objIco.Application = "TEST"
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
objIco.Connect()
End Sub
I am trying to create a variable when my form loads which can be used
when I click my buttons. Here is my code. What am I doing wrong?
Thanks for any help.
Private Sub Connect_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
CreateObjConnect()
End Sub
Public Sub CreateObjConnect()
Dim objIco As New ICAClient
'Set Browser Protocol
objIco.BrowserProtocol = "UDP"
'Set Server locator
objIco.TCPBrowserAddress = "10.1.200.234"
'Disable IPCLaunch
objIco.IPCLaunch = False
'Set to launch, rather than embed session
objIco.Launch = True
'Enable seamless
objIco.TWIMode = True
'objIco.XmlAddressResolutionType = "IPv4-Port"
objIco.ConnectionEntry = "TEST"
objIco.WinstationDriver = "ICA 3.0"
objIco.TransportDriver = "TCP/IP"
'Set credentials
objIco.Username = "test"
objIco.SetProp("Password", "testtest")
objIco.Domain = "test"
'Specify application to launch
objIco.Application = "TEST"
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
objIco.Connect()
End Sub