Dim caption As String = "Example: DrawBarcodeDataMatrix"
Dim gdpicturePDF As New GdPicturePDF()
Dim status As GdPictureStatus = gdpicturePDF.NewPDF()
If status = GdPictureStatus.OK Then
gdpicturePDF.SetOrigin(PdfOrigin.PdfOriginTopLeft)
gdpicturePDF.SetMeasurementUnit(PdfMeasurementUnit.PdfMeasurementUnitCentimeter)
status = gdpicturePDF.NewPage(PdfPageSizes.PdfPageSizeLetter)
If status = GdPictureStatus.OK Then
If (gdpicturePDF.DrawBarcodeDataMatrix("0123456789", BarcodeDataMatrixEncodingMode.BarcodeDataMatrixEncodingModeASCII,
BarcodeDataMatrixVersion.BarcodeDataMatrixVersion010x010, 2, 2, 2, Color.Red) = GdPictureStatus.OK) AndAlso
(gdpicturePDF.DrawBarcodeDataMatrix("0123456789", BarcodeDataMatrixEncodingMode.BarcodeDataMatrixEncodingModeASCII,
BarcodeDataMatrixVersion.BarcodeDataMatrixVersion010x010, 4, 6, 2, Color.Red) = GdPictureStatus.OK) AndAlso
(gdpicturePDF.DrawBarcodeDataMatrix("0123456789", BarcodeDataMatrixEncodingMode.BarcodeDataMatrixEncodingModeASCII,
BarcodeDataMatrixVersion.BarcodeDataMatrixVersion010x010, 8, 12, 2, Color.Red) = GdPictureStatus.OK) AndAlso
(gdpicturePDF.DrawBarcodeDataMatrix("9876543210", BarcodeDataMatrixEncodingMode.BarcodeDataMatrixEncodingModeASCII,
BarcodeDataMatrixVersion.BarcodeDataMatrixVersionAuto, 2, 2, 10, Color.Blue) = GdPictureStatus.OK) AndAlso
(gdpicturePDF.DrawBarcodeDataMatrix("9876543210", BarcodeDataMatrixEncodingMode.BarcodeDataMatrixEncodingModeASCII,
BarcodeDataMatrixVersion.BarcodeDataMatrixVersionAuto, 4, 6, 10, Color.Blue) = GdPictureStatus.OK) AndAlso
(gdpicturePDF.DrawBarcodeDataMatrix("9876543210", BarcodeDataMatrixEncodingMode.BarcodeDataMatrixEncodingModeASCII,
BarcodeDataMatrixVersion.BarcodeDataMatrixVersionAuto, 8, 12, 10, Color.Blue) = GdPictureStatus.OK) Then
status = gdpicturePDF.SaveToFile("test_DrawBarcodeDataMatrix.pdf")
If status = GdPictureStatus.OK Then
MessageBox.Show("The example has been followed successfully and the file has been saved.", caption)
Else
MessageBox.Show("The example has been followed successfully, but the file can't be saved. Status: " + status.ToString(), caption)
End If
Else
MessageBox.Show("The one of the DrawBarcodeDataMatrix() method has failed with the status: " + gdpicturePDF.GetStat().ToString(), caption)
End If
Else
MessageBox.Show("The NewPage() method has failed with the status: " + status.ToString(), caption)
End If
Else
MessageBox.Show("The NewPDF() method has failed with the status: " + status.ToString(), caption)
End If
gdpicturePDF.Dispose()
string caption = "Example: DrawBarcodeDataMatrix";
GdPicturePDF gdpicturePDF = new GdPicturePDF();
GdPictureStatus status = gdpicturePDF.NewPDF();
if (status == GdPictureStatus.OK)
{
gdpicturePDF.SetOrigin(PdfOrigin.PdfOriginTopLeft);
gdpicturePDF.SetMeasurementUnit(PdfMeasurementUnit.PdfMeasurementUnitCentimeter);
status = gdpicturePDF.NewPage(PdfPageSizes.PdfPageSizeLetter);
if (status == GdPictureStatus.OK)
{
if ((gdpicturePDF.DrawBarcodeDataMatrix("0123456789", BarcodeDataMatrixEncodingMode.BarcodeDataMatrixEncodingModeASCII,
BarcodeDataMatrixVersion.BarcodeDataMatrixVersion010x010, 2, 2, 2, Color.Red) == GdPictureStatus.OK) &&
(gdpicturePDF.DrawBarcodeDataMatrix("0123456789", BarcodeDataMatrixEncodingMode.BarcodeDataMatrixEncodingModeASCII,
BarcodeDataMatrixVersion.BarcodeDataMatrixVersion010x010, 4, 6, 2, Color.Red) == GdPictureStatus.OK) &&
(gdpicturePDF.DrawBarcodeDataMatrix("0123456789", BarcodeDataMatrixEncodingMode.BarcodeDataMatrixEncodingModeASCII,
BarcodeDataMatrixVersion.BarcodeDataMatrixVersion010x010, 8, 12, 2, Color.Red) == GdPictureStatus.OK) &&
(gdpicturePDF.DrawBarcodeDataMatrix("9876543210", BarcodeDataMatrixEncodingMode.BarcodeDataMatrixEncodingModeASCII,
BarcodeDataMatrixVersion.BarcodeDataMatrixVersionAuto, 2, 2, 10, Color.Blue) == GdPictureStatus.OK) &&
(gdpicturePDF.DrawBarcodeDataMatrix("9876543210", BarcodeDataMatrixEncodingMode.BarcodeDataMatrixEncodingModeASCII,
BarcodeDataMatrixVersion.BarcodeDataMatrixVersionAuto, 4, 6, 10, Color.Blue) == GdPictureStatus.OK) &&
(gdpicturePDF.DrawBarcodeDataMatrix("9876543210", BarcodeDataMatrixEncodingMode.BarcodeDataMatrixEncodingModeASCII,
BarcodeDataMatrixVersion.BarcodeDataMatrixVersionAuto, 8, 12, 10, Color.Blue) == GdPictureStatus.OK))
{
status = gdpicturePDF.SaveToFile("test_DrawBarcodeDataMatrix.pdf");
if (status == GdPictureStatus.OK)
MessageBox.Show("The example has been followed successfully and the file has been saved.", caption);
else
MessageBox.Show("The example has been followed successfully, but the file can't be saved. Status: " + status.ToString(), caption);
}
else
MessageBox.Show("The one of the DrawBarcodeDataMatrix() method has failed with the status: " + gdpicturePDF.GetStat().ToString(), caption);
}
else
MessageBox.Show("The NewPage() method has failed with the status: " + status.ToString(), caption);
}
else
MessageBox.Show("The NewPDF() method has failed with the status: " + status.ToString(), caption);
gdpicturePDF.Dispose();