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