[ |../../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
 
[ |../../index.htm#lansa/l4wdev07_0250.htm]