ｿｽ@ ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ

ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO

ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++

ｿｽﾖ連ｿｽTｿｽCｿｽg

ｿｽEpapy's softwarelibrary

ｿｽaｿｽL 2003/03/11(ｿｽｿｽ) 19:16:37

ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾇ、VB.NET(VB6.0ｿｽﾅゑｿｽｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽｿｽ)ｿｽｿｽPDFｿｽﾌサｿｽｿｽｿｽlｿｽ[ｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽ{ｿｽ^ｿｽｿｽｿｽｿｽﾂで切ゑｿｽﾖゑｿｽｿｽｿｽｿｽｿｽ@ｿｽ調べゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
PDFｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽﾛに、openflgsｿｽﾌ値ｿｽｿｽﾏゑｿｽｿｽﾄ表ｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾏゑｿｽｿｽｿｽﾌはわかｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽopenflgsｿｽﾌ値ｿｽﾌ変ゑｿｽｿｽｿｽｿｽｿｽｿｽかｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽﾇなゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH

ｿｽﾆゑｿｽ 2003/03/12(ｿｽｿｽ) 11:09:03

ｿｽ{ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ、ｿｽTｿｽｿｽｿｽlｿｽ[ｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽﾋ。

ｿｽｿｽｿｽAｿｽﾇのようｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽが、
Acrobat.CAcroApp ｿｽｿｽ Acrobat.CAcroAVDoc ｿｽｿｽgｿｽpｿｽｿｽｿｽﾄ表ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌなゑｿｽﾎ、
    Private Sub Command_Click()
        'Const PDUseThumbs = 2
        AcroAVDoc.SetViewMode(PDUseThumbs)
    End Sub
ｿｽﾅでゑｿｽｿｽﾜゑｿｽｿｽｿｽB

#AcroAVDoc As Acrobat.CAcroAVDoc

B' 2003/03/12(ｿｽｿｽ) 13:53:30

ｿｽﾆろさｿｽありがｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾟゑｿｽｿｽﾄみゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽBｿｽｿｽｿｽﾟゑｿｽｿｽﾉ、GetViewModeｿｽﾅ値ｿｽｿｽ謫ｾｿｽｿｽｿｽﾄみゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽTｿｽｿｽｿｽlｿｽ[ｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾅフｿｽ@ｿｽCｿｽｿｽｿｽｿｽJｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾍ、ｿｽlｿｽｿｽ1ｿｽﾉなゑｿｽSetｿｽﾅ変更ｿｽｿｽｿｽﾄゑｿｽAｿｽけ付ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽBｿｽTｿｽｿｽｿｽlｿｽ[ｿｽｿｽｿｽ¥ｿｽｿｽｿｽﾌ切ゑｿｽﾖゑｿｽｿｽﾆゆうｿｽｿｽｿｽﾍ、ｿｽｿｽﾊゑｿｽｿｽｿｽTｿｽｿｽｿｽlｿｽ[ｿｽｿｽｿｽ竄ｵｿｽｿｽｿｽｿｽﾌタｿｽOｿｽｿｽﾆゑｿｽﾍゑｿｽｿｽｿｽｿｽﾄ、ｿｽyｿｽ[ｿｽWｿｽPｿｽﾊの表ｿｽｿｽｿｽﾉ切ゑｿｽﾖゑｿｽｿｽｿｽﾆゆうｿｽｿｽｿｽｿｽｿｽﾈのでゑｿｽｿｽｿｽｿｽB
 'Const AV_DOC_VIEW = 4
 'Const AV_PAGE_VIEW = 2
ｿｽｿｽｿｽﾍ、ｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽJｿｽｿｽｿｽﾆゑｿｽｿｽAopenflgsｿｽﾌ値ｿｽｿｽAV_DOC_VIEWｿｽｿｽAV_PAGE_VIEWｿｽﾅ変更ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽかｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽAｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽﾆゑｿｽ 2003/03/12(ｿｽｿｽ) 15:32:25

ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽｿｽ閧ｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽが、
ｿｽｿｽｿｽﾍどのようｿｽﾉゑｿｽｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽｿｽRｿｽ[ｿｽhｿｽｿｽﾚゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB

B' 2003/03/12(ｿｽｿｽ) 16:40:30

 Public AcroExchAVDoc() As Acrobat.CAcroAVDoc

Sub OpenFile()
 Dim ok As Object
 Dim fIndex As Short
 Dim filename as string

fIndex = 1
filename = c:¥acrobat¥aaa.pdf

  'open the selected file
    AcroExchAVDoc(fIndex) = CreateObject("AcroExch.AVDoc")
  'ｿｽ鞫懶ｿｽ¥ｿｽｿｽ
  'Const AV_DOC_VIEW = 2
  'Const AV_PAGE_VIEW = 4
    If check = 1 Then 'ｿｽTｿｽｿｽｿｽlｿｽ[ｿｽｿｽｿｽ¥ｿｽｿｽ
    ｿｽ@ｿｽ@ok = AcroExchAVDoc(fIndex).OpenInWindowEx(Filename, ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@form1.DefInstance.Panel1.Handle.ToInt32, AV_DOC_VIEW, ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@ｿｽ@True,0,PDUseNone, 1, 0, 0, 0)
    ElseIf check = 0 Then 'ｿｽﾊ擾ｿｽ
     ｿｽ@ ok = AcroExchAVDoc(fIndex).OpenInWindowEx(Filename,
             form1.DefInstance.Panel1.Handle.ToInt32, AV_PAGE_VIEW, 
             True, 0, PDUseBookmarks, 1, 0, 0, 0)
    End If
end sub

ｿｽﾆゆうｿｽｿｽｿｽｿｽｿｽﾅフｿｽ@ｿｽCｿｽｿｽｿｽｿｽJｿｽｿｽｿｽﾆゑｿｽｿｽｿｽopenflgs(AV_DOC_VIEWｿｽﾌ包ｿｽｿｽｿｽ)ｿｽﾌ値ｿｽｿｽﾏゑｿｽｿｽﾄ表ｿｽｿｽｿｽｿｽﾏ更ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽJｿｽｿｽｿｽﾆゑｿｽｿｽﾅなゑｿｽｿｽﾄボｿｽ^ｿｽｿｽｿｽｿｽﾂで切ゑｿｽﾖゑｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽﾆゑｿｽ 2003/03/12(ｿｽｿｽ) 17:27:56

ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾈゑｿｽｿｽﾌゑｿｽｿｽﾈ？
# ｿｽﾜゑｿｽｿｽｿｽｿｽﾟに、
# Adobe Acrobat ｿｽﾍイｿｽｿｽｿｽXｿｽgｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽﾄまゑｿｽｿｽｿｽｿｽH
# AVDoc ｿｽｿｽ CreateObject ｿｽﾅゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾆは、
# ｿｽCｿｽｿｽｿｽXｿｽgｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾆは思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

ｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽﾉボｿｽ^ｿｽｿｽｿｽｿｽRｿｽﾂ配ｿｽuｿｽｿｽｿｽﾄ、
ｿｽｿｽｿｽﾌコｿｽ[ｿｽhｿｽｿｽ¥ｿｽｿｽtｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽsｿｽｿｽｿｽﾄ会ｿｽｿｽｿｽｿｽｿｽｿｽB

Option Explicit
Private AcroApp   As Object 'Acrobat.CAcroApp
Private AcroAVDoc As Object 'Acrobat.CAcroAVDoc
Private AcroPDDoc As Object 'Acrobat.CAcroPDDoc
Private bRetValue As Boolean
Private Const PDUseThumbs = 2
Private Const PDUseNone = 1
Private Sub Command1_Click()
  Dim filename        As String
  filename = "c:¥a.pdf"
  
  Set AcroApp = CreateObject("AcroExch.App")
  bRetValue = AcroApp.Show
  If bRetValue = False Then MsgBox "ERROR"
  
  Set AcroPDDoc = CreateObject("AcroExch.PDDoc")
  bRetValue = AcroPDDoc.Open(filename)
  If bRetValue = False Then MsgBox "ERROR"
  
  Set AcroAVDoc = AcroPDDoc.OpenAVDoc("")
End Sub
Private Sub Command2_Click()
  '* ｿｽTｿｽｿｽｿｽlｿｽ[ｿｽｿｽｿｽ¥ｿｽｿｽ
  bRetValue = AcroAVDoc.SetViewMode(PDUseThumbs)
End Sub
Private Sub Command3_Click()
  '* ｿｽTｿｽｿｽｿｽlｿｽ[ｿｽｿｽｿｽｿｽ¥ｿｽｿｽ
  bRetValue = AcroAVDoc.SetViewMode(PDUseNone)
End Sub
Private Sub Form_Load()
  Command1.Caption = "Acrobat ｿｽNｿｽｿｽ"
  Command2.Caption = "ｿｽTｿｽｿｽｿｽlｿｽ[ｿｽｿｽｿｽ¥ｿｽｿｽ"
  Command3.Caption = "ｿｽTｿｽｿｽｿｽlｿｽ[ｿｽｿｽｿｽｿｽ¥ｿｽｿｽ"
End Sub

B' 2003/03/12(ｿｽｿｽ) 18:49:45

Acrobat4.0ｿｽｿｽSDKｿｽｿｽgｿｽpｿｽｿｽｿｽAVBｿｽﾌパｿｽlｿｽｿｽｿｽｿｽPDFｿｽ鞫懶ｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾊ擾ｿｽｿｽAcrobatｿｽﾌようｿｽﾉ搾ｿｽｿｽｿｽｿｽﾉサｿｽｿｽｿｽlｿｽ[ｿｽｿｽｿｽｿｽJｿｽｿｽｿｽﾄ表ｿｽｿｽ/ｿｽﾂゑｿｽｿｽﾄ表ｿｽｿｽ(ｿｽ^ｿｽOｿｽﾌみ鯉ｿｽｿｽｿｽｿｽｿｽｿｽﾔ）ｿｽﾅの変更ｿｽﾍとろさｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽﾅでゑｿｽｿｽｿｽ謔､ｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

ｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾄはサｿｽｿｽｿｽlｿｽ[ｿｽｿｽｿｽｿｽSｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽﾔ（Acrobatｿｽﾌ右ｿｽpｿｽlｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌみ）ｿｽﾆサｿｽｿｽｿｽlｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽ+ｿｽ鞫懶ｿｽｿｽｿｽｿｽｿｽiAcrobatｿｽﾌ搾ｿｽｿｽEｿｽｿｽｿｽpｿｽlｿｽｿｽｿｽjｿｽｿｽ2ｿｽｿｽﾞの表ｿｽｿｽｿｽｿｽlｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
 ok = AcroExchAVDoc(fIndex).OpenInWindowEx(Filename,
             form1.DefInstance.Panel1.Handle.ToInt32, AV_PAGE_VIEW, 
             True, 0, PDUseNone, 1, 0, 0, 0)
ｿｽｿｽｿｽﾌ関撰ｿｽｿｽｿｽtｿｽ@ｿｽCｿｽｿｽｿｽIｿｽ[ｿｽvｿｽｿｽｿｽｿｽｿｽﾉ使ｿｽpｿｽｿｽｿｽAｿｽｿｽ3ｿｽｿｽｿｽｿｽｿｽｿｽﾏ更ｿｽｿｽｿｽｿｽﾆ、ｿｽVｿｽKｿｽIｿｽ[ｿｽvｿｽｿｽｿｽｿｽｿｽﾉは変更ｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽ¥ｿｽｿｽｿｽｿｽｿｽﾉ擾ｿｽLｿｽﾌようｿｽﾈ変更ｿｽｿｽsｿｽｿｽｿｽｿｽｿｽｿｽｿｽ鼾ｿｽﾉは、ｿｽｿｽｿｽｿｽｿｽxｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽJｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽﾎなゑｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽHｿｽｿｽ3ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ変更ｿｽﾌみ行ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽmｿｽﾅゑｿｽｿｽｿｽｿｽ轤ｨｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB

Created by board of various Programming Library.