[VB6] Modificare la proprietà ShowInTaskBar a runtime

[tuono_2000]

salve a Tutti...

Sto realizzando un programma in Visual Basic 6...
ho necessità di utilizzare il comando ".ShowInTaskbar"

peccato che questa proprietà della FORM non sia modificabile da codice..
ma solamente prima della esecuzione.

Qualcuno di voi ha una valida alternativa da propormi?

Post Scriptum
la proprietà .ShowInTaskbar della FORM
ha la funzione di imposta un valore che indica se il form è visualizzato nella barra delle applicazioni di Windows.

grazie ancora.

[gibra]

Se devi usare ShowInTaskbar.... impostala in progettazione.
Dove sta il TUO problema?

[alka]

Originariamente inviato da tuono_2000
Sto realizzando un programma in Visual Basic 6...
la proprietà .ShowInTaskbar della FORM

La guida che hai segnalato non parla di VB6, ma di Visual Basic .NET.
Quale dei due stai utilizzando?

[tuono_2000]

grazie ragazzi per l'intervento...

alka
Questo progetto lo sto realizzando in Visual Basic 6, come indicato dall'inizio;
Il collegamento alla guida è per dare una idea, a chi non conosce il comando, a cosa serve.

gibra
il comando l'ho inserito in progettazione...
per la precisione è all'interno di un CommandButton all'interno della Form.

Private Sub FinestrM_Click()
rem porta in primo piano la finestra quando carica
Call Mni_Click ' minimizza la form
If Form1.ShowInTaskbar = True Then ' verifica lo stato della form
rem finestra sganciata 
FinestrM.ToolTipText = "Visualizza la finestra sganciata dalla barra"
Form1.ShowInTaskbar = False
Else
rem finestra agganciata
FinestrM.ToolTipText = "Visualizza la finestra agganciata dalla barra"
Form1.ShowInTaskbar = True 
End If
End Sub

[alka]

Originariamente inviato da tuono_2000
il comando l'ho inserito in progettazione...
per la precisione è all'interno di un CommandButton all'interno della Form.

Vedi qui.

[tuono_2000]

grazie alka per l'aiuto

ma non pensavo fosse così complicato
utilizzare questo comando in modo "dinamico"...
dato che tra le proprietà della FORM è semplificato.

Riporto il codice suggerito:

'Realizzare 2 command buttons con questi Nomi 'cmdToggle' e 'cmdCheck'
Option Explicit

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 Declare Function ShowWindow Lib "user32" 
(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_APPWINDOW = &H40000

Const SW_HIDE = 0
Const SW_NORMAL = 1

Private Sub ShowInTheTaskbar(hwnd As Long, bShow As Boolean)
Dim lStyle As Long
ShowWindow hwnd, SW_HIDE
lStyle = GetWindowLong(hwnd, GWL_EXSTYLE)
If bShow = False Then
If lStyle And WS_EX_APPWINDOW Then
lStyle = lStyle - WS_EX_APPWINDOW
End If
Else
lStyle = lStyle Or WS_EX_APPWINDOW
End If
SetWindowLong hwnd, GWL_EXSTYLE, lStyle
App.TaskVisible = bShow
ShowWindow hwnd, SW_NORMAL
End Sub

Private Function IsVisibleInTheTaskbar(hwnd As Long) As Boolean
Dim lStyle As Long
lStyle = GetWindowLong(hwnd, GWL_EXSTYLE)
If lStyle And WS_EX_APPWINDOW Then
IsVisibleInTheTaskbar = True
End If
End Function

Private Sub cmdToggle_Click()
Static bVisible As Boolean
bVisible = Not IsVisibleInTheTaskbar(Me.hwnd)
ShowInTheTaskbar Me.hwnd, bVisible
End Sub

Private Sub Form_Load()
cmdToggle.Caption = "Leva visibilità"
cmdCheck.Caption = "Controlla visibilità"
End Sub

grazie ancora,
cerchero una alternativa al SUO uso.