Form polymorphe on screen

5/5 (14 avis)

Vue 4 420 fois - Téléchargée 676 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
cs_andrebernard Messages postés 406 Date d'inscription lundi 9 juin 2003 Statut Membre Dernière intervention 4 septembre 2013 1
7 avril 2008 à 14:35
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"
MrdJack Messages postés 146 Date d'inscription jeudi 22 avril 2004 Statut Membre Dernière intervention 8 mars 2008 2
3 août 2005 à 12:51
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 !
cs_Lyoko Messages postés 13 Date d'inscription vendredi 28 janvier 2005 Statut Membre Dernière intervention 22 février 2008
8 mars 2005 à 23:46
passe au niveau suivant t pa un debutant met toi intermediare tu le vau largemen
cs_Lyoko Messages postés 13 Date d'inscription vendredi 28 janvier 2005 Statut Membre Dernière intervention 22 février 2008
8 mars 2005 à 23:44
tip top 10
thermo_nono Messages postés 8 Date d'inscription vendredi 13 août 2004 Statut Membre Dernière intervention 5 août 2006
20 août 2004 à 14:55
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.