1. Accueil
  2. Visual Basic / VB.NET
  3. Sources Visual Basic / VB.NET
  4. Sources Tutoriels
  5. Programme permettant de garder une forme au premier plan

Programme permettant de garder une forme au premier plan

0/5 (8 avis)

Vue 8 703 fois - Téléchargée 810 fois


Télécharger le projet
Commenter

Description

C'est un petit programme qui permet de charger une image et de l'afficher en la laissant toujours au premier plan.

Ce programme permet par exemple d'avoir pendant une présentation votre logo au premier plan avec une autre application qui fonctionne derrière.

Click droit de la souris sur l'image = déplacement de la forme sur l'écran
Click avec autre bouton fermeture de l'application.

Source / Exemple : 


' Ce projet a besoin d'un controle PictureBox
Option Explicit

'The SetWindowPos function changes the size, position, and Z order of a child, pop-up, or top-level window. Child, pop-up, and top-level windows are ordered according to their appearance on the screen. The topmost window receives the highest rank and is the first window in the Z order.
Private Declare Sub 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)

'Fonctions pour déplacer la fenetre
'The ReleaseCapture function releases the mouse capture from a window in the current thread and restores normal mouse input processing.
Private Declare Function ReleaseCapture Lib "USER32" () As Long
'The SendMessage function sends the specified message to a window or windows. The function calls the window procedure for the specified window and does not return until the window procedure has processed the message. The PostMessage function, in contrast, posts a message to a thread’s message queue and returns immediately.
Private Declare Function SendMessage Lib "USER32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

'declaration des constantes
 Const WM_NCLBUTTONDOWN = &HA1
 Const HTCAPTION = 2
 Const RGN_OR = 2

 Const HWND_TOPMOST = -1
 Const HWND_NOTOPMOST = -2
 Const SWP_NOSIZE = &H1
 Const SWP_NOMOVE = &H2
 Const SWP_NOACTIVATE = &H10
 Const SWP_SHOWWINDOW = &H40

Private Sub Form_Load()

' si erreur continue ( par exemple si pas de fichier logo.bmp alors on a l'image déjà présente dans le controle
' picture box
On Error Resume Next

'Repositionnne l'image
Picture1.Left = 0
Picture1.Top = 0
Picture1.Appearance = 0 ' apparence=Flat
Picture1.AutoSize = True ' Redimensionne le controle picture box à la taille de l'image

'Charge L'image avec le fichier image.bmp présent dans le répertoire de l'apli
Picture1 = LoadPicture(App.Path + "\Logo.bmp")

'Redimensione  la forme selon la taille de l'image
 Me.Height = Picture1.Height
 Me.Width = Picture1.Width

' la fenetre est mise toujours au premier plan
SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE

End Sub

' click bouton droit = deplacement de la forme
' click autre bouton = fin application
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Pour déplacer la form
If Button = 1 Then
      ReleaseCapture
      SendMessage Me.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
Else
    ' un autre bouton ferme l'application
    Unload Me
End If
End Sub
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Sator1 Messages postés 30 Date d'inscription vendredi 27 août 2004 Statut Membre Dernière intervention 18 août 2008
5 juin 2008 à 02:02
C'est simple et sympat et bien commenté... merci à toi.

@+ Sator
cs_sitemo Messages postés 341 Date d'inscription samedi 8 novembre 2003 Statut Membre Dernière intervention 29 juin 2011 1
2 juil. 2005 à 16:08
comment on peut afficher un logo en premier plan a un temps donnée et puis mettre un boutonMeric
Salaminovitch Messages postés 13 Date d'inscription dimanche 29 décembre 2002 Statut Membre Dernière intervention 13 avril 2006
27 oct. 2004 à 10:26
Super! ça me dépanne ton truc. Merci!
Salaminovitch Messages postés 13 Date d'inscription dimanche 29 décembre 2002 Statut Membre Dernière intervention 13 avril 2006
27 oct. 2004 à 10:25
Super! ça me dépanne ton truc. Merci!
ana_adil Messages postés 52 Date d'inscription dimanche 7 décembre 2003 Statut Membre Dernière intervention 4 juillet 2006
19 févr. 2004 à 23:28
bah moi c est la 1 er fois que je la voi.
merci cuq.
Afficher les 8 commentaires
S'inscrire maintenant

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.

Du même auteur (cuq)