List 7-201 FormBillDetailフォームのForm_Resizeプロシージャ


  1: Private Sub Form_Resize()
  2:     ' ウィンドウサイズが変更されたときの処理
  3:     On Error Resume Next
  4:     
  5:     FRAME_NAVI.Top = 0
  6:     FRAME_NAVI.Left = 0
  7:     FRAME_NAVI.Width = FormBillDetail.ScaleWidth
  8:     
  9:     FRAME_BILL.Top = FRAME_NAVI.Height
 10:     FRAME_BILL.Left = 0
 11:     FRAME_BILL.Width = FormBillDetail.ScaleWidth
 12:     
 13:     FLXGrid_SlipDetail.Left = 0
 14:     FLXGrid_SlipDetail.Top = FRAME_BILL.Height + FRAME_BILL.Top
 15:     FLXGrid_SlipDetail.Height = FormBillDetail.ScaleHeight - FLXGrid_SlipDetail.Top
 16:     FLXGrid_SlipDetail.Width = FormBillDetail.ScaleWidth
 17: End Sub