OVH Cloud OVH Cloud

Resize

1 réponse
Avatar
christian
Salut =E0 tous,
Quelqu'un aurait-il une meilleure id=E9e pour empecher=20
un redimentionnement inf=E9rieur =E0 une certaine valeur que:

Private Sub MDIForm_Resize()
if Me.widght < 10000 then Me.widght =3D 10000
if Me.height < 8000 then Me.height =3D 8000
end sub

(C'est pas joli l'=E9cran vibre!)

Merci d'avance,
A+ Christian

1 réponse

Avatar
François Picalausa
"christian" a écrit dans le
message de news:009501c3ab98$82b84940$
Quelqu'un aurait-il une meilleure idée pour empecher
un redimentionnement inférieur à une certaine valeur que:

Private Sub MDIForm_Resize()
if Me.widght < 10000 then Me.widght = 10000
if Me.height < 8000 then Me.height = 8000
end sub



Bonjour/soir,

voir la faq:
http://faq.vb.free.fr/index.php?questionT

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com