THE U.L.B - BAR DE LANCEMENT FAÇON HOVERDESK
cs_ITALIA
Messages postés
2169
Date d'inscription
vendredi 20 avril 2001
Statut
Membre
Dernière intervention
30 juin 2009
-
23 juin 2004 à 17:19
Morricon Messages postés 41 Date d'inscription lundi 23 décembre 2002 Statut Membre Dernière intervention 1 mars 2007 - 29 juin 2004 à 11:34
Morricon Messages postés 41 Date d'inscription lundi 23 décembre 2002 Statut Membre Dernière intervention 1 mars 2007 - 29 juin 2004 à 11:34
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/23941-the-u-l-b-bar-de-lancement-facon-hoverdesk
https://codes-sources.commentcamarche.net/source/23941-the-u-l-b-bar-de-lancement-facon-hoverdesk
29 juin 2004 à 11:34
Bien sûr je ne l'ai pas encore testée, mais bon, a priori il n'y a pas de PB. (Pour BOB33 : Je n'ai pas rencontré le cas de l'OCX manquante. Ta config VB est'elle à jour ?)
Bonne continuation. et effectivement le 10 est un minimum.
24 juin 2004 à 09:15
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.
24 juin 2004 à 07:02
24 juin 2004 à 05:30
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 @+++
23 juin 2004 à 17:19