PDFのサムネール表示をボタン一つで切り替えるには？ (ID:77369)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 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 'サムネール表示 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 とゆう感じでファイルを開くときにopenflgs(AV_DOC_VIEWの部分)の値を変えて表示を変更しているのですが、これをファイルを開くときでなくてボタン一つで切り替えたいです。 よろしくお願いします。