Die Community zu .NET und Classic VB.

Startseite / Tipps / VB 5/6-Tipp 0655: WithEvents auch bei später Bindung (Late Binding) nutzen

VB 5/6-Tipp 0655: WithEvents auch bei später Bindung (Late Binding) nutzen

 von madmax

Schwierigkeitsgrad:

Verwendete API-Aufrufe: keine

Download: Download des Beispielprojektes [2,48 KB]

'Dieser Quellcode stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.

'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source!

'------------- Anfang Projektdatei Projekt1.vbp -------------
'--------- Anfang Formular "Form1" alias Form1.frm  ---------
' Steuerelement: Beschriftungsfeld "Label1"

Option Explicit

Private WithEvents lvwTest As VBControlExtender

Private Sub Form_Load()
    Licenses.Add "MSComctlLib.ListViewCtrl.2" ' strLicenseKey
    '                                                   ^^
    '                                                   ||
    'MsgBox Licenses.Item(0).LicenseKey ' --------------++
    
    ' ACHTUNG:
    ' --------
    
    ' Um ein Steurelement mit Late Binding verwenden zu können,
    ' benötigt man eine Lizenz für das Steuerelement. Auf einem
    ' Entwicklungsrechner auf dem VB installiert ist, ist diese
    ' Lizenz i.d.R. schon vorhanden. Damit das Programm aber auch
    ' auf einem Client Rechner funktioniert muss beim Hinzufügen
    ' der Lizenz, der Lizenz Schlüssel mitangegeben werden:
    
    ' Licenses.Add ProgID [, LicenseKey]
    
    ' Den LicenseKey kann man sich auf einem Entwicklungsrechner
    ' anzeigen lassen wenn man die Message Box auskommentiert.
    ' Das ist der Schlüssel den ihr bei Licenses.Add benötigt damit
    ' das Programm auf einem Client Rechner läuft.
    
    Set lvwTest = Form1.Controls.Add("MSComctlLib.ListViewCtrl.2", "lvwTest")
    lvwTest.Visible = True
    
    lvwTest.object.View = 3
    
    lvwTest.object.ColumnHeaders.Add , , "Spalte 1", 1500
    lvwTest.object.ColumnHeaders.Add , , "Spalte 2", 1500
    
    lvwTest.object.ListItems.Add , , "Item 1"
    lvwTest.object.ListItems(1).SubItems(1) = "SubItem 1"
    
    lvwTest.object.ListItems.Add , , "Item 2"
    lvwTest.object.ListItems(2).SubItems(1) = "SubItem 2"
    
    lvwTest.object.ListItems.Add , , "Item 3"
    lvwTest.object.ListItems(3).SubItems(1) = "SubItem 3"
End Sub

Private Sub Form_Resize()
    lvwTest.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
End Sub

Private Sub lvwTest_ObjectEvent(Info As EventInfo)
    Select Case Info.Name
        Case "ItemClick"
            MsgBox "Das Item mit dem Titel '" & _
                Info.EventParameters.Item(0).Value.Text & _
                "' wurde angeklickt."
                
        Case "DblClick"
            MsgBox "Doppelklick"
            
        Case "KeyPress"
            MsgBox "Die Taste '" & Chr(Info.EventParameters(0).Value) & _
                "' wurde gedrückt."
    End Select
End Sub
'---------- Ende Formular "Form1" alias Form1.frm  ----------
'-------------- Ende Projektdatei Projekt1.vbp --------------

Archivierte Nutzerkommentare 

Klicken Sie diesen Text an, wenn Sie die 2 archivierten Kommentare ansehen möchten.
Diese stammen noch von der Zeit, als es noch keine direkte Forenunterstützung für Fragen und Kommentare zu einzelnen Artikeln gab.
Aus Gründen der Vollständigkeit können Sie sich die ausgeblendeten Kommentare zu diesem Artikel aber gerne weiterhin ansehen.