ActiveX einbauen

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: ActiveX einbauen

ActiveX einbauen

von mumpel » Do, 18.09.2008 16:29

Hallo!

Wie kann ich eine ActiveX-Komponente (dll) in OOo-Starbasic nutzen? Ich dachte da an Latebinding. Aber geht das in OOo und wenn ja, wie? In Excel wird die dll einfach überVerweise eingebunden.

Hier mal der Code, für welchen ich die ActiveX-dll benötige. Würde das ganze gerne nach OOo umbauen. Der Code selber ist kein Problem, nur eben das Einbinden der Konto.dll

Code: Alles auswählen

Private Sub CommandButton1_Click()
On Error Resume Next
Set objShell = Nothing
Dim sKonto As Konto.isehKonto
Dim Lnummer As Integer
Dim Linhaber As Integer
Set sKonto = New Konto.isehKonto
With sKonto
    .DBPfad = "C:\Programme\ISEH"
    .BLZ = TextBox1.Text
    .kontonummer = TextBox2.Text
    .Lizenznummer = IsehBLZ.Label12.Caption
    .Lizenzinhaber = IsehBLZ.Label11.Caption
    .Start
    lblBLZ.Caption = .BLZ
    lblKontonummer.Caption = .kontonummer
    lblInstitut.Caption = .Bezeichnung
    If .ErrBLZ_NotFound = True Then
    lblInstitut.Caption = "Diese BLZ existiert nicht"
    End If
    If .ErrBLZ = True Then
       lblInstitut.Caption = "Bankleitzahlen sind 8-stellig !"
    End If
    lblOrt.Caption = .PLZOrt
    lblVerfahren.Caption = .Kennziffer
    If .Ergebnis = False Then
       lblErgebnis.Caption = "Ungültige Kontonummer"
       lblErgebnis.ForeColor = &HFF&
    Else
       lblErgebnis.Caption = "Mögliche Kontonummer"
       lblErgebnis.ForeColor = &HFF0000
    End If
End With
Set sKonto = Nothing
End Sub
Danke!

Nach oben