List 7-171 FormPrintPreviewフォームのSetTitle2プロシージャ


  1: Private g_FLXGrid As MSHFlexGrid
  2: Private g_TitleFrame As Frame
  3: 
  4: Public Sub SetTitle2(ByRef titleFrame As Frame, _
                          ByRef FLXGrid As MSHFlexGrid)
  5:     ' 表示すべきデータを設定する
  6:     Set g_TitleFrame = titleFrame
  7:     Set g_DGrid = Nothing
  8:     Set g_FLXGrid = FLXGrid
  9: End Sub