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.
7 avril 2008 à 14:35
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"
3 août 2005 à 12:51
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 !
8 mars 2005 à 23:46
8 mars 2005 à 23:44
20 août 2004 à 14:55
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.