activePDF Toolkit 2011 API リファレンス
DrawTo
テクニカル リファレンス > Toolkit オブジェクト > Toolkit メソッド > DrawTo

Glossary Item Box

説明: MoveTo メソッドで指定した始点に対応する終点を指定します。終点を指定すると、新規または既存の PDF ページに始点から終点までの直線を描きます。線の太さは、LineWidth メソッドで指定します。
構文: object.DrawTo EndX, EndY, PageNr
引数: 引数 値の型 説明 & 設定
object N/A オブジェクトのインスタンスを設定します。
EndX Float 線の終点の X 座標。
線の太さを指定した場合、EndX は、線の太さの中間にある始点の X 座標の位置と一致します。
PDF 座標で指定します。
EndY Float 線の終点の Y 座標。
線の太さを指定した場合、EndY は、線の太さの中間にある終点の Y 座標の位置と一致します。
PDF 座標で指定します。
PageNr Long オプション
0 = 新規または現在開いているページで動作(デフォルト)
>1 = 指定したページで動作
-1 = すべてのページで動作
例:
'DrawTo Example
Set TK = CreateObject("APToolkit.Object")

r = TK.OpenOutputFile("DrawTo.pdf")
'Draw a border around the PDF
strPageWidth = 612 '8.5" (72 = 1")
strPageHeight = 792 '11" (72 = 1")
strSpace = 20 'Space between edge of page and border

'Top of the page line
TK.MoveTo strSpace, strPageHeight - strSpace, 0
TK.DrawTo strPageWidth - strSpace, strPageHeight - strSpace, 0

'Left of the page line
TK.MoveTo strPageWidth - strSpace, strPageHeight - strSpace, 0
TK.DrawTo strPageWidth - strSpace, strSpace, 0

'Bottom of the page line
TK.MoveTo strSpace, strSpace, 0
TK.DrawTo strPageWidth - strSpace, strSpace, 0

'Right of the page line
TK.MoveTo strSpace, strSpace, 0
TK.DrawTo strSpace, strPageHeight - strSpace, 0
TK.CloseOutputFile
Set TK = Nothing