Lotus Domino, LotusScript - Barcodes in Projekten

Verwenden des Controls in einem LotusScript Agent

Dies ist ein Script Beispiel für die Verwendung des Controls in einem LotusScript Agent unter Lotus Domino:

Option Public
Option Declare

Sub Initialize()
	Dim MyObject As variant
	Set MyObject = CreateObject("BARCODE.BarcodeCtrl.1")
	MyObject.text = "Example"
	MyObject.typename = "Code 128"
	MyObject.SaveAsBySize "c:\example.bmp", 400, 100
End Sub