THE U.L.B - BAR DE LANCEMENT FAÇON HOVERDESK

Commentaire de BOB33 le 24/06/2004 05:30:57

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 @+++

Commentaire de AraXeen le 24/06/2004 09:15:13

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.