Cache barre des taches et souris invisible. pour l'enlever il faut cliquer sur Terminer sur le Form.
Source / Exemple :
'Alexis mr_intel8'
'API nécessaire pour le mode "toujours visible"
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 Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
'
Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
Private Sub Command1_Click()
ShowCursor True
Dim hWin As Long
hWin = FindWindow("Shell_traywnd", "")
SetWindowPos hWin, 0, 0, 0, 0, 0, &H40
End Sub
Private Sub Form_Load()
ShowCursor False
Dim hWin As Long
hWin = FindWindow("Shell_traywnd", "")
SetWindowPos hWin, 0, 0, 0, 0, 0, &H80
Dim Resultat As Long
Const Flags = &H2 Or &H1 Or &H40 Or &H10
If Check1.Value = 1 Then 'On active le mode toujours visible
Resultat = SetWindowPos(Form1.hwnd, -1, 0, 0, 0, 0, Flags)
Else 'On désactive le mode toujours visible
Resultat = SetWindowPos(Form1.hwnd, -2, 0, 0, 0, 0, Flags)
End If
End Sub
Conclusion :
Sympa pour faire des blagues a des amis.
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.