Visual Basic 6 - Collapse to TitleBar

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

Mi sembra impossibile...GrG ha ragione.
Comunque se vuoi farlo con un Boolean devi dichiarare una variabile d'istanza (chiamala Command se vuoi) e la imposti per esempio a True. Nel momento in cui il bottone viene cliccato, il Form si riduce e Command diventa False. Se lo premi mentre Command è False, il Form si allarga e Command diventa True.

Si avete ragione,dimenticavo qualcosa,ho scritto in fretta e dimenticato la caption.
Allora stabiliamo 2 caption
UP= sali
Dw= scendi

Public Sub Command1_Click()
Dim Command1_Click As Boolean
Command1.Caption = "UP"

If Command1.Caption = "UP" Then
   frmMain.Height = 100
   Command1.Caption = "Dw"
      Else

If Command1.Caption = "Dw" Then
   frmMain.Height = 300
   Command1.Caption = "UP"
  End If
End If

Vi giuro che il problema rimane lo stesso.
Il codice funziona,infatti se clicco su UP mi sale il Form e la captuon passa a Dw
Ora se clicco Dw ,il Form dovrebbe scendere e la caption passare ad UP.
niente non lo fa ,ilForm non scende.

Ho immaginato che
frmMain.Height = 300
si basasse sulle assi cartesiane (quando non sai che pensare...) ed ho impostato -300
Niente non si smuove,clicco su Dw ed il Form non scende.
Ma perche'???
Non ditemi che stavolta il codice è errato perche' non lo è o almeno ne sono convinto,poi la realta'dei fatti vediamo quale sara' :-)
Ciao

Ho provato anche:

Public Sub Command1_Click() 
Dim Command1_Click As Boolean 
Command1.Caption = "UP" 

If Command1.Caption = "UP" Then 
   frmMain.Height = 100 
   Command1.Caption = "Dw" 
      Else 

If Command1.Caption = "Dw" Then 
   frmMain.Height = 300
   frmMain.Show 'oppure Me.WindowState = vbNormal 
   Command1.Caption = "UP" 
  End If 
End If 

Niente ,per salire sale,ma non ne vuole sapere di scendere.
Mi sono anche accorto di una cosa,posso dargli 100

If Command1.Caption = "UP" Then
frmMain.Height = 100

oppure un valore a caso,facciamo 500

If Command1.Caption = "UP" Then
frmMain.Height = 500

quando premo il tasto con caption UP tira il FORM su fino alla TitleBar indipendentemente
dal valore.

Che ci sia qualcosa nel moduli da modificare?




Ciao

300 non e' sufficiente. E' in twips e quindi sara' un bel po' di piu'.

Controlla il valore quando e' tutta visibile ... potrebbe essere 5 o 6 mila ...

il tuo codice non ha ancora senso, ecco perchè non funziona... è come la storia del boolean, provo a fartelo capire commentandotelo:

Public Sub Command1_Click() 'Ogni volta che premi il pulsante...
Dim Command1_Click As Boolean
Command1.Caption = "UP" 'la sua caption diventa "UP"

If Command1.Caption = "UP" Then ' se UP allora "tira su"
   frmMain.Height = 100
   Command1.Caption = "Dw"
      Else

If Command1.Caption = "Dw" Then ' se Dw allora "tira giù"
   frmMain.Height = 300
   frmMain.Show 'oppure Me.WindowState = vbNormal
   Command1.Caption = "UP"
  End If
End If 

ma se vedi all'inzio la caption sarà SEMPRE "UP" quindi il tuo codice va modificato in:

Public Sub Command1_Click()
Dim Command1_Click As Boolean

If Command1.Caption = "UP" Then
   frmMain.Height = 100
   Command1.Caption = "Dw"
      Else

If Command1.Caption = "Dw" Then
   frmMain.Height = 300
   frmMain.Show 'oppure Me.WindowState = vbNormal
   Command1.Caption = "UP"
  End If
End If 

Command1.Caption = "UP" 'la sua caption diventa "UP"
è come dire che scrivo la caption nelle proprieta'
Io non ci vedo niente di sbagliato in questo,anche perche' senno il tasto resta senza caption fino a che non premo.

Per tirarlo su funziona mentre per farlo tornare in vbNormal ho seguito il consiglio di TheProgrammer e messo 5000 ,poi 6000,poi 7000,ma non c'è verso,magari devo aumentare ancora.
Per me c'è qualcosa nei moduli da rivedere nel progetto postatomi da GRG.
Ma non è proprio semplice quel codice...
Credo il Modulo in questione è modCapBtn,il Main contine solo le call al ModCapBtn,il modTray l'ho tolto perche' se il Form va in TRAY o Maximized non si puo' fare o perlomeno io ottengo un avviso che dice questo.


Ciao

E' qui che ti sbagli. Non lo stai scrivendo nel Form_Load. Riflettici.