FormのResizeイベント
'---------- フォームのサイズが変更された時 ---------- Private Sub Form_Resize() ' Debug.Print "Height" & frmmain.Height ' Debug.Print "Width" & frmmain.Width '########## 最小化の場合 ########## If frmmain.WindowState = 1 Then Exit Sub End If '########## 幅方向の調整 ########## frmmain.ListDir.Left = 150 frmmain.ListDir.Width = frmmain.Width - 400 frmmain.CmdAddList.Left = frmmain.Width - 2700 frmmain.CmdEditList.Left = frmmain.Width - 1850 frmmain.CmdDelList.Left = frmmain.Width - 1000 frmmain.CmdExecute.Left = frmmain.Width - 1000 frmmain.TabMain.Width = frmmain.Width - 1400 '########## 高さ方向の調整 ########## If frmmain.Height > 4300 Then frmmain.ListDir.Height = frmmain.Height - 4300 frmmain.CmdAddList.Top = frmmain.Height - 4100 frmmain.CmdEditList.Top = frmmain.Height - 4100 frmmain.CmdDelList.Top = frmmain.Height - 4100 frmmain.CmdExecute.Top = frmmain.Height - 1300 frmmain.TabMain.Top = frmmain.Height - 3550 Else End If End Sub