Tasti di sistema form

[piter123]

Buongiorno, come faccio su una form di vbe a far apparire i tasti di sistema riduci a icona e ripristina ?
Ho un command buttom con funzione form.show che apre la form, esiste un controllo che faccia aprire solo una volta la form ?
Grazie

[Anthony47]

Qualcuno lo fa, vedi ad esempio vedi FormFun.zip su http://www.bmsltd.co.uk/Excel/Default.htm
Io mi sono accontentato di molto meno, cioe:
-sulla form, in alto a sx, disegno un Interruttore (ToogleButton), con la descrizione (proprieta' Caption) "Min/Max"; poi uso il seguente codice

Codice: Seleziona tutto

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
'  Riduci
Me.Height = 50
Me.Width = 50
Me.Top = Application.Top + Application.Height - Me.Height
Me.Left = Application.Left + Application.Width - Me.Width
Else
'  Ingrandisci
Me.Height = 200
Me.Width = 300
Me.Top = 250
Me.Left = 400
End If
End Sub

In questo modo, premendo il tooglebutton la form si riduce spostandosi in basso a dx e si ingrandisce tornando al centro. Setta Top, Left, Height e Width in modo da avere la form posizionata correttamente (o usa delle variabili globali per memorizzare il valore di queste grandezze all' apertura della form, e poi ripristinarle).

Per la seconda domanda, io gestirei l' apertura (riapertura) della form tramite una variabile che metti a 1 quando attivi la form (es con una Sub UserForm_Activate()) e azzeri quando la termini (Sub UserForm_Terminate())

Ciao.

[piter123]

gazie mille, ora farò delle prove