Visual Basic 6 - Collapse to TitleBar

Forum - Visual Basic 6 - Collapse to TitleBar

Pagine: [ 1 2 3 4 5 6 ]

fusebyte (Normal User)
Expert

Messaggi: 332
Iscritto: 24/12/2008

Postato alle 13:55
Sabato, 12/09/2009

Tramite il menu' opzioni della scheda NVidia ho l'opportunita' di settare nella ControBox degli elementi del PC (Cartelle,File,etc.) una simpatico Tasto che riduce le cose elencate in una semplice Titlebar.
Cliccando su questo Tasto,parlando di una applicazione,l'applicazione stessa sale come una tendina e si riduce ad una semplice Titlebar pur continuando a funzionare.

Ricliccando sul Tasto,l'applicazione scende giu'a tendina e torna in modalita' vbNormal.

Volevo sapere che in VB6 è possibile fare questo e con quali comandi.
E' una cosa molto simpatica.
Non posso postare ne esempi di codice,ne altro,perche' proprio non saprei cosa postare.

Grazie anticipate,Ciao

Ultima modifica effettuata da fusebyte il 12/09/2009 alle 13:56

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 14:28
Sabato, 12/09/2009

bè, se vuoi farlo solo sul tuo programma di vb è semplice, basta modificare il width del form... se invece vuoi "impostare questa proprietà" a tutte le finestre del sistema operativo la cosa si fa più complessa e non so neanche se possibile...

fusebyte (Normal User)
Expert

Messaggi: 332
Iscritto: 24/12/2008

Postato alle 14:34
Sabato, 12/09/2009

No no,gia' farlo sul mio programma basta e avanza.
Modifico il width del Form1?
Potresti gentilmente farmi un esempio,perche' penso per aggiungere un tasto dovro' creare qualcosa....credo..:-)
Maintendi proprio un tasto che collassa il soft e si vede in pratica solo la titleBar del soft pur essendo in esecuzione?
Ciao

Ultima modifica effettuata da fusebyte il 12/09/2009 alle 14:36

theprogrammer (Normal User)
Guru^2

Messaggi: 2509
Iscritto: 28/01/2009

Postato alle 14:44
Sabato, 12/09/2009

Non la larghezza ma l'altezza deve essere modificata.

Quindi qualcosa come

Form1.Height = 100

o un valore che vuoi tu ...

fusebyte (Normal User)
Expert

Messaggi: 332
Iscritto: 24/12/2008

Postato alle 14:47
Sabato, 12/09/2009

Ok,grazie ho capito il senso per scrivere il codice.
Mi manca una cosa pero',come aggiungere un tasto sulla TitleBar.

Poi credo basti un if

Dim TastoTitle as Boolean
TastoTitle = False
Private Sub Collapse_Click()
if TastoTile = True Then
   Form1.Height = 0
  end if

if TastoTitle = False Then
   Form1.Height = 500
  End If
End Sub

piu' o meno...

Ciao

Ultima modifica effettuata da fusebyte il 12/09/2009 alle 14:51

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 17:01
Sabato, 12/09/2009

Testo quotato

Postato originariamente da theprogrammer:

Non la larghezza ma l'altezza deve essere modificata.

Quindi qualcosa come

Form1.Height = 100

o un valore che vuoi tu ...

ehm già, non avevo riletto il post, a volte mi capitano queste sviste :asd:

ecco qua un esempio per aggiungere un pulsante alla titlebar:
http://www.planet-source-code.com/vb/scripts/ShowCode.asp? ...

fusebyte (Normal User)
Expert

Messaggi: 332
Iscritto: 24/12/2008

Postato alle 20:32
Sabato, 12/09/2009

Provato.
Tiro su il FORM,ma non torna giu'.

Codice sorgente - presumibilmente VB.NET

Public Sub Command1_Click()
        
    'Call modTray.AddTrayIcon(Me.hwnd, Me.Icon, "Hi!")
    'Me.WindowState = vbMinimized
    'Call modTray.ShowBalloon(Me.hwnd, strTitle, strInfo, [Information Icon])
    'Me.Hide
    
   Dim Command As Boolean
Command = False
 
If Command = True Then
   frmMain.Height = 100
   Command = False
  End If
 
If Command = False Then
   frmMain.Height = 300
  End If
'End Sub
 
End Sub

Naturalmente ci sono dei moduli richiamati dalla call INIT,ma li conoscerete visto
che il link me lo avete passato Voi.
Dove ho messo i rem (commenti) sono comandi aggiuntivi che a me nn servono
Ciao

Ultima modifica effettuata da fusebyte il 12/09/2009 alle 21:10

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 22:15
Sabato, 12/09/2009

non capisco a cosa serve quel pezzo di codice... è quello SOLO per "tirare giù" il form?

e comunque questo pezzo di codice non verrà mai eseguito:
If Command = True Then
   frmMain.Height = 100
   Command = False
  End If

perchè se vedi prima di questo viene dichiarato:
command = false

quindi NON potrà MAI essere true...

fusebyte (Normal User)
Expert

Messaggi: 332
Iscritto: 24/12/2008

Postato alle 23:48
Sabato, 12/09/2009

Invece lo fa.
il soft si riduce in titlebar (100)
il problema è dopo che non riappare piu'(300)

Cmq che c'è qualcosa che non torna è palese.
Come assoceresti al Command1_Click gli eventi True e False?

Ciao

Pagine: [ 1 2 3 4 5 6 ]