Page History
[ 
|../../index.htm#lansa/l4wdev07_0250.htm]
現在地:
...
Private Session As LANSA_ACTIVEX_LIB.ISession
...
Private Sub ConnectToLansa( _
ByVal username As String, _
ByVal password As String))
Try
' Create the Session object
Session = New LANSA_ACTIVEX_LIB.Session
...
' Set the session configuration file
Session.ConfigFile = "./Session.cfg"
...
' Set the User and Password
Session.SetConnectParam("USER",
...
username)
Session.SetConnectParam("PSPW",
...
password)
' Connect to LANSA
Session.Connect
Catch ex As Exception
MessageBox.Show("
...
Exception : "
...
+
...
ex.Message)
...
End Try
End Sub