Создать прямоугольную текстовую область черным шрифтом:
Dim PDFDoc As WebSupergoo.ABCpdf8.Doc
'Dimensions
PDFDoc.Rect.Left =100
PDFDoc.Rect.Bottom = 100
PDFDoc.Rect.Width = 100
PDFDoc.Rect.Height = 100
PDFDoc.Color.String = "0, 0, 0" 'black font
PDFDoc.AddText(text)
Но будьте осторожны.Если текст больше прямоугольника, он не появится.
Границы по умолчанию не будет.Если вам это нужно, используйте:
PDFDoc.FrameRect()
Чтобы добавить изображение:
Dim bm As Bitmap
bm = New Bitmap(filename)
'Dimensions
PDFDoc.Rect.Left = 100
PDFDoc.Rect.Bottom = 100 'N.B Measures from bottom, not top
PDFDoc.Rect.Width = 100
PDFDoc.Rect.Height = 100
PDFDoc.FillRect()
PDFDoc.AddImageBitmap(bm, True)
Однако я не думаю, что возможно сделать его не подходящим для Rect.Насколько я понимаю, это все равно что иметь Rect в любом случае.
Кроме того, я рекомендую взглянуть на документацию websupergoo .Это очень хорошо.