Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Notes-Tiger am 03.08.02 - 21:42:13

Titel: VBA To LotusScript
Beitrag von: Notes-Tiger am 03.08.02 - 21:42:13

Hi @All,
wie kann ich folgendes VBA_Script als LotusScript nutzen.
Danke


'   Description .. Formula.Ocx HOWTO USE SAMPLE
'

Option Explicit

Const FormulaSuccess = 0
Const FormulaStateClosed = 1

'
' Set control parameters
'
Private Sub cmdAction_Click()
On Error Resume Next
   If Formula.State = FormulaStateClosed Then
       Formula.Action
   End If
End Sub


'
' Clear all the data in the ListBox
'
Private Sub cmdClear_Click()
On Error Resume Next
   ListData.Clear
End Sub

'
' Close Network and Stop Data Collect
'
Private Sub cmdClose_Click()
On Error Resume Next
   Formula.Close
End Sub


'
' Load settings from file
'
Private Sub cmdLoad_Click()
On Error Resume Next
   Formula.Load App.Path & "\"
End Sub

'
' Open Network and Start Data Collect
'
Private Sub cmdOpen_Click()
On Error Resume Next
   If Formula.Open <> FormulaSuccess Then
       MsgBox "Error opening netwrok for polling", vbOKOnly + vbCritical
   End If
End Sub


'
' Save setting to file
'
Private Sub cmdSave_Click()
On Error Resume Next
   Formula.Save App.Path & "\"
End Sub

'
' Initialize parameters
'
Private Sub Form_Load()
   Formula.Load App.Path & "\"
   Formula.DataEventEnabled = True ' Enable Data Event, remember to check One Record
                                   ' in the control settings
End Sub

'
' Resize the Form
'
Private Sub Form_Resize()
On Error Resume Next
   ListData.Width = Me.Width - Frame1.Width - 500
   ListData.Height = Me.Height - 600
   Frame1.Left = ListData.Left + ListData.Width + 150
   Frame1.Height = ListData.Height
   
   
End Sub

'
' Data Event coming from control
'
Private Sub Formula_DataEvent(ByVal OutputID As Integer)
On Error Resume Next
   ListData.AddItem CStr(OutputID) & "  " & Formula.DeviceData
   ListData.Selected(ListData.SelCount) = True
End Sub

'
' Data Event coming from control
'
Private Sub Formula_OutputCompleteEvent(ByVal OutputID As Integer)
   MsgBox "Data succesfully downloaded", vbExclamation
End Sub