You are not logged in.

A1880

Intermediate

  • "A1880" is male
  • "A1880" started this thread

Posts: 500

Date of registration: Jan 1st 2009

Location: Hanover, Germany

Occupation: Software Engineer

Hobbies: Hilbert Curves

  • Send private message

1

Saturday, September 5th 2009, 11:27pm

Resize

Hi,
the "Form_Resize" handler is only called once at the end of a form resize operation. Therefore, there is no direct way to resize dynamically following the mouse-drag right away.

Any ideas how to get more resize calls and not just one?

Greetings

A1880

klctal

Trainee

  • "klctal" is male

Posts: 70

Date of registration: Jul 13th 2009

Location: Shanghai

Hobbies: Developing software

  • Send private message

2

Sunday, September 6th 2009, 1:11pm

How about Form_MouseDown, Form_MouseMove and MouseUp? They might work...
:D

A1880

Intermediate

  • "A1880" is male
  • "A1880" started this thread

Posts: 500

Date of registration: Jan 1st 2009

Location: Hanover, Germany

Occupation: Software Engineer

Hobbies: Hilbert Curves

  • Send private message

3

Sunday, September 6th 2009, 3:38pm

These events are only triggered if the cursor is inside the Form window.
They are not called during or at the end of a resize.

Greetings

A1880

klctal

Trainee

  • "klctal" is male

Posts: 70

Date of registration: Jul 13th 2009

Location: Shanghai

Hobbies: Developing software

  • Send private message

4

Monday, September 7th 2009, 11:33am

Maybe we can test where the cursor is. If it's on the border of the form and DragForm is true (set a boolean DragForm in public, when mousedown on border set it to true) then resize it. That's my nearest guess (I can't say it as an idea)
:D

emil

Beginner

  • "emil" is male

Posts: 7

Date of registration: Jul 7th 2011

Location: Staßfurt,Germany

  • Send private message

5

Saturday, July 9th 2011, 12:51am

Funny Workaround for Form_Resize

Source code

 
1
2
3
4
5
6
7
8
9
10
11
12
13

Public Sub Timer1_Timer()   'Interval=1000
   Widht1=CLng(Form1.Width)
   If Widht2 <> Widht1 Then
  	Form_serize 
  	Widht2=CLng(Form1.Width)  
   End If
End Sub

Public Sub Form_serize()
   frmCSV.Width=clng(Form1.Width)-23
   Tabelle.Width=frmCSV.Width-16
   'and other things that should be done on resize
End Sub

:D :thumbsup: 8o

Similar threads

Rate this thread
WoltLab Burning Board