FORM POLYMORPHE ON SCREEN

Commentaire de TheHacker le 01/07/2003 17:30:46

ca c du bo boulot, bravo ! 10/10 :-D

Commentaire de Tilois le 02/07/2003 09:19:55

on voit le boulot. L'effet est super .. moi je met 10

Commentaire de nicolasvb le 02/07/2003 12:12:54

dedjou...c bon ça

Commentaire de jmluc le 02/07/2003 13:37:27

Dommage...bon je verrai ce soir chez moi .
J'ai les deux OS sur mon poste...merci

Commentaire de olivierXIII le 09/07/2003 10:21:15

bravo, ca marche parfaitement sous win2000, par contre dommage que les couches alpha ne soient pas utilisées pour la semi transparence.

10/10

Commentaire de Lyoko le 08/03/2005 23:44:05

tip top 10

Commentaire de MrdJack le 03/08/2005 12:51:24

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 !