Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: Visual Basic
Expertise: Beginner
Aug 6, 1997



Building the Right Environment to Support AI, Machine Learning and Deep Learning

Enforce Design-Time Size for MDI Forms

Because MDI forms don't have a border property, the user can drag the borders and distort the size of the MDI form. If the user tries to resize the form, I want the form to revert to its design-time size. To accomplish this, use this procedure for the MDIForm_Resize() event:
Private Sub MDIForm_Resize()
        ' Stop resizing of MDI forms by 
        ' dragging borders and reposition 
        ' the MDI form. Only do this if the 
        ' MDI form is displayed as a Normal 
        ' Window
        If WindowState = 0 Then
                ' Your MDI form's design height
                Me.Height = 6900
                ' Your MDI form's design width
                Me.Width = 10128
                ' Your MDI form's design left 
                ' position
                Me.Left = 1020
                ' Your MDI form's design top 
                ' position
                Me.Top = 1176
                ' You may also use a Move method 
                ' to change all properties in one 
                ' single command
        End If
End Sub
Joseph J.
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date