List 7-108　FormStockフォームのBTN_FILTER_Clickプロシージャ

---

  1： Private Sub BTN_FILTER_Click()
  2：     ' ［絞り込み設定］ボタンが押されたときの処理
  3：     If FormStockFilter.SetFilter(g_FilterFlag, _
   　                                  g_startDate, _
   　                                  g_endDate, _
   　                                  g_startDueDate, _
   　                                  g_endDueDate) Then
  4：         ' ユーザーが絞り込みの設定において［OK］ボタンを押した
  5：         ' このとき、［絞り込み］のチェックボックスにチェックを付ける
  6：         ' 一旦、0に設定してから1に設定するのは、CHK_FILTERチェックボックスの
  7：         ' Clickイベントを発生させたいから
  8：         CHK_FILTER.Value = 0
  9：         CHK_FILTER.Value = 1
 10：     End If
 11： End Sub