Sie können ActiveBarcode in Visual Basic wie jedes andere Steuerelement (z.B. ein Button)
verwenden. Ein Beispiel für die nicht-visuelle Anwendung finden Sie weiter unten.
Dafür fügen Sie zunächst das ActiveBarcode Steuelement in die
Entwicklungsumgebung ein.
ActiveBarcode in die Entwicklungsumgebung einbinden
Wählen Sie über das Menü "Tools" die Funktion
"Choose Toolbox items":
Ein Dialog erscheint. Wählen Sie hier zunächst den Reiter "COM Components" aus, da
ActiveBarcode eine COM Komponente ist:
Es erscheint eine Liste der verfügbaren Steuerelemente. Wählen Sie hier
"ActiveBarcode" aus und aktivieren Sie es. Klicken Sie dann auf OK.
Nun ist ActiveBarcode in die
Entwicklungsumgebung integriert.
ActiveBarcode verwenden (Beispiel)
Erstellen Sie ein neues Projekt. Um nun den ActiveBarcode Control auf einer Form
zu platzieren öffnen Sie die Toolbox. Wählen Sie hierzu aus dem Menü "View" die Funktion
"Toolbox":
In der Toolbox suchen Sie sich den ActiveBarcode Control.
Klicken Sie diesen an und ziehen Sie ihn einfach auf die Form. Der Control wird
auf der Form integriert.
Den Barcodetyp, wie auch alle anderen Eigenschaften des Barcodes können Sie einfach
über die Properties einstellen, genauso wie Sie es von anderen Steuerelementen gewohnt sind.
Beispielsweise können Sie jeden von ActiveBarcode unterstützten Barcodetyp
auswählen:
Codabar,
Code 25 Industrial,
Code 25 Interleaved,
Code 39,
Code 39 Extended,
Code 93,
Code 93 Extended,
Code 128,
Data Matrix,
DUN-14,
EAN-2,
EAN-5,
EAN-8,
EAN-13,
EAN-14,
EAN-18,
EAN-99,
EAN-128,
EAN-Velocity,
GS1-128,
Identcode,
ISBN-10,
ISBN-13,
ISBN-13 Dual,
Bookland,
ISSN,
ISMN,
ITF-14,
JAN,
Leitcode,
MSI,
NVE,
PDF417,
PostNet,
PZN,
Royal Mail
SCC-14,
SSCC-18,
UCC-128,
UPC-A
und
UPC-E
In diesem Beispiel ändern wir die Hintergrundfarbe des Barcodes auf Weiss.
Fügen Sie nun noch eine Textbox in die Form hinzu.
Diese Textbox "verknüpfen" wir nun direkt mit dem Control. Mit einem Doppelklick auf die Textbox
öffnen Sie den Sourcecode für die Form direkt in dem Event für "Textchange". Dieser Event wird immer
aufgerufen, wenn der Inhalt der Textbox geändert wird. Ideal für unser Vorhaben. Diese Änderung geben
wir sofort weiter an den Control.
Fertig. Starten Sie nun die eben erstellte Beispielanwendung:
Wenn Sie den Inhalt der Textbox nun ändern, wird der Text sofort als Barcode codiert.
Nicht-visuelle Anwendung von ActiveBarcode:
Sie können ActiveBarcode auch zur Laufzeit erstellen und so den Control auch nicht-visuell verwenden:
In dem folgenden Beispiel wird ActiveBarcode erstellt, ein Code 128 mit dem codierten Inhalt "Example" erzeugt und
dann mittels SaveAsBySize Funktion als Bilddatei gespeichert. Selbstverständlich können Sie auch auf die
andere Eigenschaften und Methoden des Controls zugreifen.
Dim MyObject As Object
MyObject = CreateObject("BARCODE.BarcodeCtrl.1")
MyObject.text = "Example"
MyObject.typename = "Code 128"
MyObject.SaveAsBySize("example.bmp", 400, 100)
| 
English