الخصائص, الأحداث & الأساليب

الخصائص

تحديد محتوى وتصميم الباركود

Text PropertyLink
Text char

يحتوي النص على محتوى الباركود. عادة ما يتم إدخال هذا الرقم بدون رقم تحقق.
يمكنك إدخال رموز التحكم في شكل قابل للقراءة البشرية كما يلي: <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 PropertyLink
ShowText bool

TRUE: يحتوي الرمز الشريطي على نص يمكن قراءته بواسطة الإنسان.
FALSE: يتم عرض الرمز الشريطي بدون النص المقروء بواسطة الإنسان.

أمثلة:

ShowText=TRUE

ShowText=FALSE

يرجى ملاحظة أن بعض أنواع الباركود لا تحتوي على نص يمكن قراءته بواسطة العين البشرية. ينطبق هذا على QR Code و PDF417 و DataMatrix. لا يكون لخاصية ShowText أي تأثير عند استخدام أحد هذه الرموز.

Visual Basic:

AxBarcode1.ShowText = True

Delphi:

Barcode1.ShowText := TRUE;

C#:

axBarcode1.ShowText = true;

VBA (Office):

Barcode1.ShowText = True

Type PropertyLink
Type long

يحدد نوع الباركود برقم فريد.

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 PropertyLink
Rotate long

اتجاه الباركود بالدرجات (0, 90, 180, 270).

أمثلة

0 درجات

90 درجات

180 درجات

270 درجات

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 PropertyLink
Alignment AlignConstants

يضبط محاذاة الرمز الشريطي إلى اليسار أو اليمين أو في المنتصف. يمكنك تمرير AlignLeft أو AlignCenter أو AlignRight.

أمثلة:
ActiveBarcode: AlignLeft

AlignLeft

AlignCenter

ActiveBarcode: AlignRight

AlignRight

إعلان '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 PropertyLink
TypeName char

اسم نوع الباركود.

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 PropertyLink
IsValid bool

تُرجع TRUE إذا كان الرمز الشريطي صالحًا. إذا كان غير صالح، فلا يمكن ترميز النص بنوع الباركود المحدد.

Visual Basic:

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

IsSizeOk PropertyLink
IsSizeOk bool

يشير إلى ما إذا كان يمكن عرض الرمز الشريطي بشكل صحيح. تُرجع TRUE إذا كانت أبعاد عنصر التحكم كبيرة بما يكفي لعرض الرمز الشريطي. لا يمكن أن تصبح هذه القيمة TRUE إلا إذا كان الرمز الشريطي نفسه صحيحًا - أي أن القيمة IsValid هي أيضًا TRUE.

Visual Basic:

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

Checksum PropertyLink
Checksum long

إرجاع رقم التحقق.

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 PropertyLink
Picture pictureobject

إرجاع صورة الباركود.
إذا كنت بحاجة إلى الصورة بحجم معين، فاستخدم طريقة CreatePictureBySize قبل استرداد الصورة.

Visual Basic:

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

BackColor PropertyLink
BackColor OLE_Color

لون خلفية الباركود.

أمثلة:

أبيض BackColor

أخضر 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 PropertyLink
ForeColor OLE_Color

لون مقدمة الباركود.

أمثلة:

ActiveBarcode: Barcode with black forecolor

أسود Forecolor

ActiveBarcode: Barcode with green forecolor

أخضر 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 PropertyLink
Font fontobject

يحدد الخط حسب الاسم والنمط والتأثيرات والحجم لسطر النص.

خاصية الخط هي كائن يوضح الخصائص المختلفة للخط.

استخدام كائن الخط هو كما يلي:

تغيير الحجم:
Barcode1.Font.Size = 10

تغيير الخط:
Barcode1.Font.Name = "Arial"

تغيير النمط والتأثيرات:
Barcode1.Font.Bold = True
Barcode1.Font.Italic = True
Barcode1.Font.Underline = True
Barcode1.Font.Strikethrough = True

في بعض بيئات التطوير، يتم تحديد هذه الخصائص بواسطة أنواع التعداد، على سبيل المثال Delphi. انظر في دليل نظام التطوير للحصول على معلومات حول كيفية التعامل معها.

أمثلة:

Font: Arial, 12pt, Bold

Font: Comix, 14pt, Standard

Delphi:

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

Version PropertyLink
Version char

إرجاع رقم إصدار كائن الباركود.

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 PropertyLink
BorderHeight long

ارتفاع الحدود فوق وتحت الرمز الشريطي بالبكسل. يتم رسم الحدود باللون الحالي للخلفية.

أمثلة:

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 PropertyLink
BorderWidth long

عرض الحدود على يسار ويمين الرمز الشريطي بالبكسل. يتم رسم الحدود باللون الحالي للخلفية.

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 PropertyLink
MaxBorderHeight long

القيمة القصوى الممكنة لـ 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 PropertyLink
MaxBorderWidth long

القيمة القصوى الممكنة لـ 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 PropertyLink
NotchHeightInPercent long

طول الشقوق بالنسبة المئوية.

أمثلة:

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 PropertyLink
PrintFix bool

غير مستخدم. لا توجد وظائف منذ الإصدار 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 PropertyLink
AutoType bool

يحاول ActiveBarcde اكتشاف نوع الباركود تلقائيًا. هذه الخاصية عفا عليها الزمن ولا ينبغي الاعتماد عليها. تم تنفيذه لأغراض التوافق مع الإصدارات القديمة.

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

الأحداث

يتم تشغيلها عند تغيير الخصائص

TypeChange EventLink
TypeChange BarcodeType:long

يتم تشغيله عند تغيير نوع الباركود. تم تمرير الخاصية Type ويمكن استخدامها.

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 EventLink
TextChange Text:char

يتم تشغيله عند تغيير نص الباركود. تم تمرير الخاصية Text ويمكن استخدامها.

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 EventLink
ShowTextChange ShowText:bool

يتم تشغيله عند تمكين أو تعطيل عرض نص الباركود. تم تمرير الخاصية ShowText ويمكن استخدامها.

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 EventLink
AutoTypeChange AutoType:bool

يتم تشغيله عند تمكين أو تعطيل خيار النمط التلقائي. تم تمرير الخاصية Autotype ويمكن استخدامها.

الأساليب

الوصول إلى ميزات كائن الباركود وأتمتتها.

CopyToClipboard MethodLink
CopyToClipboard : bool

ينسخ الرمز الشريطي بتنسيق رسومي إلى الحافظة. تُرجع TRUE في حالة النجاح.

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 MethodLink
CopyToClipboardBySize (Width: Integer, Height: Integer): Bool

ينسخ الرمز الشريطي بتنسيق رسومي إلى الحافظة. يتم تحديد حجم الباركود بواسطة الحجج width و height. تُرجع TRUE في حالة النجاح.

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 MethodLink
CreatePictureBySize (Width: Integer, Height: Integer): Bool

يسمح بمعالجة خاصية صورة ذات حجم مخصص. يتم تحديد حجم صورة الباركود بواسطة الحجج width و height. تُرجع TRUE في حالة النجاح.

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 MethodLink
SaveAs (path: WideString): Smallint

حفظ الباركود الحالي كملف صورة (BMP, JPEG, PNG, TIFF, Targa, GIF, WMF, EMF, PBM, PGM, PPM, WBMP, XPM). حجم الصورة هو الحجم الحالي لعنصر التحكم. يتم تحديد نوع ملف الصورة المستخدم من خلال امتداد اسم الملف (على سبيل المثال، BMP لملف Windows Bitmap).

موضوع ذو صلة: خيارات ملف الصورة

Delphi:

Barcode1.SaveAs(MyFileName);

SaveAsBySize MethodLink
SaveAsBySize (path: WideString, Width: Integer, Height: Integer): Smallint

حفظ الباركود الحالي كملف صورة (BMP, JPEG, PNG, TIFF, Targa, GIF, WMF, EMF, PBM, PGM, PPM, WBMP, XPM). يتم تحديد حجم الصورة بواسطة المعلمتين العرض والارتفاع. يتم تحديد نوع ملف الصورة المستخدم من خلال امتداد اسم الملف (على سبيل المثال، BMP لملف Windows Bitmap).

موضوع ذو صلة: خيارات ملف الصورة

Delphi:

Barcode1.SaveAsBySize(MyFileName,600,200);

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

نسخة موسعة من طريقة SaveAsBySize.

يحفظ الرمز الشريطي الحالي كملف صورة.

يتم تحديد حجم الصورة بواسطة المعلمتين width و height.

يتم تحديد نوع ملف الصورة بواسطة المعلمة format.اضبطه على -1 إذا كنت تريد استخدام التحديد التلقائي لنوع الملف حسب امتداد اسم الملف.

يتم ضبط عمق اللون بالبتات (1, 8, 16, 24, 32).

الخيار الشفاف لم يتم تنفيذه بعد. اضبطه على 0 إذا لم تكن تريد الشفافية، و-1 لضبط الخلفية على الشفافية.

استخدم العلامات للخيارات الخاصة.

يستخدم زاوية الخيار لتدوير الصورة. اضبط الدوران بالدرجات (0-359). لتجاوز هذا الخيار مع الإعداد الحالي لخاصية التدوير، اضبط الزاوية على -1.

استخدم المعلمات dpi لتعيين دقة محددة بالبكسل لكل بوصة لملف الصورة. يمكن استخدام هذا في تنسيقات الصور BMP و JPEG و TIF و PNG. (0 = عدم تعيين قيمة DPI)

هنا يمكنك الاطلاع على قائمة بأنواع ملفات الصور المدعومة وعمق الألوان والعلامات.

تدعم هذه الطريقة تنسيقات الصور التالية: Windows Bitmap (BMP), JPEG, PNG, TIFF, Targa, GIF, WMF, EMF, PBM, PGM, PPM, WBMP و XPM.

قيم إرجاع هذه الدالة:
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 MethodLink
SetDemoText

يضبط الخاصية Text على قيمة افتراضية صالحة. استخدم هذا لأغراض العرض أو الاختبار للحصول على رمز صالح.

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 MethodLink
BinaryWriteAsPNGBySize (Width: Integer, Height: Integer): OleVariant

إرجاع الرمز الشريطي الحالي بتنسيق صورة PNG ثنائي. يتم تحديد الحجم بواسطة معلمات العرض والارتفاع. هذه الطريقة متاحة فقط في إصدار Enterprise Edition.

BinaryWriteAsPNG MethodLink
BinaryWriteAsPNG : OleVariant

إرجاع الرمز الشريطي الحالي بتنسيق صورة PNG ثنائي بالحجم الحالي. هذه الطريقة متاحة فقط في إصدار Enterprise Edition.

AboutBox MethodLink
AboutBox

يفتح مربع حوار المعلومات الخاص بـ ActiveBarcode ويعرض الإصدار وتفاصيل أخرى.

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 MethodLink
SaveAsPNG (path: WideString): Smallint

يحفظ الرمز الشريطي الحالي كملف صورة PNG. حجم الصورة هو الحجم الحالي لعنصر التحكم.

هذه الوظيفة عفا عليها الزمن. استخدم وظيفة SaveAs بدلاً من ذلك، فهي تدعم المزيد من تنسيقات الملفات.

SaveAsPNGBySize MethodLink
SaveAsPNGBySize (path: WideString, Width: Integer, Height: Integer): Smallint

يحفظ الرمز الشريطي الحالي كملف صورة PNG. يتم تحديد حجم الصورة بواسطة المعلمتين العرض والارتفاع.

هذه الوظيفة عفا عليها الزمن. استخدم وظيفة SaveAsBySize بدلاً من ذلك، فهي تدعم المزيد من تنسيقات الملفات.

تنسيقات ملفات الصور المدعومة

تدعم وظائف SaveAs و SaveAsBySize و SaveAsBySizeExtended في ActiveBarcode Control تنسيقات صور وعمق ألوان مختلفة:

Windows Bitmap

Extension: BMP
Format #: 0
1-bit s/w: ✔
8-bit: ✔
16-bit: ✔
24-bit: ✔
32-bit: ✔ default
رسومات نقطية

JPEG

Extension: JPG, JPEG
Format #: 2
1-bit s/w: ✕
8-bit: gray
16-bit: ✕
24-bit: ✔ default
32-bit: ✕
رسومات نقطية

Portable Network Graphic

Extension: PNG
Format #: 13
1-bit s/w: ✔
8-bit: ✔
16-bit: ✕
24-bit: ✔ default
32-bit: ✔
رسومات نقطية

TIFF

Extension: TIF
Format #: 18
1-bit s/w: ✔
8-bit: ✔
16-bit: ✕
24-bit: ✔ default
32-bit: ✔
رسومات نقطية

Targa

Extension: TGA
Format #: 17
1-bit s/w: ✕
8-bit: ✔
16-bit: ✔
24-bit: ✔ default
32-bit: ✔
رسومات نقطية

GIF

Extension: GIF
Format #: 25
1-bit s/w: ✔
8-bit: ✔ default
16-bit: ✕
24-bit: ✕
32-bit: ✕
رسومات نقطية

Windows Metafile Format

Extension: WMF
Format #: 101
1-bit s/w: ✕
8-bit: ✕
16-bit: ✕
24-bit: ✔ default
32-bit: ✕
الرسومات المتجهة

Enhanced Metafile Format

Extension: EMF
Format #: 100
1-bit s/w: ✕
8-bit: ✕
16-bit: ✕
24-bit: ✔ default
32-bit: ✕
الرسومات المتجهة

Wireless Bitmap

Extension: WBM, WBMP
Format #: 19
1-bit s/w: ✔ default
8-bit: ✕
16-bit: ✕
24-bit: ✕
32-bit: ✕
رسومات نقطية

Portable Bit Map

Extension: PBM
Format #: 7
1-bit s/w: ✔ default
8-bit: ✕
16-bit: ✕
24-bit: ✕
32-bit: ✕
رسومات نقطية

Portable Gray Map

Extension: PGM
Format #: 11
1-bit s/w: ✕
8-bit: gray/default
16-bit: ✕
24-bit: ✕
32-bit: ✕
رسومات نقطية

Portable Pixel Map

Extension: PPM
Format #: 14
1-bit s/w: ✕
8-bit: ✕
16-bit: ✕
24-bit: ✔ default
32-bit: ✕
رسومات نقطية

X Pix Map

Extension: XPM
Format #: 23
1-bit s/w: ✕
8-bit: ✕
16-bit: ✕
24-bit: ✔ default
32-bit: ✕
رسومات نقطية

يتم استخدام عمق الألوان المحدد كافتراضي عند استخدام وظيفة SaveAs أو SaveAsBySize أو عند تعيين عمق الألوان على صفر عند استخدام وظيفة SaveAsBySizeExtended.

عمق الألوان لملفات الصور

عمق الألوان المدعوم هو:

عمق الألوان	الوصف
1	1-bit أحادي اللون، ستكون الصورة بالأبيض والأسود.
8	8-bit ألوان أو تدرج رمادي حسب تنسيق الصورة
16	16-bit TrueColor
24	24-bit TrueColor
32	32-bit TrueColor

يرجى ملاحظة أنه لا تتوفر كل درجات الألوان لكل تنسيق ملف صورة.

الأعلام المدعومة لملفات الصور

يمكنك استخدام العلامات التالية عند حفظ ملفات الصور:

تنسيق الصورة	العلم	الوصف
BMP	0x1	يحفظ الصورة النقطية باسم RLE (Run Length Encoded)
JPEG	0x80 0x100 0x200 0x400 0x800	JPEG جودة فائقة (100%) JPEG الجودة جيدة (75%) JPEG الجودة عادية (50%) JPEG الجودة متوسطة (25%) JPEG الجودة رديئة (10%)

DPI الإعدادات

عند الحفظ بتنسيق صورة JPEG أو PNG أو TIFF أو BMP، يمكنك تعيين DPI (نقاط لكل بوصة)، إذا كنت تستخدم طريقة SaveAsBySizeExtended.