The u.l.b - bar de lancement façon hoverdesk

Soyez le premier à donner votre avis sur cette source.

Vue 6 217 fois - Téléchargée 1 084 fois

Description

Voici la base pour faire une bar de lancement façon HOVERDESK.

Cette source montre:
- La transparence des Forms
- Les Forms irrégulières
- Le scrolling de Forms avec un Skin
- Les évènements de type MouseEnter et MouseLeave
- La magnétisation des Forms entre elles et avec les bords du bureau
- Le déplacement des Forms sans ControlBox
- Le clonage de Forms (Chargement de plusieurs Forms indépendantes
à partir d'une seul)
- Etc.....

Utilisation:
- L'ajout de raccourci se fait par Drag and Drop
- Les déplacements se font avec Shift + Bouton Gauche de la souris

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
41
Date d'inscription
lundi 23 décembre 2002
Statut
Membre
Dernière intervention
1 mars 2007

Franchement.. Je trouve cette petite appli bien sympha ! Même si certain dise 'un air de déjà vu' c'est une belle interface.

Bien sûr je ne l'ai pas encore testée, mais bon, a priori il n'y a pas de PB. (Pour BOB33 : Je n'ai pas rencontré le cas de l'OCX manquante. Ta config VB est'elle à jour ?)

Bonne continuation. et effectivement le 10 est un minimum.
Messages postés
36
Date d'inscription
mardi 3 décembre 2002
Statut
Membre
Dernière intervention
24 juin 2004

Pour PICCLP32.OCX, elle est fourni en standard avec VB6,
au moins avec la version PRO.

Effectivement, ça ressemble à des progs comme LiteStep, NextStart
ou HoverDesk, mais je fourni ici du code en VB et pas en C.
Messages postés
1114
Date d'inscription
jeudi 19 décembre 2002
Statut
Membre
Dernière intervention
6 mai 2007

Pas mal, mais j'ai l'impression de déja avoir vu ça, dans Litestep peut etre ?
Messages postés
24
Date d'inscription
dimanche 3 août 2003
Statut
Membre
Dernière intervention
15 décembre 2005

Salute

Ton prog à laire cool met je ne peu pas le tester

il me demande un fichier OCX (PICCLP32.OCX) et je ne trouve pas.

pouret tu maider, je débute alore je bloc ?????????

si je le lance il me trouve une erreure.

les *********** set la ou il trouve l'érreure

' Mise à jour de l'affichage de la Form.
Private Sub UpdateFormDisplay(SourcePic As Integer, SourceFile As String, PicClipCols As Integer, PicClipRows As Integer)
' Affectation du fichier image d'animation 1 au PictureClip.
PictureClip1.Picture = LoadPicture(App.Path & "" & SourceFile)
' Définition du nombre de lignes et colonnes du PictureClip.
**PictureClip1.Cols = PicClipCols******************************
PictureClip1.Rows = PicClipRows
' Affectation du fichier image au PictureBox.
Picture1.Picture = PictureClip1.GraphicCell(SourcePic)
' Dimensionnement de la Form en fonction du PictureBox.
Me.Width = Picture1.Width
Me.Height = Picture1.Height
' Affectation de l'image à la Form
Me.AutoRedraw = True
Me.PaintPicture Picture1.Picture, 0, 0, Me.Width, Me.Height, 0, 0, Picture1.Width, Picture1.Height, vbSrcCopy
Me.AutoRedraw = False
End Sub

Je te remercie

Bonne Prog @+++
Messages postés
2169
Date d'inscription
vendredi 20 avril 2001
Statut
Membre
Dernière intervention
30 juin 2009
8
Tout simplement Impressionant ! 10/10

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.