Solved

Resize cancel

Posted on 1998-08-06
3
195 Views
Last Modified: 2010-05-03
I have written some code that when a form gets resized by the user, the controls on it are reorganized.
If the form gets to small that I can't reorganize the controls anymore I want to cancel the resize operation.
Is there anyone who knows how to cancel this operation?
0
Comment
Question by:ndb
  • 2
3 Comments
 
LVL 2

Expert Comment

by:swilt
ID: 1468096
This is a bit flickery, but it works

Private Sub Form_Resize()
   Static nWidth As Long, nHeight As Long
   
    If Me.Width < 3000 Or Me.Height < 3000 Then
        Me.Width = nWidth
        Me.Height = nHeight
    Else
        nWidth = Me.Width
        nHeight = Me.Height
    End If
End Sub
0
 
LVL 1

Author Comment

by:ndb
ID: 1468097
This doen't work. If I resize the form and come under the size I've sayd then the form stays at that size. 'till here it works but if the user continues resizing the form then he/she gets an error.
0
 
LVL 2

Accepted Solution

by:
swilt earned 50 total points
ID: 1468098
I could not reproduce any errors, try the following code.
Which line of code causes the error and what is the error

Private Sub Form_Resize()
    On Error Resume Next
   
    Static nWidth As Long, nHeight As Long
     
    If Me.Width < 3000 Or Me.Height < 3000 Then
        Me.Width = nWidth
        Me.Height = nHeight
    Else
        nWidth = Me.Width
        nHeight = Me.Height
    End If
End Sub

0

Featured Post

ScreenConnect 6.0 Free Trial

Want empowering updates? You're in the right place! Discover new features in ScreenConnect 6.0, based on partner feedback, to keep you business operating smoothly and optimally (the way it should be). Explore all of the extras and enhancements for yourself!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

I was working on a PowerPoint add-in the other day and a client asked me "can you implement a feature which processes a chart when it's pasted into a slide from another deck?". It got me wondering how to hook into built-in ribbon events in Office.
Since upgrading to Office 2013 or higher installing the Smart Indenter addin will fail. This article will explain how to install it so it will work regardless of the Office version installed.
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…

772 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question