Creazione guida incorporata nel form con ridimensionamento/spostamento

[zorro77]

Salve a tutti
vorrei realizzare per la mia applicazione scritta in VB6, una specie di Help, in modo da dare all'utente idea di cosa significano i campi che va a riempire.
Vorrei realizzare l'help in questo modo, che quando clicco su un apposito bottone, mi si apre una striscia aggiuntiva della mia form corrente (in modo che se sposto la form si muove tutta la form compresa dell'help) dove c'è una breve descrizione, e quando poi riclicco lo stesso bottone, la mia form ritona della dimensione originale.
E' possibile realizzare ciò?se si come posso fare?
Ringrazio tutti per le info

[Boolean]

non troppo difficile...

metti su un form un Frame e un CommandButton, poi copia questo codice:

Dim Expanded As Boolean

Private Sub Command1_Click()

If Not Expanded Then
    Expanded = True
    Command1.Caption = "Chiudi Help"
    Me.Width = Me.Width + Frame1.Width + 150
Else
    Expanded = False
    Command1.Caption = "Apri Help"
    Me.Width = Me.Width - Frame1.Width - 150
End If

End Sub

Private Sub Form_Load()

Me.Width = 8085
Me.Height = 6255
Frame1.Width = 3240
Frame1.Height = Me.ScaleHeight - 300
Frame1.Left = Me.ScaleWidth - Frame1.Width - 150
Frame1.Top = (Me.ScaleHeight - Frame1.Height) / 2
Expanded = False
Me.Width = Me.Width - Frame1.Width - 150
Command1.Move Me.ScaleWidth - Command1.Width - 150, Me.ScaleHeight - Command1.Height - 150
Command1.Caption = "Apri Help"

End Sub

Private Sub Form_Resize()
If Me.WindowState = 2 Then
    Me.WindowState = 0
    Me.Move 0, 0, Screen.Width, Screen.Height - 430
End If

Frame1.Width = 3240
Frame1.Height = Me.ScaleHeight - 300
Frame1.Top = (Me.ScaleHeight - Frame1.Height) / 2

If Expanded Then
    Frame1.Left = Me.ScaleWidth - Frame1.Width - 150
    Command1.Move Me.ScaleWidth - Command1.Width - Frame1.Width - 300, Me.ScaleHeight - Command1.Height - 150
Else
    Frame1.Left = Me.ScaleWidth
    Command1.Move Me.ScaleWidth - Command1.Width - 150, Me.ScaleHeight - Command1.Height - 150
End If

End Sub

ovviamente non è perfetto, soprattutto se hai intenzione di mantenere il form massimizzato... ma è un inizio

Boolean

[zorro77]

grazie mille
provo e faccio sapere
altra domanda, è possibile, avendo una form non ridimensionabile, poterla chiudere tenedola nella systemtry? ovvero avendo come bottoni in alto a destra della form solo la 'x' e '_', senza però possibilità di cambiare le dimensioni della form

[Boolean]

per evitare che la finestra sia ridimensionabile puoi impostare la proprietà BorderStyle = FixedSingle.

questa operazione disabilita anche il pulsante per minimizzare e per massimizzare la finestra, ma se a te interessa poterlo minimizzare, basta impostare la proprietà MinButton = True

per avere la tua applicazione nella system tray, sarebbe bastata una semplice ricerca sul Forum per trovare tra gli altri, anche Questo Thread

Boolean

[zorro77]

Grazie mille Boolean per la prima parte della risposta
per la seconda ho seguito il tuo link nonchè il suggerimento di fare una ricerca più approfondita a rigurado...ma il discorso della system tray non mi funziona benissimo...cercherò di capire bene dove sta l'errore