barre des tache vb6

Marsh Posté le 26-03-2007 à 10:58:35

Bonjour,

Comment supprimer l?espace de travail de la barre des taches après l'avoir caché. en vb6 ?

Cordialement,

Reply

Marsh Posté le 26-03-2007 à 10:58:35

Reply

Marsh Posté le 26-03-2007 à 11:55:57

un .delete avec le meme debut de fonction ?

Reply

Marsh Posté le 26-03-2007 à 18:16:44

Bonjour,

Pouvez-vous me donner plus de détail svp

Merci d'avance

Reply

Marsh Posté le 28-03-2007 à 08:28:42

Avec un peu de retard un code minimal qui fonctionne

Dans Form1
Ajouter composant Microsoft Sysinfo Control 6.0 sur Form1
Puis code
Option Explicit
Dim wid As Long, hgt As Long

Private Sub Form_Load()
wid = GetSystemMetrics(SM_CXSCREEN)
hgt = GetSystemMetrics(SM_CYSCREEN)
Move 0, 0, ScaleX(wid, vbPixels, vbTwips), ScaleY(hgt, vbPixels, vbTwips)
End Sub

Dans un module baptisé par exemple mTaille

Option Explicit

Public Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long

Public Const SM_CXSCREEN = 0
Public Const SM_CYSCREEN = 1

Reply

Marsh Posté le 29-03-2007 à 13:26:37

Bonjour,
Merci pour votre réponse mais ce nest exactement ce que je cherche.
En faite dans mon programme je cache la barre des taches puis jaffiche mon programme qui remplace la barre des taches mais le problème cest les autres fenêtres ou logiciels comme Internet exploreur ou autres qui reste,

En plus certaines personne redimensionne leurs barre des taches.

Existe-t-il une autre solution pour vraiment cacher la barre des taches ou décocher loption Conserver la Barre des taches au-dessus des autres fenêtres ou même redimensionner la barre des taches avec vb6.

Merci davance

Reply

Marsh Posté le 29-03-2007 à 19:13:30

Peut-être ceci
Dans un module

Option Explicit

Private Declare Function ShowWindow Lib "user32" _
(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Private Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long

Private Declare Function FindWindowEx Lib "user32" _
Alias "FindWindowExA" (ByVal hWnd1 As Long, _
ByVal hWnd2 As Long, _
ByVal lpsz1 As String, _
ByVal lpsz2 As String) As Long

Sub TaskBar(bValue As Boolean)
Dim lHandle As Long

lHandle = FindWindow("Shell_TrayWnd", "" )

If bValue Then
ShowWindow lHandle, 5
Else
ShowWindow lHandle, 0
End If
End Sub

Dans une Form

Option Explicit

Private Sub Command1_Click()
TaskBar True
End Sub

Private Sub Command2_Click()
TaskBar False
End Sub

Sinon plus concis
Dans Module

Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
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 Const SWP_HIDEWINDOW As Long = &H80
Private Const SWP_SHOWWINDOW As Long = &H40

Dans Form

Option Explicit
Private Sub Command1_Click()
Dim hwnd As Long
hwnd = FindWindow("Shell_traywnd", "" )
SetWindowPos hwnd, 0, 0, 0, 0, 0, SWP_HIDEWINDOW
End Sub

Private Sub Command2_Click()
Dim hwnd As Long
hwnd = FindWindow("Shell_traywnd", "" )
SetWindowPos hwnd, 0, 0, 0, 0, 0, SWP_SHOWWINDOW
End Sub

Message édité par kiki29 le 29-03-2007 à 20:58:43

Reply

barre des tache vb6

Sujets relatifs:

Leave a Replay