Właściwości, Wydarzenia & Metody

Właściwości

określić zawartość i wygląd kodu kreskowego

Text Property Link
Text char

Tekst zawiera treść kodu kreskowego. Zazwyczaj jest ona wprowadzana bez cyfry kontrolnej.
Możesz wprowadzić kody kontrolne w formie czytelnej dla człowieka, jak poniżej: <CR>, <LF>, ...

Visual Basic:

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
    AxBarcode1.Text = TextBox1.Text
End Sub

Delphi:

procedure TForm1.Edit1Change(Sender: TObject);
begin
  Barcode1.Text := Edit1.Text;
end;

C#:

axBarcode1.Type = BARCODELib.TypeConstants.CODEEAN13;
axBarcode1.Text = "431234100707";
axBarcode1.ForeColor = Color.DimGray;
axBarcode1.BackColor = Color.AntiqueWhite;
axBarcode1.Rotate = 90;
axBarcode1.BorderHeight = 10;
axBarcode1.BorderWidth = 20;
axBarcode1.Alignment = BARCODELib.AlignConstants.ALIGNCENTER;
axBarcode1.NotchHeightInPercent = 50;
axBarcode1.AutoType = false;
axBarcode1.PrintFix = false;
axBarcode1.AboutBox;
axBarcode1.SetDemoText;

VBA (Office):

Barcode1.Type = 1 ' EAN-13
Barcode1.Text = "431234100707"
Barcode1.ForeColor = vbBlack
Barcode1.BackColor = vbWhite
Barcode1.BorderHeight = 10
Barcode1.BorderWidth = 20
Barcode1.Rotate = 90
Barcode1.Alignment = ALIGNCENTER
Barcode1.NotchHeightInPercent = 50
Barcode1.AutoType = False
Barcode1.PrintFix = False
Barcode1.AboutBox
Barcode1.SetDemoText

ShowText Property Link
ShowText bool

TRUE: Kod kreskowy zawiera tekst czytelny dla człowieka.
FALSE: Kod kreskowy jest wyświetlany bez tekstu czytelnego dla człowieka.

Przykłady:

ShowText=TRUE

ShowText=FALSE

Należy pamiętać, że niektóre typy kodów kreskowych nie mają tekstu czytelnego dla człowieka. Dotyczy to kodów QR, PDF417 i DataMatrix. Właściwość ShowText nie ma żadnego wpływu, gdy używany jest jeden z tych kodów.

Visual Basic:

AxBarcode1.ShowText = True

Delphi:

Barcode1.ShowText := TRUE;

C#:

axBarcode1.ShowText = true;

VBA (Office):

Barcode1.ShowText = True

Type Property Link
Type long

Określa typ kodu kreskowego z unikalnym numerem.

Value	Code	Name
0	ISBN-10	CODEISBN
1	EAN 13	CODEEAN13
2	EAN 8	CODEEAN8
3	EAN 5	CODEEAN5
4	EAN 2	CODEEAN2
5	UPC A	CODEUPCA
6	Code 39	CODE39
7	Code 25 Interleaved	CODE25I
8	Codabar	CODABAR
9	Code 25 Industrial	CODE25
10	Code 39 Extended	CODE39E
11	Code 128A	CODECODE128A
12	Code 128B	CODECODE128B
13	Code 128C	CODECODE128C
14	Code 128	CODECODE128
15	EAN/UCC 128	CODEEAN128
16	EAN 99	CODEEAN99
17	UPC E	CODEUPCE
18	PostNet	CODEPOSTNET
19	Royal Mail	CODEROYALMAIL
20	MSI	CODEMSI
21	Code 93	CODE93
22	Code 93 Extended	CODE93E
23	PZN7	CODEPZN8
24	Identcode	CODEIDENTCODE
25	Leitcode	CODELEITCODE
26	Code 39 Checksum	CODE39CHECKSUM
27	Code 39 Extended Checksum	CODE39ECHECKSUM
28	EAN/UCC 128 AI	CODEEAN128AI
29	EAN 14	CODEEAN14
30	ITF-14	CODEITF14
31	EAN-18/NVE	CODEEAN18
32	SSCC-18	CODESSCC18
33	Codabar Checksum	CODABARCHECKSUM
34	Code 25 Interleaved Checksum	CODE25ICHECKSUM
35	Code 25 Industrial Checksum	CODE25CHECKSUM
36	PDF417	CODEPDF417
37	DataMatrix	CODEDATAMATRIX
38	ISBN-13	CODEISBN13
39	ISBN-13 Dual	CODEISBN13DUAL
40	ISSN	CODEISSN
41	ISMN	CODEISMN
42	DataMatrix Square	CODEDATAMATRIXSQUARE
43	DataMatrix Rectangular	CODEDATAMATRIXRECTANGULAR
44	DataMatrix 10x10	CODEDATAMATRIX10X10
45	DataMatrix 12x12	CODEDATAMATRIX12X12
46	DataMatrix 8x18	CODEDATAMATRIX8X18
47	DataMatrix 14x14	CODEDATAMATRIX14X14
48	DataMatrix 8x32	CODEDATAMATRIX8X32
49	DataMatrix 16x16	CODEDATAMATRIX16X16
50	DataMatrix 12x26	CODEDATAMATRIX12X26
51	DataMatrix 18x18	CODEDATAMATRIX18X18
52	DataMatrix 20x20	CODEDATAMATRIX20X20
53	DataMatrix 12x36	CODEDATAMATRIX12X36
54	DataMatrix 22x22	CODEDATAMATRIX22X22
55	DataMatrix 16x36	CODEDATAMATRIX16X36
56	DataMatrix 24x24	CODEDATAMATRIX24X24
57	DataMatrix 26x26	CODEDATAMATRIX26X26
58	DataMatrix 16x48	CODEDATAMATRIX16X48
59	DataMatrix 32x32	CODEDATAMATRIX32X32
60	DataMatrix 36x36	CODEDATAMATRIX36X36
61	DataMatrix 40x40	CODEDATAMATRIX40X40
62	DataMatrix 44x44	CODEDATAMATRIX44X44
63	DataMatrix 48x48	CODEDATAMATRIX48X48
64	DataMatrix 52x52	CODEDATAMATRIX52X52
65	DataMatrix 64x64	CODEDATAMATRIX64X64
66	DataMatrix 72x72	CODEDATAMATRIX72X72
67	DataMatrix 80x80	CODEDATAMATRIX80X80
68	DataMatrix 88x88	CODEDATAMATRIX88X88
69	DataMatrix 96x96	CODEDATAMATRIX96X96
70	DataMatrix 104x104	CODEDATAMATRIX104X104
71	DataMatrix 120x120	CODEDATAMATRIX120X120
72	DataMatrix 132x132	CODEDATAMATRIX132X132
73	DataMatrix 144x144	CODEDATAMATRIX144X144
74	GS1-Data Matrix	CODEGS1DATAMATRIX
75	GS1-Data Matrix Square	CODEGS1DATAMATRIXSQUARE
76	GS1-Data Matrix Rectangular	CODEGS1DATAMATRIXRECTANGULAR
77	GS1-Data Matrix 10x10	CODEGS1DATAMATRIX10X10
78	GS1-Data Matrix 12x12	CODEGS1DATAMATRIX12X12
79	GS1-Data Matrix 8x18	CODEGS1DATAMATRIX8X18
80	GS1-Data Matrix 14x14	CODEGS1DATAMATRIX14X14
81	GS1-Data Matrix 8x32	CODEGS1DATAMATRIX8X32
82	GS1-Data Matrix 16x16	CODEGS1DATAMATRIX16X16
83	GS1-Data Matrix 12x26	CODEGS1DATAMATRIX12X26
84	GS1-Data Matrix 18x18	CODEGS1DATAMATRIX18X18
85	GS1-Data Matrix 20x20	CODEGS1DATAMATRIX20X20
86	GS1-Data Matrix 12x36	CODEGS1DATAMATRIX12X36
87	GS1-Data Matrix 22x22	CODEGS1DATAMATRIX22X22
88	GS1-Data Matrix 16x36	CODEGS1DATAMATRIX16X36
89	GS1-Data Matrix 24x24	CODEGS1DATAMATRIX24X24
90	GS1-Data Matrix 26x26	CODEGS1DATAMATRIX26X26
91	GS1-Data Matrix 16x48	CODEGS1DATAMATRIX16X48
92	GS1-Data Matrix 32x32	CODEGS1DATAMATRIX32X32
93	GS1-Data Matrix 36x36	CODEGS1DATAMATRIX36X36
94	GS1-Data Matrix 40x40	CODEGS1DATAMATRIX40X40
95	GS1-Data Matrix 44x44	CODEGS1DATAMATRIX44X44
96	GS1-Data Matrix 48x48	CODEGS1DATAMATRIX48X48
97	GS1-Data Matrix 52x52	CODEGS1DATAMATRIX52X52
98	GS1-Data Matrix 64x64	CODEGS1DATAMATRIX64X64
99	None	CODENONE
100	GS1-Data Matrix 72x72	CODEGS1DATAMATRIX72X72
101	GS1-Data Matrix 80x80	CODEGS1DATAMATRIX80X80
102	GS1-Data Matrix 88x88	CODEGS1DATAMATRIX88X88
103	GS1-Data Matrix 96x96	CODEGS1DATAMATRIX96X96
104	GS1-Data Matrix 104x104	CODEGS1DATAMATRIX104X104
105	GS1-Data Matrix 120x120	CODEGS1DATAMATRIX120X120
106	GS1-Data Matrix 132x132	CODEGS1DATAMATRIX132X132
107	GS1-Data Matrix 144x144	CODEGS1DATAMATRIX144X144
108	GS1-128	CODEGS1128
109	GTIN-8	CODEGTIN8
110	GTIN-12	CODEGTIN12
111	GTIN-13	CODEGTIN13
112	GTIN-14	CODEGTIN14
113	QR Code	CODEQRCODE
114	QR Code ECC Level L	CODEQRCODEECCLEVELL
115	QR Code ECC Level M	CODEQRCODEECCLEVELM
116	QR Code ECC Level Q	CODEQRCODEECCLEVELQ
117	QR Code ECC Level H	CODEQRCODEECCLEVELH
118	QR Code 21x21	CODEQRCODE21X21
119	QR Code 25x25	CODEQRCODE25X25
120	QR Code 29x29	CODEQRCODE29X29
121	QR Code 33x33	CODEQRCODE33X33
122	QR Code 37x37	CODEQRCODE37X37
123	QR Code 41x41	CODEQRCODE41X41
124	QR Code 45x45	CODEQRCODE45X45
125	QR Code 49x49	CODEQRCODE49X49
126	QR Code 53x53	CODEQRCODE53X53
127	QR Code 57x57	CODEQRCODE57X57
128	QR Code 61x61	CODEQRCODE61X61
129	QR Code 65x65	CODEQRCODE65X65
130	QR Code 69x69	CODEQRCODE69X69
131	QR Code 73x73	CODEQRCODE73X73
132	QR Code 77x77	CODEQRCODE77X77
133	QR Code 81x81	CODEQRCODE81X81
134	QR Code 85x85	CODEQRCODE85X85
135	QR Code 89x89	CODEQRCODE89X89
136	QR Code 93x93	CODEQRCODE93X93
137	QR Code 97x97	CODEQRCODE97X97
138	QR Code 101x101	CODEQRCODE101X101
139	QR Code 105x105	CODEQRCODE105X105
140	QR Code 109x109	CODEQRCODE109X109
141	QR Code 113x113	CODEQRCODE113X113
142	QR Code 117x117	CODEQRCODE117X117
143	QR Code 121x121	CODEQRCODE121X121
144	QR Code 125x125	CODEQRCODE125X125
145	QR Code 129x129	CODEQRCODE129X129
146	QR Code 133x133	CODEQRCODE133X133
147	QR Code 137x137	CODEQRCODE137X137
148	QR Code 141x141	CODEQRCODE141X141
149	QR Code 145x145	CODEQRCODE145X145
150	QR Code 149x149	CODEQRCODE149X149
151	QR Code 153x153	CODEQRCODE153X153
152	QR Code 157x157	CODEQRCODE157X157
153	QR Code 161x161	CODEQRCODE161X161
154	QR Code 165x165	CODEQRCODE165X165
155	QR Code 169x169	CODEQRCODE169X169
156	QR Code 173x173	CODEQRCODE173X173
157	QR Code 177x177	CODEQRCODE177X177
158	PZN8	CODEPZN8

Visual Basic:

AxBarcode1.Type = 1 ' EAN-13
AxBarcode1.Text = "431234100707"
AxBarcode1.ForeColor = Color.DimGray
AxBarcode1.BackColor = Color.AntiqueWhite
AxBarcode1.BorderHeight = 10
AxBarcode1.BorderWidth = 20
AxBarcode1.Rotate = 90
AxBarcode1.Alignment = BARCODELib.AlignConstants.ALIGNCENTER
AxBarcode1.NotchHeightInPercent = 50
AxBarcode1.AutoType = False
AxBarcode1.PrintFix = False
AxBarcode1.AboutBox
axBarcode1.SetDemoText

Delphi:

Barcode1.Type_ := 1; // EAN_13
Barcode1.Text := '431234100707';

C#:

axBarcode1.Type = BARCODELib.TypeConstants.CODEEAN13;
axBarcode1.Text = "431234100707";
axBarcode1.ForeColor = Color.DimGray;
axBarcode1.BackColor = Color.AntiqueWhite;
axBarcode1.Rotate = 90;
axBarcode1.BorderHeight = 10;
axBarcode1.BorderWidth = 20;
axBarcode1.Alignment = BARCODELib.AlignConstants.ALIGNCENTER;
axBarcode1.NotchHeightInPercent = 50;
axBarcode1.AutoType = false;
axBarcode1.PrintFix = false;
axBarcode1.AboutBox;
axBarcode1.SetDemoText;

VBA (Office):

Barcode1.Type = 1 ' EAN-13
Barcode1.Text = "431234100707"
Barcode1.ForeColor = vbBlack
Barcode1.BackColor = vbWhite
Barcode1.BorderHeight = 10
Barcode1.BorderWidth = 20
Barcode1.Rotate = 90
Barcode1.Alignment = ALIGNCENTER
Barcode1.NotchHeightInPercent = 50
Barcode1.AutoType = False
Barcode1.PrintFix = False
Barcode1.AboutBox
Barcode1.SetDemoText

Rotate Property Link
Rotate long

Orientacja kodu kreskowego w stopniach (0, 90, 180, 270).

Przykłady

0 stopnie

90 stopnie

180 stopnie

270 stopnie

Visual Basic:

AxBarcode1.Rotate = 0
AxBarcode1.Rotate = 90
AxBarcode1.Rotate = 180
AxBarcode1.Rotate = 270

Delphi:

Barcode1.Rotate := 0;
Barcode1.Rotate := 90;
Barcode1.Rotate := 180;
Barcode1.Rotate := 270;

C#:

axBarcode1.Type = BARCODELib.TypeConstants.CODEEAN13;
axBarcode1.Text = "431234100707";
axBarcode1.ForeColor = Color.DimGray;
axBarcode1.BackColor = Color.AntiqueWhite;
axBarcode1.Rotate = 90;
axBarcode1.BorderHeight = 10;
axBarcode1.BorderWidth = 20;
axBarcode1.Alignment = BARCODELib.AlignConstants.ALIGNCENTER;
axBarcode1.NotchHeightInPercent = 50;
axBarcode1.AutoType = false;
axBarcode1.PrintFix = false;
axBarcode1.AboutBox;
axBarcode1.SetDemoText;

VBA (Office):

Barcode1.Type = 1 ' EAN-13
Barcode1.Text = "431234100707"
Barcode1.ForeColor = vbBlack
Barcode1.BackColor = vbWhite
Barcode1.BorderHeight = 10
Barcode1.BorderWidth = 20
Barcode1.Rotate = 90
Barcode1.Alignment = ALIGNCENTER
Barcode1.NotchHeightInPercent = 50
Barcode1.AutoType = False
Barcode1.PrintFix = False
Barcode1.AboutBox
Barcode1.SetDemoText

Alignment Property Link
Alignment AlignConstants

Ustawia wyrównanie kodu kreskowego do lewej, do prawej lub na środku. Można przekazać AlignLeft, AlignCenter lub AlignRight.

Przykłady:
ActiveBarcode: AlignLeft

AlignLeft

AlignCenter

ActiveBarcode: AlignRight

AlignRight

Deklaracja 'AlignConstants':

type
  AlignConstants = TOleEnum;
const
  ALIGNLEFT = $00000000;
  ALIGNCENTER = $00000001;
  ALIGNRIGHT = $00000002;

Visual Basic:

AxBarcode1.Type = 1 ' EAN-13
AxBarcode1.Text = "431234100707"
AxBarcode1.ForeColor = Color.DimGray
AxBarcode1.BackColor = Color.AntiqueWhite
AxBarcode1.BorderHeight = 10
AxBarcode1.BorderWidth = 20
AxBarcode1.Rotate = 90
AxBarcode1.Alignment = BARCODELib.AlignConstants.ALIGNCENTER
AxBarcode1.NotchHeightInPercent = 50
AxBarcode1.AutoType = False
AxBarcode1.PrintFix = False
AxBarcode1.AboutBox
axBarcode1.SetDemoText

Delphi:

Barcode1.Type_ := 1; // EAN_13
Barcode1.Text := '431234100707';
Barcode1.Alignment := AlignLeft;
Barcode1.ForeColor := clDkGray;
Barcode1.BackColor := clCream;
Barcode1.BorderHeight := 10;
Barcode1.BorderWidth := 20;
Barcode1.NotchHeightInPercent := 50;
Barcode1.AutoType := FALSE;
Barcode1.PrintFix := FALSE;
Barcode1.AboutBox;
Barcode1.SetDemoText;
if (Barcode1.MaxBorderHeight < MyValue) then BEGIN DoAnything; END;
if (Barcode1.MaxBorderWidth < MyValue) then BEGIN DoAnything; END;

C#:

axBarcode1.Type = BARCODELib.TypeConstants.CODEEAN13;
axBarcode1.Text = "431234100707";
axBarcode1.ForeColor = Color.DimGray;
axBarcode1.BackColor = Color.AntiqueWhite;
axBarcode1.Rotate = 90;
axBarcode1.BorderHeight = 10;
axBarcode1.BorderWidth = 20;
axBarcode1.Alignment = BARCODELib.AlignConstants.ALIGNCENTER;
axBarcode1.NotchHeightInPercent = 50;
axBarcode1.AutoType = false;
axBarcode1.PrintFix = false;
axBarcode1.AboutBox;
axBarcode1.SetDemoText;

VBA (Office):

Barcode1.Type = 1 ' EAN-13
Barcode1.Text = "431234100707"
Barcode1.ForeColor = vbBlack
Barcode1.BackColor = vbWhite
Barcode1.BorderHeight = 10
Barcode1.BorderWidth = 20
Barcode1.Rotate = 90
Barcode1.Alignment = ALIGNCENTER
Barcode1.NotchHeightInPercent = 50
Barcode1.AutoType = False
Barcode1.PrintFix = False
Barcode1.AboutBox
Barcode1.SetDemoText

TypeName Property Link
TypeName char

Nazwa typu kodu kreskowego.

Visual Basic:

AxBarcode1.TypeName = "EAN-13"
AxBarcode1.Text = "431234100707"

MessageBox.Show("Current barcode symbology is: " & AxBarcode1.TypeName)

Delphi:

Barcode1.TypeName := 'EAN-13';
Barcode1.Text := '431234100707';

Application.Messagebox(PChar(Barcode1.TypeName),'Current Barcode symbology',mb_ok);

VBA (Office):

Barcode1.TypeName = "EAN-13"
Barcode1.Text = "431234100707"

MsgBox ("Current barcode symbology is: " & Barcode1.TypeName)

IsValid Property Link
IsValid bool

Zwraca TRUE, jeśli kod kreskowy jest prawidłowy. Jeśli jest nieprawidłowy, tekst nie może zostać zakodowany za pomocą wybranego typu kodu kreskowego.

Visual Basic:

    If AxBarcode1.IsValid = False Then
        MessageBox.Show("Barcode is not valid. Please change properties")
    End If

IsSizeOk Property Link
IsSizeOk bool

Wskazuje, czy kod kreskowy może być wyświetlany poprawnie. Zwraca TRUE, jeśli wymiary kontrolki są wystarczająco duże, aby wyświetlić kod kreskowy. Ta wartość może stać się TRUE tylko wtedy, gdy sam kod kreskowy jest prawidłowy - tj. wartość IsValid jest również TRUE.

Visual Basic:

    If AxBarcode1.IsSizeOk = False Then
        MessageBox.Show("Objects size is to small. Please enlarge")
    End If

Checksum Property Link
Checksum long

Zwraca cyfrę kontrolną.

Visual Basic:

AxBarcode1.TypeName = "EAN-13"
AxBarcode1.Text = "431234100707"
MessageBox.Show("The check digit of this code is: " & AxBarcode1.Checksum)

Delphi:

Barcode1.Type_ := 1; // EAN_13
Barcode1.Text := '431234100707';
Application.Messagebox(Pchar(inttostr(Barcode1.Checksum)),
                       'The barcodes check digit',mb_ok);

Picture Property Link
Picture pictureobject

Zwraca obraz kodu kreskowego.
Jeśli potrzebujesz obrazu w określonym rozmiarze, użyj metody CreatePictureBySize przed pobraniem obrazu.

Visual Basic:

' Set the bitmap picture of the barcode to the clipboard
Clipboard.Clear()
Clipboard.SetImage(AxBarcode1.Picture)

BackColor Property Link
BackColor OLE_Color

Kolor tła kodu kreskowego.

Przykłady:

Biały BackColor

Zielony BackColor

Visual Basic:

AxBarcode1.Type = 1 ' EAN-13
AxBarcode1.Text = "431234100707"
AxBarcode1.ForeColor = Color.DimGray
AxBarcode1.BackColor = Color.AntiqueWhite
AxBarcode1.BorderHeight = 10
AxBarcode1.BorderWidth = 20
AxBarcode1.Rotate = 90
AxBarcode1.Alignment = BARCODELib.AlignConstants.ALIGNCENTER
AxBarcode1.NotchHeightInPercent = 50
AxBarcode1.AutoType = False
AxBarcode1.PrintFix = False
AxBarcode1.AboutBox
axBarcode1.SetDemoText

Delphi:

Barcode1.Type_ := 1; // EAN_13
Barcode1.Text := '431234100707';
Barcode1.Alignment := AlignLeft;
Barcode1.ForeColor := clDkGray;
Barcode1.BackColor := clCream;
Barcode1.BorderHeight := 10;
Barcode1.BorderWidth := 20;
Barcode1.NotchHeightInPercent := 50;
Barcode1.AutoType := FALSE;
Barcode1.PrintFix := FALSE;
Barcode1.AboutBox;
Barcode1.SetDemoText;
if (Barcode1.MaxBorderHeight < MyValue) then BEGIN DoAnything; END;
if (Barcode1.MaxBorderWidth < MyValue) then BEGIN DoAnything; END;

C#:

axBarcode1.Type = BARCODELib.TypeConstants.CODEEAN13;
axBarcode1.Text = "431234100707";
axBarcode1.ForeColor = Color.DimGray;
axBarcode1.BackColor = Color.AntiqueWhite;
axBarcode1.Rotate = 90;
axBarcode1.BorderHeight = 10;
axBarcode1.BorderWidth = 20;
axBarcode1.Alignment = BARCODELib.AlignConstants.ALIGNCENTER;
axBarcode1.NotchHeightInPercent = 50;
axBarcode1.AutoType = false;
axBarcode1.PrintFix = false;
axBarcode1.AboutBox;
axBarcode1.SetDemoText;

VBA (Office):

Barcode1.BackColor = &HFFFFFF ' White

ForeColor Property Link
ForeColor OLE_Color

Kolor pierwszego planu kodu kreskowego.

Przykłady:

ActiveBarcode: Barcode with black forecolor

Czarny Forecolor

ActiveBarcode: Barcode with green forecolor

Zielony Forecolor

Visual Basic:

AxBarcode1.Type = 1 ' EAN-13
AxBarcode1.Text = "431234100707"
AxBarcode1.ForeColor = Color.DimGray
AxBarcode1.BackColor = Color.AntiqueWhite
AxBarcode1.BorderHeight = 10
AxBarcode1.BorderWidth = 20
AxBarcode1.Rotate = 90
AxBarcode1.Alignment = BARCODELib.AlignConstants.ALIGNCENTER
AxBarcode1.NotchHeightInPercent = 50
AxBarcode1.AutoType = False
AxBarcode1.PrintFix = False
AxBarcode1.AboutBox
axBarcode1.SetDemoText

Delphi:

Barcode1.Type_ := 1; // EAN_13
Barcode1.Text := '431234100707';
Barcode1.Alignment := AlignLeft;
Barcode1.ForeColor := clDkGray;
Barcode1.BackColor := clCream;
Barcode1.BorderHeight := 10;
Barcode1.BorderWidth := 20;
Barcode1.NotchHeightInPercent := 50;
Barcode1.AutoType := FALSE;
Barcode1.PrintFix := FALSE;
Barcode1.AboutBox;
Barcode1.SetDemoText;
if (Barcode1.MaxBorderHeight < MyValue) then BEGIN DoAnything; END;
if (Barcode1.MaxBorderWidth < MyValue) then BEGIN DoAnything; END;

C#:

axBarcode1.Type = BARCODELib.TypeConstants.CODEEAN13;
axBarcode1.Text = "431234100707";
axBarcode1.ForeColor = Color.DimGray;
axBarcode1.BackColor = Color.AntiqueWhite;
axBarcode1.Rotate = 90;
axBarcode1.BorderHeight = 10;
axBarcode1.BorderWidth = 20;
axBarcode1.Alignment = BARCODELib.AlignConstants.ALIGNCENTER;
axBarcode1.NotchHeightInPercent = 50;
axBarcode1.AutoType = false;
axBarcode1.PrintFix = false;
axBarcode1.AboutBox;
axBarcode1.SetDemoText;

VBA (Office):

Barcode1.ForeColor = &H000000 ' Black

Font Property Link
Font fontobject

Określa czcionkę według nazwy, stylu, efektów i rozmiaru dla linii tekstu.

Właściwość Font jest obiektem, który ilustruje różne właściwości czcionki.

Użycie obiektu czcionki jest następujące:

Zmień rozmiar:
Barcode1.Font.Size = 10

Zmień czcionkę:
Barcode1.Font.Name = "Arial"

Zmień styl i efekty:
Barcode1.Font.Bold = True
Barcode1.Font.Italic = True
Barcode1.Font.Underline = True
Barcode1.Font.Strikethrough = True

W niektórych środowiskach programistycznych właściwości te są określane przez typy wyliczeniowe, np. w Delphi. Zajrzyj do pomocy systemu deweloperskiego, aby dowiedzieć się, jak sobie z nimi radzić.

Przykłady:

Font: Arial, 12pt, Bold

Font: Comix, 14pt, Standard

Delphi:

Barcode1.Font.name := 'Courier New';
Barcode1.Font.size := 14;
Barcode1.Font.style := [fsbold];

Version Property Link
Version char

Zwraca numer wersji obiektu kodu kreskowego.

Visual Basic:

   MessageBox.Show("The barcode objects version is: " & AxBarcode1.version)

Delphi:

Application.Messagebox(Pchar(Barcode1.Version),
                       'The barcode objects version number',mb_ok);

BorderHeight Property Link
BorderHeight long

Wysokość obramowania nad i pod kodem kreskowym w pikselach. Obramowanie jest malowane w bieżącym kolorze tła.

Przykłady:

BorderHeight=4

BorderHeight=20

Visual Basic:

AxBarcode1.Type = 1 ' EAN-13
AxBarcode1.Text = "431234100707"
AxBarcode1.ForeColor = Color.DimGray
AxBarcode1.BackColor = Color.AntiqueWhite
AxBarcode1.BorderHeight = 10
AxBarcode1.BorderWidth = 20
AxBarcode1.Rotate = 90
AxBarcode1.Alignment = BARCODELib.AlignConstants.ALIGNCENTER
AxBarcode1.NotchHeightInPercent = 50
AxBarcode1.AutoType = False
AxBarcode1.PrintFix = False
AxBarcode1.AboutBox
axBarcode1.SetDemoText

Delphi:

Barcode1.Type_ := 1; // EAN_13
Barcode1.Text := '431234100707';
Barcode1.Alignment := AlignLeft;
Barcode1.ForeColor := clDkGray;
Barcode1.BackColor := clCream;
Barcode1.BorderHeight := 10;
Barcode1.BorderWidth := 20;
Barcode1.NotchHeightInPercent := 50;
Barcode1.AutoType := FALSE;
Barcode1.PrintFix := FALSE;
Barcode1.AboutBox;
Barcode1.SetDemoText;
if (Barcode1.MaxBorderHeight < MyValue) then BEGIN DoAnything; END;
if (Barcode1.MaxBorderWidth < MyValue) then BEGIN DoAnything; END;

C#:

axBarcode1.Type = BARCODELib.TypeConstants.CODEEAN13;
axBarcode1.Text = "431234100707";
axBarcode1.ForeColor = Color.DimGray;
axBarcode1.BackColor = Color.AntiqueWhite;
axBarcode1.Rotate = 90;
axBarcode1.BorderHeight = 10;
axBarcode1.BorderWidth = 20;
axBarcode1.Alignment = BARCODELib.AlignConstants.ALIGNCENTER;
axBarcode1.NotchHeightInPercent = 50;
axBarcode1.AutoType = false;
axBarcode1.PrintFix = false;
axBarcode1.AboutBox;
axBarcode1.SetDemoText;

VBA (Office):

Barcode1.Type = 1 ' EAN-13
Barcode1.Text = "431234100707"
Barcode1.ForeColor = vbBlack
Barcode1.BackColor = vbWhite
Barcode1.BorderHeight = 10
Barcode1.BorderWidth = 20
Barcode1.Rotate = 90
Barcode1.Alignment = ALIGNCENTER
Barcode1.NotchHeightInPercent = 50
Barcode1.AutoType = False
Barcode1.PrintFix = False
Barcode1.AboutBox
Barcode1.SetDemoText

BorderWidth Property Link
BorderWidth long

Szerokość obramowania po lewej i prawej stronie kodu kreskowego w pikselach. Obramowanie jest malowane w bieżącym kolorze tła.

Visual Basic:

AxBarcode1.Type = 1 ' EAN-13
AxBarcode1.Text = "431234100707"
AxBarcode1.ForeColor = Color.DimGray
AxBarcode1.BackColor = Color.AntiqueWhite
AxBarcode1.BorderHeight = 10
AxBarcode1.BorderWidth = 20
AxBarcode1.Rotate = 90
AxBarcode1.Alignment = BARCODELib.AlignConstants.ALIGNCENTER
AxBarcode1.NotchHeightInPercent = 50
AxBarcode1.AutoType = False
AxBarcode1.PrintFix = False
AxBarcode1.AboutBox
axBarcode1.SetDemoText

Delphi:

Barcode1.Type_ := 1; // EAN_13
Barcode1.Text := '431234100707';
Barcode1.Alignment := AlignLeft;
Barcode1.ForeColor := clDkGray;
Barcode1.BackColor := clCream;
Barcode1.BorderHeight := 10;
Barcode1.BorderWidth := 20;
Barcode1.NotchHeightInPercent := 50;
Barcode1.AutoType := FALSE;
Barcode1.PrintFix := FALSE;
Barcode1.AboutBox;
Barcode1.SetDemoText;
if (Barcode1.MaxBorderHeight < MyValue) then BEGIN DoAnything; END;
if (Barcode1.MaxBorderWidth < MyValue) then BEGIN DoAnything; END;

C#:

axBarcode1.Type = BARCODELib.TypeConstants.CODEEAN13;
axBarcode1.Text = "431234100707";
axBarcode1.ForeColor = Color.DimGray;
axBarcode1.BackColor = Color.AntiqueWhite;
axBarcode1.Rotate = 90;
axBarcode1.BorderHeight = 10;
axBarcode1.BorderWidth = 20;
axBarcode1.Alignment = BARCODELib.AlignConstants.ALIGNCENTER;
axBarcode1.NotchHeightInPercent = 50;
axBarcode1.AutoType = false;
axBarcode1.PrintFix = false;
axBarcode1.AboutBox;
axBarcode1.SetDemoText;

VBA (Office):

Barcode1.Type = 1 ' EAN-13
Barcode1.Text = "431234100707"
Barcode1.ForeColor = vbBlack
Barcode1.BackColor = vbWhite
Barcode1.BorderHeight = 10
Barcode1.BorderWidth = 20
Barcode1.Rotate = 90
Barcode1.Alignment = ALIGNCENTER
Barcode1.NotchHeightInPercent = 50
Barcode1.AutoType = False
Barcode1.PrintFix = False
Barcode1.AboutBox
Barcode1.SetDemoText

MaxBorderHeight Property Link
MaxBorderHeight long

Maksymalna możliwa wartość BorderHeight.

Delphi:

Barcode1.Type_ := 1; // EAN_13
Barcode1.Text := '431234100707';
Barcode1.Alignment := AlignLeft;
Barcode1.ForeColor := clDkGray;
Barcode1.BackColor := clCream;
Barcode1.BorderHeight := 10;
Barcode1.BorderWidth := 20;
Barcode1.NotchHeightInPercent := 50;
Barcode1.AutoType := FALSE;
Barcode1.PrintFix := FALSE;
Barcode1.AboutBox;
Barcode1.SetDemoText;
if (Barcode1.MaxBorderHeight < MyValue) then BEGIN DoAnything; END;
if (Barcode1.MaxBorderWidth < MyValue) then BEGIN DoAnything; END;

MaxBorderWidth Property Link
MaxBorderWidth long

Maksymalna możliwa wartość BorderWidth.

Delphi:

Barcode1.Type_ := 1; // EAN_13
Barcode1.Text := '431234100707';
Barcode1.Alignment := AlignLeft;
Barcode1.ForeColor := clDkGray;
Barcode1.BackColor := clCream;
Barcode1.BorderHeight := 10;
Barcode1.BorderWidth := 20;
Barcode1.NotchHeightInPercent := 50;
Barcode1.AutoType := FALSE;
Barcode1.PrintFix := FALSE;
Barcode1.AboutBox;
Barcode1.SetDemoText;
if (Barcode1.MaxBorderHeight < MyValue) then BEGIN DoAnything; END;
if (Barcode1.MaxBorderWidth < MyValue) then BEGIN DoAnything; END;

NotchHeightInPercent Property Link
NotchHeightInPercent long

Długość nacięć w procentach.

Przykłady:

NotchHeightInPercent=50

NotchHeightInPercent=100

NotchHeightInPercent=0

Visual Basic:

AxBarcode1.Type = 1 ' EAN-13
AxBarcode1.Text = "431234100707"
AxBarcode1.ForeColor = Color.DimGray
AxBarcode1.BackColor = Color.AntiqueWhite
AxBarcode1.BorderHeight = 10
AxBarcode1.BorderWidth = 20
AxBarcode1.Rotate = 90
AxBarcode1.Alignment = BARCODELib.AlignConstants.ALIGNCENTER
AxBarcode1.NotchHeightInPercent = 50
AxBarcode1.AutoType = False
AxBarcode1.PrintFix = False
AxBarcode1.AboutBox
axBarcode1.SetDemoText

Delphi:

Barcode1.Type_ := 1; // EAN_13
Barcode1.Text := '431234100707';
Barcode1.Alignment := AlignLeft;
Barcode1.ForeColor := clDkGray;
Barcode1.BackColor := clCream;
Barcode1.BorderHeight := 10;
Barcode1.BorderWidth := 20;
Barcode1.NotchHeightInPercent := 50;
Barcode1.AutoType := FALSE;
Barcode1.PrintFix := FALSE;
Barcode1.AboutBox;
Barcode1.SetDemoText;
if (Barcode1.MaxBorderHeight < MyValue) then BEGIN DoAnything; END;
if (Barcode1.MaxBorderWidth < MyValue) then BEGIN DoAnything; END;

C#:

axBarcode1.Type = BARCODELib.TypeConstants.CODEEAN13;
axBarcode1.Text = "431234100707";
axBarcode1.ForeColor = Color.DimGray;
axBarcode1.BackColor = Color.AntiqueWhite;
axBarcode1.Rotate = 90;
axBarcode1.BorderHeight = 10;
axBarcode1.BorderWidth = 20;
axBarcode1.Alignment = BARCODELib.AlignConstants.ALIGNCENTER;
axBarcode1.NotchHeightInPercent = 50;
axBarcode1.AutoType = false;
axBarcode1.PrintFix = false;
axBarcode1.AboutBox;
axBarcode1.SetDemoText;

VBA (Office):

Barcode1.Type = 1 ' EAN-13
Barcode1.Text = "431234100707"
Barcode1.ForeColor = vbBlack
Barcode1.BackColor = vbWhite
Barcode1.BorderHeight = 10
Barcode1.BorderWidth = 20
Barcode1.Rotate = 90
Barcode1.Alignment = ALIGNCENTER
Barcode1.NotchHeightInPercent = 50
Barcode1.AutoType = False
Barcode1.PrintFix = False
Barcode1.AboutBox
Barcode1.SetDemoText

PrintFix Property Link
PrintFix bool

Nieużywany. Brak funkcji od wersji 6.0.0.

Visual Basic:

AxBarcode1.Type = 1 ' EAN-13
AxBarcode1.Text = "431234100707"
AxBarcode1.ForeColor = Color.DimGray
AxBarcode1.BackColor = Color.AntiqueWhite
AxBarcode1.BorderHeight = 10
AxBarcode1.BorderWidth = 20
AxBarcode1.Rotate = 90
AxBarcode1.Alignment = BARCODELib.AlignConstants.ALIGNCENTER
AxBarcode1.NotchHeightInPercent = 50
AxBarcode1.AutoType = False
AxBarcode1.PrintFix = False
AxBarcode1.AboutBox
axBarcode1.SetDemoText

Delphi:

Barcode1.Type_ := 1; // EAN_13
Barcode1.Text := '431234100707';
Barcode1.Alignment := AlignLeft;
Barcode1.ForeColor := clDkGray;
Barcode1.BackColor := clCream;
Barcode1.BorderHeight := 10;
Barcode1.BorderWidth := 20;
Barcode1.NotchHeightInPercent := 50;
Barcode1.AutoType := FALSE;
Barcode1.PrintFix := FALSE;
Barcode1.AboutBox;
Barcode1.SetDemoText;
if (Barcode1.MaxBorderHeight < MyValue) then BEGIN DoAnything; END;
if (Barcode1.MaxBorderWidth < MyValue) then BEGIN DoAnything; END;

C#:

axBarcode1.Type = BARCODELib.TypeConstants.CODEEAN13;
axBarcode1.Text = "431234100707";
axBarcode1.ForeColor = Color.DimGray;
axBarcode1.BackColor = Color.AntiqueWhite;
axBarcode1.Rotate = 90;
axBarcode1.BorderHeight = 10;
axBarcode1.BorderWidth = 20;
axBarcode1.Alignment = BARCODELib.AlignConstants.ALIGNCENTER;
axBarcode1.NotchHeightInPercent = 50;
axBarcode1.AutoType = false;
axBarcode1.PrintFix = false;
axBarcode1.AboutBox;
axBarcode1.SetDemoText;

VBA (Office):

Barcode1.Type = 1 ' EAN-13
Barcode1.Text = "431234100707"
Barcode1.ForeColor = vbBlack
Barcode1.BackColor = vbWhite
Barcode1.BorderHeight = 10
Barcode1.BorderWidth = 20
Barcode1.Rotate = 90
Barcode1.Alignment = ALIGNCENTER
Barcode1.NotchHeightInPercent = 50
Barcode1.AutoType = False
Barcode1.PrintFix = False
Barcode1.AboutBox
Barcode1.SetDemoText

AutoType Property Link
AutoType bool

ActiveBarcde próbuje automatycznie wykryć typ kodu kreskowego. Ta właściwość jest przestarzała i nie należy na niej polegać. Jest on zaimplementowany w celu zapewnienia kompatybilności ze starszymi wersjami.

Visual Basic:

AxBarcode1.Type = 1 ' EAN-13
AxBarcode1.Text = "431234100707"
AxBarcode1.ForeColor = Color.DimGray
AxBarcode1.BackColor = Color.AntiqueWhite
AxBarcode1.BorderHeight = 10
AxBarcode1.BorderWidth = 20
AxBarcode1.Rotate = 90
AxBarcode1.Alignment = BARCODELib.AlignConstants.ALIGNCENTER
AxBarcode1.NotchHeightInPercent = 50
AxBarcode1.AutoType = False
AxBarcode1.PrintFix = False
AxBarcode1.AboutBox
axBarcode1.SetDemoText

Delphi:

Barcode1.Type_ := 1; // EAN_13
Barcode1.Text := '431234100707';
Barcode1.Alignment := AlignLeft;
Barcode1.ForeColor := clDkGray;
Barcode1.BackColor := clCream;
Barcode1.BorderHeight := 10;
Barcode1.BorderWidth := 20;
Barcode1.NotchHeightInPercent := 50;
Barcode1.AutoType := FALSE;
Barcode1.PrintFix := FALSE;
Barcode1.AboutBox;
Barcode1.SetDemoText;
if (Barcode1.MaxBorderHeight < MyValue) then BEGIN DoAnything; END;
if (Barcode1.MaxBorderWidth < MyValue) then BEGIN DoAnything; END;

C#:

axBarcode1.Type = BARCODELib.TypeConstants.CODEEAN13;
axBarcode1.Text = "431234100707";
axBarcode1.ForeColor = Color.DimGray;
axBarcode1.BackColor = Color.AntiqueWhite;
axBarcode1.Rotate = 90;
axBarcode1.BorderHeight = 10;
axBarcode1.BorderWidth = 20;
axBarcode1.Alignment = BARCODELib.AlignConstants.ALIGNCENTER;
axBarcode1.NotchHeightInPercent = 50;
axBarcode1.AutoType = false;
axBarcode1.PrintFix = false;
axBarcode1.AboutBox;
axBarcode1.SetDemoText;

VBA (Office):

Barcode1.Type = 1 ' EAN-13
Barcode1.Text = "431234100707"
Barcode1.ForeColor = vbBlack
Barcode1.BackColor = vbWhite
Barcode1.BorderHeight = 10
Barcode1.BorderWidth = 20
Barcode1.Rotate = 90
Barcode1.Alignment = ALIGNCENTER
Barcode1.NotchHeightInPercent = 50
Barcode1.AutoType = False
Barcode1.PrintFix = False
Barcode1.AboutBox
Barcode1.SetDemoText

Wydarzenia

są wyzwalane, gdy zmieniają się właściwości

TypeChange Event Link
TypeChange BarcodeType:long

Jest uruchamiana, gdy typ kodu kreskowego zostanie zmieniony. Właściwość Type została przekazana i może zostać użyta.

Visual Basic:

Private Sub AxBarcode1_TypeChange(sender As Object, 
            e As AxBARCODELib._DBarcodeEvents_TypeChangeEvent) Handles AxBarcode1.TypeChange
    MessageBox.Show("Barcode symbology changed to: " & AxBarcode1.TypeName)
End Sub

TextChange Event Link
TextChange Text:char

Jest uruchamiana, gdy tekst kodu kreskowego zostanie zmieniony. Właściwość Text została przekazana i może zostać użyta.

Visual Basic:

Private Sub AxBarcode1_TextChange(sender As Object, 
            e As AxBARCODELib._DBarcodeEvents_TextChangeEvent) Handles AxBarcode1.TextChange
    MessageBox.Show("Barcode content changed to: " & AxBarcode1.Text)
End Sub

ShowTextChange Event Link
ShowTextChange ShowText:bool

Jest wyzwalana, gdy wyświetlanie tekstu kodu kreskowego jest włączone lub wyłączone. Właściwość ShowText została przekazana i może zostać użyta.

Visual Basic:

Private Sub AxBarcode1_ShowTextChange(sender As Object, 
        e As AxBARCODELib._DBarcodeEvents_ShowTextChangeEvent) Handles AxBarcode1.ShowTextChange
    If AxBarcode1.ShowText = False Then
        MessageBox.Show("Human readable text is disabled now")
    End If
End Sub

AutoTypeChange Event Link
AutoTypeChange AutoType:bool

Jest uruchamiana, gdy opcja Autotype jest włączona lub wyłączona. Właściwość Autotype została przekazana i może zostać użyta.

Metody

Dostęp i automatyzacja funkcji obiektów kodów kreskowych.

CopyToClipboard Method Link
CopyToClipboard : bool

Kopiuje kod kreskowy w formacie meta-graficznym do schowka. Zwraca TRUE, jeśli się powiedzie.

Visual Basic:

Private Sub CopyButton_Click(sender As Object, e As EventArgs) Handles CopyButton.Click
    AxBarcode1.CopyToClipboard()
End Sub

Delphi:

procedure TForm1.CopyButtonClick(Sender: TObject);
begin
  Barcode1.CopyToClipboard; 
end;

CopyToClipboardBySize Method Link
CopyToClipboardBySize (Width: Integer, Height: Integer): Bool

Kopiuje kod kreskowy w formacie meta-graficznym do schowka. Rozmiar kodu kreskowego jest określany przez argumenty width i height. Zwraca TRUE, jeśli się powiedzie.

Visual Basic:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
' Assigns a sized image of the barcode to the clipboard
    AxBarcode1.CopyToClipboardBySize(600, 400)
End Sub

CreatePictureBySize Method Link
CreatePictureBySize (Width: Integer, Height: Integer): Bool

Umożliwia obsługę właściwości Picture o niestandardowym rozmiarze. Rozmiar obrazu kodu kreskowego jest określany przez argumenty width i height. Zwraca TRUE, jeśli się powiedzie.

Visual Basic:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
' Create an image of the barcode in specific size and assigns this to the clipboard
    AxBarcode1.CreatePictureBySize(800, 800)
    Clipboard.SetImage(AxBarcode1.Picture)
End Sub

SaveAs Method Link
SaveAs (path: WideString): Smallint

Zapisuje bieżący kod kreskowy jako plik obrazu (BMP, JPEG, PNG, TIFF, Targa, GIF, WMF, EMF, PBM, PGM, PPM, WBMP, XPM). Rozmiar obrazu to bieżący rozmiar kontrolki. Typ używanego pliku obrazu jest definiowany przez rozszerzenie nazwy pliku (np. BMP dla mapy bitowej systemu Windows).

Powiązany temat: Opcje pliku obrazu

Delphi:

Barcode1.SaveAs(MyFileName);

SaveAsBySize Method Link
SaveAsBySize (path: WideString, Width: Integer, Height: Integer): Smallint

Zapisuje bieżący kod kreskowy jako plik obrazu (BMP, JPEG, PNG, TIFF, Targa, GIF, WMF, EMF, PBM, PGM, PPM, WBMP, XPM). Rozmiar obrazu jest określany przez parametry width i height. Typ używanego pliku obrazu jest definiowany przez rozszerzenie nazwy pliku (np. BMP dla mapy bitowej systemu Windows).

Powiązany temat: Opcje pliku obrazu

Delphi:

Barcode1.SaveAsBySize(MyFileName,600,200);

SaveAsBySizeExtended Method Link
SaveAsBySizeExtended (path: WideString, Width: Integer, Height: Integer, Format: Integer, ColorDepth: Integer, Transparent: Integer, Flags: Integer, Angle: Integer, DPI: Integer): Smallint

Rozszerzona wersja metody SaveAsBySize.

Zapisuje bieżący kod kreskowy jako plik obrazu.

Rozmiar obrazu jest określany przez parametry width i height.

Typ pliku obrazu jest określony przez parametr format.Ustaw wartość -1, jeśli chcesz korzystać z automatycznego wyboru typu pliku na podstawie rozszerzenia nazwy pliku.

Głębia koloru jest ustawiona w bicie (1, 8, 16, 24, 32).

Opcja transparent nie została jeszcze zaimplementowana. Ustaw wartość 0, jeśli nie chcesz przezroczystości i -1, aby ustawić przezroczystość tła.

Użyj flag dla specjalnych opcji.

Opcja angle służy do obracania obrazu. Obrót można ustawić w stopniach (0-359). Aby zastąpić tę opcję bieżącym ustawieniem właściwości rotate, ustaw kąt na -1.

Użyj parametrów dpi, aby ustawić określoną rozdzielczość w DPI dla pliku obrazu. Może to być używane w formatach obrazu BMP, JPEG, TIF i PNG. (0=brak wartości DPI)

Tutaj można zobaczyć listę obsługiwanych typów plików graficznych, głębi kolorów i flag.

Metoda ta obsługuje następujące formaty obrazów: Windows Bitmap (BMP), JPEG, PNG, TIFF, Targa, GIF, WMF, EMF, PBM, PGM, PPM, WBMP oraz XPM.

Zwracane wartości tej funkcji:
0 : File save ok. No errors.
1 : Error while saving file.
2 : Wrong colordepth for this file format
3 : Colordepth/angle combination not possible
4 : Filetype not supported
5 : Low memory
6 : Low memory
7 : Low memory

SetDemoText Method Link
SetDemoText

Ustawia właściwość Text na prawidłową wartość domyślną. Użyj tego do celów demonstracyjnych lub testowych, aby uzyskać prawidłowy kod.

Visual Basic:

AxBarcode1.Type = 1 ' EAN-13
AxBarcode1.Text = "431234100707"
AxBarcode1.ForeColor = Color.DimGray
AxBarcode1.BackColor = Color.AntiqueWhite
AxBarcode1.BorderHeight = 10
AxBarcode1.BorderWidth = 20
AxBarcode1.Rotate = 90
AxBarcode1.Alignment = BARCODELib.AlignConstants.ALIGNCENTER
AxBarcode1.NotchHeightInPercent = 50
AxBarcode1.AutoType = False
AxBarcode1.PrintFix = False
AxBarcode1.AboutBox
axBarcode1.SetDemoText

Delphi:

Barcode1.Type_ := 1; // EAN_13
Barcode1.Text := '431234100707';
Barcode1.Alignment := AlignLeft;
Barcode1.ForeColor := clDkGray;
Barcode1.BackColor := clCream;
Barcode1.BorderHeight := 10;
Barcode1.BorderWidth := 20;
Barcode1.NotchHeightInPercent := 50;
Barcode1.AutoType := FALSE;
Barcode1.PrintFix := FALSE;
Barcode1.AboutBox;
Barcode1.SetDemoText;
if (Barcode1.MaxBorderHeight < MyValue) then BEGIN DoAnything; END;
if (Barcode1.MaxBorderWidth < MyValue) then BEGIN DoAnything; END;

C#:

axBarcode1.Type = BARCODELib.TypeConstants.CODEEAN13;
axBarcode1.Text = "431234100707";
axBarcode1.ForeColor = Color.DimGray;
axBarcode1.BackColor = Color.AntiqueWhite;
axBarcode1.Rotate = 90;
axBarcode1.BorderHeight = 10;
axBarcode1.BorderWidth = 20;
axBarcode1.Alignment = BARCODELib.AlignConstants.ALIGNCENTER;
axBarcode1.NotchHeightInPercent = 50;
axBarcode1.AutoType = false;
axBarcode1.PrintFix = false;
axBarcode1.AboutBox;
axBarcode1.SetDemoText;

VBA (Office):

Barcode1.Type = 1 ' EAN-13
Barcode1.Text = "431234100707"
Barcode1.ForeColor = vbBlack
Barcode1.BackColor = vbWhite
Barcode1.BorderHeight = 10
Barcode1.BorderWidth = 20
Barcode1.Rotate = 90
Barcode1.Alignment = ALIGNCENTER
Barcode1.NotchHeightInPercent = 50
Barcode1.AutoType = False
Barcode1.PrintFix = False
Barcode1.AboutBox
Barcode1.SetDemoText

BinaryWriteAsPNGBySize Method Link
BinaryWriteAsPNGBySize (Width: Integer, Height: Integer): OleVariant

Zwraca bieżący kod kreskowy w binarnym formacie obrazu PNG. Rozmiar jest określany przez parametry szerokości i wysokości. Ta metoda jest dostępna tylko w wersji Enterprise Edition.

BinaryWriteAsPNG Method Link
BinaryWriteAsPNG : OleVariant

Zwraca bieżący kod kreskowy w binarnym formacie obrazu PNG o bieżącym rozmiarze. Ta metoda jest dostępna tylko w wersji Enterprise Edition.

AboutBox Method Link
AboutBox

Otwiera okno informacyjne ActiveBarcode i pokazuje wersję oraz inne szczegóły.

Visual Basic:

AxBarcode1.Type = 1 ' EAN-13
AxBarcode1.Text = "431234100707"
AxBarcode1.ForeColor = Color.DimGray
AxBarcode1.BackColor = Color.AntiqueWhite
AxBarcode1.BorderHeight = 10
AxBarcode1.BorderWidth = 20
AxBarcode1.Rotate = 90
AxBarcode1.Alignment = BARCODELib.AlignConstants.ALIGNCENTER
AxBarcode1.NotchHeightInPercent = 50
AxBarcode1.AutoType = False
AxBarcode1.PrintFix = False
AxBarcode1.AboutBox
axBarcode1.SetDemoText

Delphi:

Barcode1.Type_ := 1; // EAN_13
Barcode1.Text := '431234100707';
Barcode1.Alignment := AlignLeft;
Barcode1.ForeColor := clDkGray;
Barcode1.BackColor := clCream;
Barcode1.BorderHeight := 10;
Barcode1.BorderWidth := 20;
Barcode1.NotchHeightInPercent := 50;
Barcode1.AutoType := FALSE;
Barcode1.PrintFix := FALSE;
Barcode1.AboutBox;
Barcode1.SetDemoText;
if (Barcode1.MaxBorderHeight < MyValue) then BEGIN DoAnything; END;
if (Barcode1.MaxBorderWidth < MyValue) then BEGIN DoAnything; END;

C#:

axBarcode1.Type = BARCODELib.TypeConstants.CODEEAN13;
axBarcode1.Text = "431234100707";
axBarcode1.ForeColor = Color.DimGray;
axBarcode1.BackColor = Color.AntiqueWhite;
axBarcode1.Rotate = 90;
axBarcode1.BorderHeight = 10;
axBarcode1.BorderWidth = 20;
axBarcode1.Alignment = BARCODELib.AlignConstants.ALIGNCENTER;
axBarcode1.NotchHeightInPercent = 50;
axBarcode1.AutoType = false;
axBarcode1.PrintFix = false;
axBarcode1.AboutBox;
axBarcode1.SetDemoText;

VBA (Office):

Barcode1.Type = 1 ' EAN-13
Barcode1.Text = "431234100707"
Barcode1.ForeColor = vbBlack
Barcode1.BackColor = vbWhite
Barcode1.BorderHeight = 10
Barcode1.BorderWidth = 20
Barcode1.Rotate = 90
Barcode1.Alignment = ALIGNCENTER
Barcode1.NotchHeightInPercent = 50
Barcode1.AutoType = False
Barcode1.PrintFix = False
Barcode1.AboutBox
Barcode1.SetDemoText

SaveAsPNG Method Link
SaveAsPNG (path: WideString): Smallint

Zapisuje bieżący kod kreskowy jako plik obrazu PNG. Rozmiar obrazu to bieżący rozmiar kontrolki.

Ta funkcja jest przestarzała. Zamiast tego użyj funkcji SaveAs, która obsługuje więcej formatów plików.

SaveAsPNGBySize Method Link
SaveAsPNGBySize (path: WideString, Width: Integer, Height: Integer): Smallint

Zapisuje bieżący kod kreskowy jako plik obrazu PNG. Rozmiar obrazu jest określany przez parametry szerokości i wysokości.

Ta funkcja jest przestarzała. Zamiast tego użyj funkcji SaveAsBySize, która obsługuje więcej formatów plików.

Obsługiwane formaty plików graficznych

Funkcje SaveAs, SaveAsBySize i SaveAsBySizeExtended kontrolki ActiveBarcode obsługują różne formaty obrazu i głębię kolorów:

Windows Bitmap

Extension: BMP
Format #: 0
1-bit s/w: ✔
8-bit: ✔
16-bit: ✔
24-bit: ✔
32-bit: ✔ default
Grafika bitmapowa

JPEG

Extension: JPG, JPEG
Format #: 2
1-bit s/w: ✕
8-bit: gray
16-bit: ✕
24-bit: ✔ default
32-bit: ✕
Grafika bitmapowa

Portable Network Graphic

Extension: PNG
Format #: 13
1-bit s/w: ✔
8-bit: ✔
16-bit: ✕
24-bit: ✔ default
32-bit: ✔
Grafika bitmapowa

TIFF

Extension: TIF
Format #: 18
1-bit s/w: ✔
8-bit: ✔
16-bit: ✕
24-bit: ✔ default
32-bit: ✔
Grafika bitmapowa

Targa

Extension: TGA
Format #: 17
1-bit s/w: ✕
8-bit: ✔
16-bit: ✔
24-bit: ✔ default
32-bit: ✔
Grafika bitmapowa

GIF

Extension: GIF
Format #: 25
1-bit s/w: ✔
8-bit: ✔ default
16-bit: ✕
24-bit: ✕
32-bit: ✕
Grafika bitmapowa

Windows Metafile Format

Extension: WMF
Format #: 101
1-bit s/w: ✕
8-bit: ✕
16-bit: ✕
24-bit: ✔ default
32-bit: ✕
Grafika wektorowa

Enhanced Metafile Format

Extension: EMF
Format #: 100
1-bit s/w: ✕
8-bit: ✕
16-bit: ✕
24-bit: ✔ default
32-bit: ✕
Grafika wektorowa

Wireless Bitmap

Extension: WBM, WBMP
Format #: 19
1-bit s/w: ✔ default
8-bit: ✕
16-bit: ✕
24-bit: ✕
32-bit: ✕
Grafika bitmapowa

Portable Bit Map

Extension: PBM
Format #: 7
1-bit s/w: ✔ default
8-bit: ✕
16-bit: ✕
24-bit: ✕
32-bit: ✕
Grafika bitmapowa

Portable Gray Map

Extension: PGM
Format #: 11
1-bit s/w: ✕
8-bit: gray/default
16-bit: ✕
24-bit: ✕
32-bit: ✕
Grafika bitmapowa

Portable Pixel Map

Extension: PPM
Format #: 14
1-bit s/w: ✕
8-bit: ✕
16-bit: ✕
24-bit: ✔ default
32-bit: ✕
Grafika bitmapowa

X Pix Map

Extension: XPM
Format #: 23
1-bit s/w: ✕
8-bit: ✕
16-bit: ✕
24-bit: ✔ default
32-bit: ✕
Grafika bitmapowa

Głębia kolorów oznaczona jako domyślna jest używana podczas korzystania z funkcji SaveAs, SaveAsBySize lub po ustawieniu głębi kolorów na zero podczas korzystania z funkcji SaveAsBySizeExtended.

Głębia kolorów dla plików graficznych

Obsługiwane głębie kolorów to:

Głębokość koloru	Opis
1	1-bit monochromatyczny, obraz będzie czarno-biały.
8	8-bit kolory lub skala szarości w zależności od formatu obrazu
16	16-bit TrueColor
24	24-bit TrueColor
32	32-bit TrueColor

Należy pamiętać, że nie każda głębia kolorów jest dostępna dla każdego formatu pliku obrazu.

Obsługiwane flagi dla plików graficznych

Podczas zapisywania plików graficznych można używać następujących flag:

Format obrazu	Flaga	Opis
BMP	0x1	Zapisuje mapę bitową jako RLE (Run Length Encoded)
JPEG	0x80 0x100 0x200 0x400 0x800	JPEG jakość Super (100%) JPEG Jakość Dobra (75%) JPEG jakość Normalna (50%) JPEG jakość Średnia (25%) JPEG jakość słaba (10%)

DPI ustawienia

Podczas zapisywania obrazu w formacie JPEG, PNG, TIFF lub BMP można ustawić DPI (Dots per Inch), jeśli używana jest metoda SaveAsBySizeExtended.