barre des tache vb6

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : barre des tache vb6

Akim13

Bonjour,

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

Cordialement,

Publicité

jpcheck

Pioupiou

un .delete avec le meme debut de fonction ?

Akim13

Bonjour,

Pouvez-vous me donner plus de détail svp

Merci d'avance

kiki29

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

Akim13

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

kiki29

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

FORUM HardWare.fr

Programmation

VB/VBA/VBS

barre des tache vb6

Sujets relatifs
Fonction pour écrire un DWORD dans la base de registre avec VB6	VB6 : Propriété "Filter"
VB6 : Rafraichissement DataReport	VB6 : Trie de colonne avec requete SQL
Au secours! VB6 : Création dynamique d'objets dans datareport	Barre de défilement
Problème de barre de progression	[VB6] pb de crystal reports et debordement de pile
VB6 : DataReport et numéro de page [Trouvé]
Plus de sujets relatifs à : barre des tache vb6

Page générée en 0.047 secondes