main.frm

一个对PDF文件进行操作的第三方dll

End Sub

'1: 最简单示例
Private Sub btExample1_Click()
    SetStr hBox, Box_Title, "Minimal example"             '指定文件标题
    CallBox BeginDoc(hBox)                                '打开文件
    SetNum hBox, Box_FontBold, 1                          '字体粗体
    SetStr hBox, Box_FontName, "宋体"                     '定义字体
    
    CallBox TextOut(hBox, 200, 300, "Hello, 欢迎光临枕善居VB.NET源码博客")     '写入文本
    SetNum hBox, Box_FontBold, 2                          '字体粗体
    SetStr hBox, Box_FontName, "黑体"                     '定义字体
    CallBox TextOut(hBox, 300, 400, "您好, 枕善居可以为您提供完善的商业源码和特别控件!")     '写入文本
    CallBox TextOut(hBox, 400, 500, "请记住本站网址： http://www.mndsoft.com")     '写入文本
    CallBox TextOut(hBox, 500, 600, "注册本站VIP会员，免费享受后续更新和获取破解！")     '写入文本
    
    CallBox EndDoc(hBox)                                  '关闭文件
End Sub

'10: 页面计数
Private Sub btExample10_Click()
    Dim PW As Long
    PW = GetNum(hBox, Box_PageWidth)
    SetStr hBox, Box_Title, "Page count"
    SetNum hBox, Box_WantPageCount, 1  ' Activates pre-calculation
    CallBox BeginDoc(hBox)

    ' Page 1
    SetStr hBox, Box_FontName, "宋体"                     '定义字体
    CallBox DrawPageCounter(hBox, 0, 100, PW, taCenter, "[第", pgPageNumber, " 页 共 ", pgPageCount, "页]")
    SetNum hBox, Box_FontSize, 12
    SetNum hBox, Box_FontBold, 1
    SetStr hBox, Box_FontName, "宋体"                     '定义字体
    CallBox TextOut(hBox, 100, 200, "页面计数")
    SetNum hBox, Box_FontSize, 10
    SetNum hBox, Box_FontBold, 0
    CallBox TextOut(hBox, 100, 300, "This example shows how to use page counters to manage sophisticated page numbering.")
    CallBox TextOut(hBox, 100, 350, "If you want to show the number of pages, assign WantPageCount to 1 before start.")
    CallBox TextOut(hBox, 100, 400, "This will activate a preliminary stage destinated to compute the number of pages.")
    CallBox TextOut(hBox, 100, 450, "Then, you can use the DrawPageCounter method in several ways.")
    CallBox TextOut(hBox, 100, 500, "At the top of this page you can read the page number and the total number of pages of the document.")

    ' Page 2
    CallBox NewPage(hBox)
    CallBox DrawPageCounter(hBox, 0, 100, PW, taCenter, "[第", pgPageNumber, " 页 共 ", pgPageCount, "页]")
    CallBox TextOut(hBox, 100, 250, "Most often, DrawPageCounter is called in the OnNewPage event. This is not so here.")

    ' Page 3
    CallBox NewSection(hBox, poPortrait, 1)   ' Starts  new chapter
    CallBox DrawPageCounter(hBox, 0, 100, PW, taCenter, "[", _
        pgPageNumber, " of  ", pgPageCount, "]")
    CallBox TextOut(hBox, 100, 200, "Here, we start a new chapter.")
    CallBox DrawPageCounter(hBox, 100, 300, 0, taLeftJustify, "There are ", _
        pgChapterCount, "", pgNone, " chapters in the document.")
    CallBox DrawPageCounter(hBox, 100, 350, 0, taLeftJustify, "There are ", _
        pgPageCountInChapter, "", pgNone, " pages in current chapter.")
    CallBox DrawPageCounter(hBox, 100, 400, 0, taLeftJustify, "This is page ", _
        pgPageNumber, " in the document, or page ", pgPageNumberInChapter, _
        " in current chapter.")

    CallBox DrawPageCounter(hBox, 100, 500, 0, taLeftJustify, _
        "If you use a chapter-based page numbering system, this page can be identified as ", _
        pgChapterNumber, "-", pgPageNumberInChapter, ".")
    CallBox TextOut(hBox, 100, 600, _
        "Depending on formatting options, you can number this page in various ways:")
    CallBox TextOut(hBox, 200, 650, "Using fixed-length numbers:")
    CallBox SetPageNumberFormat(hBox, pf001, pf01)
    CallBox DrawPageCounter(hBox, 900, 650, 0, taLeftJustify, "", _
        pgChapterNumber, " - ", pgPageNumberInChapter, "")
    CallBox TextOut(hBox, 200, 700, "Numbering chapters with letters:")
    CallBox SetPageNumberFormat(hBox, pf1, pfUpcaseLetters)
    CallBox DrawPageCounter(hBox, 900, 700, 0, taLeftJustify, "", _
        pgChapterNumber, ".", pgPageNumberInChapter, "")
    CallBox TextOut(hBox, 200, 750, "Numbering chapters with Roman numerals:")
    CallBox SetPageNumberFormat(hBox, pf1, pfUpcaseRoman)
    CallBox DrawPageCounter(hBox, 900, 750, 0, taLeftJustify, "", _
        pgChapterNumber, "-", pgPageNumberInChapter, "")
    CallBox SetPageNumberFormat(hBox, pf1, pf1)

    ' Page 4
    CallBox NewPage(hBox)
    CallBox DrawPageCounter(hBox, 0, 100, PW, taCenter, "[第", pgPageNumber, " 页 共 ", pgPageCount, "页]")
    CallBox DrawPageCounter(hBox, 100, 250, 0, taLeftJustify, "欢迎光临枕善居VB.NET源码博客 http://mndsoft.com ", _
        pgPageNumberInChapter, " of chapter ", pgChapterNumber, ".")

    ' Page 5
    CallBox NewPage(hBox)
    CallBox DrawPageCounter(hBox, 0, 100, PW, taCenter, "[第", pgPageNumber, " 页 共 ", pgPageCount, "页]")
    CallBox TextOut(hBox, 100, 300, "Page counters are useful to manage chapter-based page numbering or to produce a series of independant documents.")
    CallBox EndDoc(hBox)
    SetNum hBox, Box_WantPageCount, 0  ' Don"t keep this option for future runs
End Sub

'2: 写入文本
Private Sub btExample2_Click()
    SetStr hBox, Box_Title, "文件写入示例"
    CallBox BeginDoc(hBox)
    SetNum hBox, Box_FontBold, 1
    SetStr hBox, Box_FontName, "宋体"
    
    CallBox TextOut(hBox, 100, 100, "写入中文测试, 欢迎光临枕善居...")
    
    SetNum hBox, Box_FontBold, 0

    ' Font name
    CallBox TextOut(hBox, 100, 200, "名称:")
    SetStr hBox, Box_FontName, "宋体"
    CallBox TextOut(hBox, 500, 200, "宋体")
    SetStr hBox, Box_FontName, "宋体"
    CallBox TextOut(hBox, 800, 200, "宋体")
    SetStr hBox, Box_FontName, "宋体"
    CallBox TextOut(hBox, 1100, 200, "宋体")
    SetStr hBox, Box_FontName, "宋体"
    CallBox TextOut(hBox, 1400, 200, "宋体")
    SetStr hBox, Box_FontName, "宋体"
    CallBox TextOut(hBox, 1700, 200, "宋体")
    SetStr hBox, Box_FontName, "宋体"

    ' Font size
    CallBox TextOut(hBox, 100, 350, "尺寸:")
    SetNum hBox, Box_FontSize, 8
    CallBox TextOut(hBox, 500, 350, "尺寸 8")
    SetNum hBox, Box_FontSize, 10
    CallBox TextOut(hBox, 800, 350, "尺寸 10")
    SetNum hBox, Box_FontSize, 14
    CallBox TextOut(hBox, 1100, 350, "尺寸 14")
    SetNum hBox, Box_FontSize, 20
    CallBox TextOut(hBox, 1400, 350, "尺寸 20")
    SetNum hBox, Box_FontSize, 30
    CallBox TextOut(hBox, 1700, 350, "尺寸 30")
    SetNum hBox, Box_FontSize, 10

    ' Font color
    CallBox TextOut(hBox, 100, 500, "颜色:")
    SetNum hBox, Box_FontColor, vbBlack
    CallBox TextOut(hBox, 500, 500, "黑色")
    SetNum hBox, Box_FontColor, vbBlue
    CallBox TextOut(hBox, 800, 500, "蓝色")
    SetNum hBox, Box_FontColor, vbRed
    CallBox TextOut(hBox, 1100, 500, "红色")
    SetNum hBox, Box_FontColor, RGB(192, 192, 192)
    CallBox TextOut(hBox, 1400, 500, "银色")
    SetNum hBox, Box_FontColor, RGB(100, 150, 200)
    CallBox TextOut(hBox, 1700, 500, "RGB 100,150,200")
    SetNum hBox, Box_FontColor, vbBlack

    ' Font style
    CallBox TextOut(hBox, 100, 650, "样式:")
    SetNum hBox, Box_FontBold, 1
    CallBox TextOut(hBox, 500, 650, "粗体")
    SetNum hBox, Box_FontBold, 0

    SetNum hBox, Box_FontItalic, 1
    CallBox TextOut(hBox, 800, 650, "斜体")
    SetNum hBox, Box_FontItalic, 0

    SetNum hBox, Box_FontUnderline, 1
    CallBox TextOut(hBox, 1100, 650, "下划线")
    SetNum hBox, Box_FontUnderline, 0

    SetNum hBox, Box_FontStrikeOut, 1
    CallBox TextOut(hBox, 1400, 650, "中间线")

    SetNum hBox, Box_FontBold, 1
    SetNum hBox, Box_FontItalic, 1
    SetNum hBox, Box_FontUnderline, 1
    CallBox TextOut(hBox, 1700, 650, "全部演示")
    SetNum hBox, Box_FontBold, 0
    SetNum hBox, Box_FontItalic, 0
    SetNum hBox, Box_FontUnderline, 0
    SetNum hBox, Box_FontStrikeOut, 0

    ' Character spacing
    CallBox TextOut(hBox, 100, 800, "字符间距:")
    SetNum hBox, Box_CharacterSpacing, 0
    CallBox TextOut(hBox, 500, 800, "间距 0")
    SetNum hBox, Box_CharacterSpacing, 1
    CallBox TextOut(hBox, 800, 800, "间距 1")
    SetNum hBox, Box_CharacterSpacing, 2
    CallBox TextOut(hBox, 1100, 800, "间距 2")
    SetNum hBox, Box_CharacterSpacing, 5
    CallBox TextOut(hBox, 1400, 800, "间距 5")
    SetNum hBox, Box_CharacterSpacing, 10
    CallBox TextOut(hBox, 1700, 800, "间距 10")
    SetNum hBox, Box_CharacterSpacing, 0

    ' Font angle
    CallBox TextOut(hBox, 100, 1100, "角度:")
    SetNum hBox, Box_FontDegreeAngle, 0
    CallBox TextOut(hBox, 500, 1100, "0 度")
    SetNum hBox, Box_FontDegreeAngle, 45
    CallBox TextOut(hBox, 800, 1100, "45 度")
    SetNum hBox, Box_FontDegreeAngle, 90
    CallBox TextOut(hBox, 1100, 1100, "90 度")
    SetNum hBox, Box_FontDegreeAngle, -45
    CallBox TextOut(hBox, 1400, 1100, "-45 度")
    SetNum hBox, Box_FontDegreeAngle, -90
    CallBox TextOut(hBox, 1700, 1100, "-90 度")
    SetNum hBox, Box_FontDegreeAngle, 0

    ' Writing methods
    SetNum hBox, Box_FontItalic, 1
    CallBox TextOut(hBox, 100, 1300, "(继续对下一页)")
    SetNum hBox, Box_FontItalic, 0
    CallBox NewPage(hBox)
    SetNum hBox, Box_FontBold, 1
    CallBox TextOut(hBox, 100, 100, "...然后调用写入方法")
    SetNum hBox, Box_FontBold, 0
    CallBox TextOut(hBox, 200, 200, "'TextOut' 方法是进行单行文本写操作")
    CallBox TextOut(hBox, 200, 250, "'DrawText' 方法是写入多行文本并且可以自定义垂直和水平对齐")

    CallBox Rectangle(hBox, 100, 400, 400, 700)
    CallBox DrawText(hBox, 100, 400, 400, 700, taLeftJustify, vaTop, "该文本演示水平居左对齐和垂直顶部对齐.")
    CallBox Rectangle(hBox, 500, 400, 800, 700)
    CallBox DrawText(hBox, 500, 400, 800, 700, taCenter, vaCenter, "该文本演示水平和垂直居中.")
    CallBox Rectangle(hBox, 900, 400, 1200, 700)
    CallBox DrawText(hBox, 900, 400, 1200, 700, taRightJustify, vaBottom, "该文本演示水平靠右对齐和垂直底部对齐.")
    CallBox Rectangle(hBox, 1300, 400, 1600, 700)
    CallBox DrawText(hBox, 1300, 400, 1600, 700, taLeftJustify, vaBottom, "该文本演示水平居左和垂直底部对齐.")
    CallBox Rectangle(hBox, 1700, 400, 2000, 700)
    CallBox DrawText(hBox, 1700, 400, 2000, 700, taRightJustify, vaTop, "该文本演示水平靠右和垂直顶部对齐.")

    ' Orientation
    SetNum hBox, Box_FontItalic, 1
    CallBox TextOut(hBox, 100, 900, "(继续对下一页)")
    SetNum hBox, Box_FontItalic, 0
    CallBox NewSection(hBox, poLandscape, 0)
    SetNum hBox, Box_FontBold, 1
    CallBox TextOut(hBox, 100, 100, "文件显示方向[横向显示]")
    SetNum hBox, Box_FontBold, 0
    CallBox TextOut(hBox, 200, 200, "首先, 你可以选择文档的'Orientation'属性设置显示方式之后再打开文件.")
    CallBox TextOut(hBox, 200, 250, "然后, 在 'NewSection' 方法里允许改变方向.")
    CallBox EndDoc(hBox)

End Sub


'3: 插入图片
Private Sub btExample3_Click()
    SetStr hBox, Box_Title, "插入图片示例"
    CallBox BeginDoc(hBox)
    SetStr hBox, Box_FontName, "宋体"
    SetNum hBox, Box_FontBold, True
    CallBox TextOut(hBox, 100, 100, " 'Draw' 方法是在文档中插入一个像素的图片")
    SetNum hBox, Box_FontBold, False

    ' Application icon (retrieved from memory)
    SetNum hBox, Box_ImageCompressMode, cpZlib
    CallBox TextOut(hBox, 100, 200, "这个图片使用压缩 Zlib:")
    CallBox Draw(hBox, 100, 250, Me.Icon.Handle)

    ' Draw product logo (retrieved from disk)
    SetNum hBox, Box_ImageCompressMode, cpJpeg
    SetNum hBox, Box_JpegQuality, 80
    CallBox TextOut(hBox, 100, 400, "这个图片使用压缩 JPEG:")