List 7-46　FormPageSettingフォームのGetPageプロシージャ，BTN_OK_Clickプロシージャ，BTN_CANCEL_Clickプロシージャ

---

  1： Private bButton As Boolean
  2： 
  3： Public Function GetPage(ByRef fromPage As Long, _
   　                         ByRef toPage As Long, _
   　                         ByRef bAll As Boolean) As Boolean
  4：     ' フォームを表示し，ユーザーが入力した値を返す
  5：     ' 【引数】
  6：     '   fromPage = TXT_FROMテキストボックスに初期状態で表示する値
  7：     '              関数から戻ったときにはユーザーがTXT_FROMテキストボックスで
  8：     '              入力した値が戻る
  9：     '   toPage = 設定できる最大ページ番号
 10：     '            関数から戻ったときにはユーザーがTXT_TOテキストボックスで入力した
 11：     '            値が戻る
 12：     '   bAll = 関数から戻ったときにユーザーが［すべてのページ］を選択したときには
 13：     '          True，そうでなければFalseが戻る
 14：     ' 【戻り値】
 15：     ' ユーザーが［OK］ボタンを押してフォームを閉じたならばTrue，そうでなければFalse
 16：     
 17：     ' フォームを表示する
 18：     UPDOWN_FROM.Min = 1
 19：     UPDOWN_FROM.Max = toPage
 20：     UPDOWN_FROM.Value = fromPage
 21：     UPDOWN_TO.Min = 1
 22：     UPDOWN_TO.Max = toPage
 23：     UPDOWN_TO.Value = toPage
 24：     OPT_ALL.Value = True
 25：     bButton = False
 26：     Me.Show 1
 27：     
 28：     If OPT_ALL.Value = True Then
 29：         ' すべてのページ
 30：         bAll = True
 31：     Else
 32：         ' 一部のページ
 33：         bAll = False
 34：         fromPage = TXT_FROM.Text
 35：         toPage = TXT_TO.Text
 36：     End If
 37：     
 38：     GetPage = bButton
 39： End Function
 40： 
 41： Private Sub BTN_CANCEL_Click()
 42：     ' ［キャンセル］ボタンが押されたときの処理
 43：     bButton = False
 44：     Me.Hide
 45： End Sub
 46： 
 47： Private Sub BTN_OK_Click()
 48：     ' ［OK］ボタンが押されたときの処理
 49：     
 50：     If Not IsNumeric(TXT_FROM.Text) Then
 51：         MsgBox "開始ページが不正です", vbOKOnly, "ページ設定エラー"
 52：         Exit Sub
 53：     End If
 54：     If Not IsNumeric(TXT_TO.Text) Then
 55：         MsgBox "終了ページが不正です", vbOKOnly, "ページ設定エラー"
 56：         Exit Sub
 57：     End If
 58：     bButton = True
 59：     Me.Hide
 60： End Sub