[VB6] Impedire riduzione form

[Petra]

Ho un programmino in vb6 in cui devo impedire la riduzione della larghezza e dell'altezza di tutti i form entro dei limiti preimpostati da me, come da esempio postato sotto...

Sorgente

...includo il codice all'interno del mio programmino, ma in run-time mi esce da vb6.

Qualcuno conosce una sorgente simile, ma funzionante ?!

[Petra]

[yyzyyz]

ti posto un esempio sperando di aver capito il tuo problema.

Dim max_x, max_y As Integer
Private Sub Form_Load()
max_x = 6000
max_y = 5000
End Sub

Private Sub Form_Resize()
If Form1.Height >= max_y Then
    Form1.Height = max_y
End If
If Form1.Width >= max_x Then
    Form1.Width = max_x
End If
End Sub

[=tW=]

se no puoi usare il metodo

Form1.WindowState = vbMaximized

così ti eviti routines varie. magari lo metti nel form_resize, così non hai problemi

[basy82]

Ciao..
Scusa ma se usi la proprietà MaxButton del form non fai prima?

Praticamente lo metti a false...direttamente in progettazione e l'utente non ha la possibilità di ingrandire il form..

Poi se smanetti sempre nelle proprietà del form..se non ricordo male..dovrebbe esserci anke qlcs che disabilita la possibilità di ridimensionare il form manualmente..

[=tW=]

come dice basy82, anche quello è vero. ma se togli il pulsante a mio avviso rovini la grafica del form...anche perchè se vuoi chiuderlo e ridimensionarlo a icona, è brutto avere uno spazio invisibile in mezzo ai due tasti