Form polymorphe on screen

Soyez le premier à donner votre avis sur cette source.

Vue 4 222 fois - Téléchargée 660 fois

Description

Voici un code vous permettant de skinner votre form avec une image quelconque ainsi que de la conserver dans la zone de l'écran (anti dépassement de la zone d'écran)
Contrairement à d'autre code, celui si ne laisse pas de trainé.
si vous connaissé More TV, c'est le même préincipe, quelque soit le bord, la form ne dépassera pas, en plus un effet d'aimant complete le tout.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
406
Date d'inscription
lundi 9 juin 2003
Statut
Membre
Dernière intervention
4 septembre 2013
1
C'est de la balle ce code.
Simplicité, éfficacité exactement ce que j'aime.

Le probleme c'est qu'il est tellement efficace, qu'il arrive un truc de ouf !!!!
Avec VNC le logiciel de prise en main à distance, la fenetre est invisible.

On voit juste la souris du client se promener.
C'est magique, mais un peu embetant.

Quelqu'un a t'il une explication ou une astuce pour eviter ce remaque de "Hollow man"
Messages postés
146
Date d'inscription
jeudi 22 avril 2004
Statut
Membre
Dernière intervention
8 mars 2008
1
Salut, comme j'avais rien d'autre a faire, j'ai apporté une ou deux ptites modifs a cette source pour répondre aux questions incessantes pour la barre des tache.... vous inquietez pas vous allez comprendre....
le probleme avec la barre des taches c'est que ya pas mal de gens qui la mette soit a gauche, en haut a droite de l'écran et ceux qui se prennent pas la tete la laisse en bas.....
mais c'est la modif permet de coller aux bords du bureau et non pas de l'écran.....

voici la modif : (porte sur la fonction FormStayOnScreen() )
il suffit d'insérer un composant appelé sysinfo sur la form et de modifier cette fonction :


Public Sub FormStayOnScreen(Button As Integer, X As Single, Y As Single, FormMake As Form)
If Button = 1 Then
Dim TempX As Long, TempY As Long
TempX = FormMake.Left - (MonX - X)
TempY = FormMake.Top - (MonY - Y)
If TempX < 300 + Form1.SysInfo1.WorkAreaLeft Then 'c'est assez explicite....
FormMake.Left = Form1.SysInfo1.WorkAreaLeft
Else
If TempX + FormMake.Width > Form1.SysInfo1.WorkAreaLeft + Form1.SysInfo1.WorkAreaWidth - 300 Then
FormMake.Left = Form1.SysInfo1.WorkAreaLeft + Form1.SysInfo1.WorkAreaWidth - FormMake.Width
Else
FormMake.Left = TempX
End If
End If

If TempY < Form1.SysInfo1.WorkAreaTop + 300 Then
FormMake.Top = Form1.SysInfo1.WorkAreaTop
Else
If TempY + FormMake.Height > Form1.SysInfo1.WorkAreaTop + Form1.SysInfo1.WorkAreaHeight - 300 Then
FormMake.Top = Form1.SysInfo1.WorkAreaTop + Form1.SysInfo1.WorkAreaHeight - FormMake.Height
Else
FormMake.Top = TempY
End If
End If
End If
End Sub


et voili voila, la form se colle a la barre des taches quelque soit sa position et ses dimmensions.....
c'est pourtant simple, mais pourtant on le voit rarement sur le site....

bon @+ et bon prog !
Messages postés
13
Date d'inscription
vendredi 28 janvier 2005
Statut
Membre
Dernière intervention
22 février 2008

passe au niveau suivant t pa un debutant met toi intermediare tu le vau largemen
Messages postés
13
Date d'inscription
vendredi 28 janvier 2005
Statut
Membre
Dernière intervention
22 février 2008

tip top 10
Messages postés
8
Date d'inscription
vendredi 13 août 2004
Statut
Membre
Dernière intervention
5 août 2006

bravo ! là c'est cool paskeu c'est exactement ce que je cherchais.... c'est même presque mieux que ce que je cherchais... alors merci et bravo ! j'devrais mettre 10/10 mais je met que 9.5/10 pour t'encourager a faire encore mieux...
Afficher les 14 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.