Visual Basic 6 - Collapse to TitleBar

Allora l'hook non c'entra niente.

Ma non capisco ancora cosa vuoi ottenere pressando il pulsante ...

1) vuoi che il form si riduca al titolo

2) vuoi che il programma vada nella tray bar

?

Se minimizzo con MINBUTTON deve andare in TRAY.
Se faccio DOPPIO_CLICK sulla TRAY torna VBNORMAL.
Ora avendo creato questa COLLAPSEBAR non ci va piu',perche ottengo quell'errore 384.
Vorrei averli tutti e due funzionanti senza che vadano in conflitto fra loro.

La base è,naturalmente,lo ZIP messo da GRG.


Ciao

Capiamoci ...

Non hai mai usato il MinButton ma il nuovo bottone inserito nella barra del titolo (command1).

Non c'e' del codice per usare il MinButton ...

E' proprio questo il problema.
Il tasto che abbiamo creato funziona,tira su e riporta giu' il FORM.
Se premo in MinButton mi da errore 384,perche',dice,non posso andare in Tray senza avere
quell'errore.
E' questo che mi interessa.
Non posso usare il MinButton e sopratutto come posso modificare quel codice per
risolvere il problema,perche' scusa se mi ripeto,sembra ci sia una qualche incompatibilita'.

E' qui che ti viene chiesto aiuto,come vedi c'è ADDtoTRAY che va totalmente in conflitto
con il nostro Tasto COLLAPSE ( per come è stato riprogrammato).

Per fartela breve ,il tutto si riduce ad una sola domanda:
C'è possibilita di far funzionare ADDTOTRAY pur mantenendo le attuali impostazioni di
Commandi1(CollapseButton)?

Ciao

Scusa, ma prima di risponderti devo capire bene e replicare il problema (l'errore), cosa che ancora non mi e' riuscito.

Postami lo zip del tuo progetto "completo" cosi' come lo hai modificato, in modo da evitare equivoci.

Il file MANIFEST che funzione svolge in questo caso?

Ciao Grazie

Anche se continuo ad avere dubbi su quello che vorresti ottenere e sul come lo fai, e' ovvio che non puoi modificare l'altezza del form se questo e' invisibile (e' questo che non capisco nel tuo ragionamento ...). L'errore lo eviti se scrivi

Public Sub Command1_Click()

   Call modTray.AddTrayIcon(Me.hwnd, Me.Icon, "TitleBar")
   Me.WindowState = vbMinimized
   Call modTray.ShowBalloon(Me.hwnd, "Title", "Info", [Information Icon])
   Me.Hide
    
   If WindowState <> vbMinimized Then
        If Command1.Caption = "FormUP" Then
           frmMain.Height = 500
           Command1.Caption = "FormDOWN"
        Else
           frmMain.Height = 8000
           Command1.Caption = "FormUP"
        End If
    End If
  
End Sub

ma cosi' non comprendo come potrebbe funzionare il ridimensionamento del form ...

Per il bordo del tasto, dato che e' fatto da terze parti, lo devi chiedere a chi l'ha fatto ... c'e' un indirizzo di posta ... fra l'altro, lo trovi su forum.masterdrive.it ...

Mi arrendo,se neanche col codice davanti riesci a capirmi...come te lo spiego? :-))
Il codice che hai scritto non va bene,inibisce le funzioni del TastoTitleBar

Per l'Errore 348
basta inserire la giusta caption senza fare nessun'altra modifica

Call modTray.AddTrayIcon(Me.hwnd, Me.Icon, "TitleBar"
così:
Call modTray.AddTrayIcon(Me.hwnd, Me.Icon, "Add Taste2TitleBar"

e l'errore 348 se ne va ed appare l'icona in TRAY anche se il soft ancora non è realmente in TRAY.


Questo del soft da mandare in ICONTRAY è l'unico problema che mi rimane...rispettando
le funzioni del TastoTitleBar.
Sono riuscito a farmi capire?

Ciao