List 7-48　FormPageSettingフォームのOPT_ALL_ClickプロシージャとOPT_SELECT_Clickプロシージャ

---

  1： Private Sub OPT_ALL_Click()
  2：     ' すべてのページが選択されたとき
  3：     ' ページ入力のテキストボックスを淡色表示にする
  4：     TXT_FROM.Enabled = False
  5：     TXT_TO.Enabled = False
  6： End Sub
  7： 
  8： Private Sub OPT_SELECT_Click()
  9：     ' 以下のページのみが選択されたとき
 10：     ' ページ入力のテキストボックスをもとに戻す
 11：     TXT_FROM.Enabled = True
 12：     TXT_TO.Enabled = True
 13： End Sub