Oppure

Loading
02/10/08 20:52
super rambo
Come da titolo potrei avere l'icona di un form senza bordi nella barra delle applicazioni?? Grazie!!
aaa
03/10/08 5:56
GrG
Imposta nelle proprietà del form ShowInTaskbar = True

:k:
aaa
03/10/08 9:36
super rambo
Grazie, va.. si potrebbe fare in modo che quando si clicca sull'icona nella barra delle applicazioni esca un menù tipo quello dei form con i bordi???
aaa
03/10/08 9:51
ruggy94
credo di non aver capito...:-|
aaa
03/10/08 9:56
super rambo
allora in pratica io ho un form senza bordi e ho disegnato dei bordi e ho messo questa immagine come picture della form...in alto a destra ho messo due command uno per ridurre ad icona e uno per chiudere il programma. essendo il form senza bordi non appariva nella barra delle applicazioni quindi ho impostato la proprietà che mi ha detto grg. quando riduco ad icona dal command se clicco sull'icona nella barra delle applicazioni il programma si ripristina. io vorrei che se clicco con il tasto destro sull'icona nella barra delle applicazioni esca un menù come quello dei form con i bordi. per capire meglio fai un nuovo proggetto senza codice riducilo ad icona e clicca con il tasto destro sull'icona della barra delle applicazioni. io vorrei quell'effetto.
aaa
03/10/08 13:30
P4p3r0g4
credo che la risposta sia no.
se non erro, i popup menu, che sono quello che chiedi, sono limitati all'area del form.
non ne sono certo, non li uso da un pezzo. comunque prova tu (nn ho il vb installato).
aaa
03/10/08 13:33
super rambo
e come lo imposto il popupmenu?? ad esempio:
Form1.PopupMenu Form1.menu

al posto del primo form1 che ci metto??
aaa
03/10/08 13:35
GrG
In teoria si potrebbe modifikare la proprietà borderstyle ep oi abbassare la finestra...

Il problema è ke questa proprietà non funziona in run-time ma solo nel design time (quando lavori al progetto)...

Quindi esistono delle API, ecco un esempio che rende il form senza bordi, ma con quelmenu ke dici tu...
Private Const GWL_STYLE = (-16)
Private Const WS_BORDER = &H800000
Private Declare Function GetWindowLong Lib "user32" _
        Alias "GetWindowLongA" (ByVal hWnd As Long, _
        ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" _
        Alias "SetWindowLongA" (ByVal hWnd As Long, _
        ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOZORDER = &H4
Private Const SWP_FRAMECHANGED = &H20
Private Declare Function SetWindowPos Lib "user32" _
        (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, _
        ByVal X As Long, ByVal Y As Long, _
        ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Private Sub Command1_Click()
        Dim lStyle As Long

        lStyle = GetWindowLong(Me.hWnd, GWL_STYLE)
        lStyle = lStyle And (Not WS_BORDER)
        SetWindowLong Me.hWnd, GWL_STYLE, lStyle
        SetWindowPos Me.hWnd, 0&, 0&, 0&, 0&, 0&, _
                SWP_FRAMECHANGED Or SWP_NOMOVE Or SWP_NOSIZE Or SWP_NOZORDER

End Sub


Però poi qundo rimetti il form normale cioè clicchi sulla taskbar i bordi del form sono ridimensionabili...

Cmq devi lavorare su quest'API... Googla un pò se hai probl... oppure risp...
aaa