[VB6] Sfarfallio del form ridimensionandolo al di sotto dei limiti consentiti

[meronet]

Ciao a tutti
Sto modificando in parte un programma non fatto da me
in Visual Basic ed ha un poblema di sfarfallio..
quali ossono essere le cause !!!

[oregon]

Magari se ci indichi il codice ...

[meronet]

Lo sfarfalio capita quando !!!

L' interfaccia del programma non puo essere minore di un width e di un height
quindi con il mouse se vado al di sotto di queste misure mi da sfarlallio...

[oregon]

Originariamente inviato da meronet
Lo sfarfalio capita quando !!!

L' interfaccia del programma non puo essere minore di un width e di un height
quindi con il mouse se vado al di sotto di queste misure mi da sfarlallio...

Ma che stai dicendo?

[meronet]

scusami per le imprecisioni

La schermata del programma non puo divenire piu piccola di un width e di un height
e se con il mouse trascino il bordo ad un ridimensionamento inferiore
mi da questo sfarfalio....
pensavo di bloccare il mouse verso quella direzione.....

[oregon]

Mostra il codice ...

[meronet]

Dim scala As Integer

scala = Me.Width
If Me.ScaleX(scala, 1, 3) < 800 And (Me.WindowState <> vbMinimized) Then
Me.Width = Me.ScaleX(800, 3, 1)
Me.Left = (ScaleX(getAreaSchermo, 3, 1) - Me.Width) / 2
End If

scala = Me.Height
If Me.ScaleY(scala, 1, 3) < 300 And (Me.WindowState <> vbMinimized) Then
Me.Height = Me.ScaleY(300, 3, 1)
End If
--------------------------------------------------------------------------------

Public Function getAreaSchermo() As Long
'routine per controllare le dimensioni dello schermo
Dim tRect As RECT
Dim retval As Long

' Retrieve the screen's working area size (i.e. the portion of
' the screen not obscured by he taskbar or other appbars).


retval = SystemParametersInfo(SPI_GETWORKAREA, vbNull, tRect, 0)

With tRect
getAreaSchermo = .Right

End With
End Function

[oregon]

Ma il primo codice dov'e' inserito?

[meronet]

nell' evento resize del form

[meronet]

sto provando questa soluzione ma non mi fa nesun effetto

inserisco un modulo con qusto codice

Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long

Public Sub DisableTrap(CurForm As Form)
Dim erg As Long
Dim NewRect As RECT
With NewRect
.Left = 0&
.Top = 0&
.Right = Screen.Width / Screen.TwipsPerPixelX
.Bottom = Screen.Height / Screen.TwipsPerPixelY
End With
erg& = ClipCursor(NewRect)
End Sub


Public Sub EnableTrap(CurForm As Form, LimAlt As Integer, LimLarg As Integer)
Dim X As Long, Y As Long, erg As Long
Dim NewRect As RECT

X& = Screen.TwipsPerPixelX
Y& = Screen.TwipsPerPixelY

Alto = CurForm.Top + LimAlt
sinistra = CurForm.Left + LimLarg
Larghezza = Screen.Width - CurForm.Left + LimLarg
Altezza = Screen.Height - CurForm.Top + LimAlt

With NewRect
.Left = sinistra / X&
.Top = Alto / Y&
.Right = Larghezza / X&
.Bottom = Altezza / Y&
End With
erg& = ClipCursor(NewRect)
End Sub




e nel form_resize non so cosa scrivere

ho provato cosi ....


If Me.ScaleX(scala, 1, 3) < 800 And (Me.WindowState <> vbMinimized) Then
EnableTrap Me, Me.Height + 10, Me.Width + 10
' Me.Width = Me.ScaleX(800, 3, 1)
' Me.Left = (ScaleX(getAreaSchermo, 3, 1) - Me.Width) / 2

Else
DisableTrap Me
End If

scala = Me.Height
If Me.ScaleY(scala, 1, 3) < 300 And (Me.WindowState <> vbMinimized) Then
EnableTrap Me, Me.Height + 10, Me.Width + 10
' Me.Height = Me.ScaleY(300, 3, 1)


' Else
DisableTrap Me
End If


ma non mi da nessun effeto


vorrei disabilitare il mouse per 3 secondi