Masquer taskbar avec l'api 16 bits

Soyez le premier à donner votre avis sur cette source.

Snippet vu 2 870 fois - Téléchargée 41 fois

Contenu du snippet

' ************************************************************************
' Comment faire pour qu'une application écrite en langage VB3 (16 bits)
' s'exécute en plein écran en masquant la barre des tâches de Windows,
' et restaure cette barre des tâches lors de la fermeture de l'application
' ************************************************************************

Source / Exemple :


' ------------------------------------------
' Déclarations de Fonctions de l'API 16 bits
' (une seule ligne par déclaration)
' ------------------------------------------
Declare Function FindWindow Lib "User" (ByVal lpClassName As String, ByVal lpWindowName As Any) As Integer
Declare Function SetWindowPos Lib "User" (ByVal h%, ByVal hb%, ByVal X%, ByVal y%, ByVal cx%, ByVal cy%, ByVal F%) As Integer

' ----------------------------------------------
' Procédures à incorporer dans un module général
' de l'application
' ----------------------------------------------
Sub HideTaskbar ()
  Dim r As Integer
  Dim hWin As Integer
  hWin = FindWindow("Shell_TrayWnd", "")
  r = SetWindowPos(hWin, 0, 0, 0, 0, 0, &H80)
End Sub

Sub UnHideTaskbar ()  
  Dim r As Integer
  Dim hWin As Integer
  hWin = FindWindow("Shell_TrayWnd", "")
  r = SetWindowPos(hWin, 0, 0, 0, 0, 0, &H40)
End Sub

' -------------------------------------------
' Exemple d'appel de la procédure HideTaskbar
' Ce code sera incorporé dans la procédure
' événementielle Form_Load () s'exécutant
' au lançement de l'application  
' -------------------------------------------
HideTaskbar
Form1.WindowState = 0
Width = Screen.Width
Height = Screen.Height
Left = (Screen.Width - Width) / 2   
Top = (Screen.Height - Height) / 2  
    
' ----------------------------------------------
' Exemple d'appels de la procédure UnHideTaskbar
' à incorporer dans les procédures s'exécutant
' à la fermeture de l'application
' ----------------------------------------------
Sub mnuQuitter_Click ()  
  UnHideTaskbar
  End
End Sub

Sub Form_Unload (Cancel As Integer)  
  UnHideTaskbar
  End
End Sub

A voir également

Ajouter un commentaire Commentaires
Messages postés
1
Date d'inscription
lundi 2 avril 2007
Statut
Membre
Dernière intervention
4 avril 2007

Bien les paroles de "Link" de System Of A Down. Mais je comprend pas trop ce qu'elles font la...
Messages postés
26
Date d'inscription
mercredi 19 décembre 2001
Statut
Membre
Dernière intervention
17 août 2009

Pas mal du tous
Messages postés
127
Date d'inscription
mercredi 28 mars 2001
Statut
Membre
Dernière intervention
4 octobre 2004

lol ... keki nous sort le Revolt la :))) un extrait du scenario de Zelda ??
Messages postés
338
Date d'inscription
mercredi 4 avril 2001
Statut
Membre
Dernière intervention
8 décembre 2009
6
même si ca déplace la fenêtre c kan même une api
Messages postés
68
Date d'inscription
samedi 5 mai 2001
Statut
Membre
Dernière intervention
15 mars 2015

Link, he come to town, come to save, the princess Zelda.
Gannon took her away, now the children don’t play, but they will, when Link saves the day. Hallelujah!

Now Link, fill up your hearts, so you can shoot, your sword with power.
And when your feeling all down, the fairy will come around, so you’ll be brave, and not a sissy coward.


Now Link (yay!), he saves the day, put Gannon in his grave.
So now Zelda is free, and now our hero shall be:
Link, I think your name, will go down in history!
Afficher les 6 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.