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

		

---

<戻る>

楽天モバイル[UNLIMITが今なら1円] ECナビでポインと Yahoo 楽天 LINEがデータ消費ゼロで月額500円〜！

無料ホームページ 無料のクレジットカード 海外格安航空券 解約手数料０円【あしたでんき】 海外旅行保険が無料！ 海外ホテル