SCREEN SAVER VOLUMES 3D EN ROTATIONS
sebleboss2002
Messages postés
189
Date d'inscription
lundi 30 décembre 2002
Statut
Membre
Dernière intervention
3 avril 2005
-
12 avril 2003 à 16:47
Barr14 Messages postés 1 Date d'inscription samedi 12 avril 2003 Statut Membre Dernière intervention 1 mai 2003 - 1 mai 2003 à 10:10
Barr14 Messages postés 1 Date d'inscription samedi 12 avril 2003 Statut Membre Dernière intervention 1 mai 2003 - 1 mai 2003 à 10:10
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/6718-screen-saver-volumes-3d-en-rotations
https://codes-sources.commentcamarche.net/source/6718-screen-saver-volumes-3d-en-rotations
1 mai 2003 à 10:10
Si tu exécute le programme a partir de VB tu dois initialiser
le Timer1 ('Timer1 =10 -->Timer1 =10) voir ci-desous ***
Si tu copie le fichier Volume.scr dans Windowssytheme
Comme les autres écrant de veille je pence que tu changeras
d'avis
Merçi pour tes commentaire.
Merçi de me repondre si ta de meilleurs résultas Mestrez.Ch@skynet.be
A+
Private Sub Form_Load() 'Form2
Dim j As Integer
Cpt_volume = 0
Mouse_move = 0
Timer1.Enabled = False
Timer1.Interval = 501 - CInt(GetSetting(App.EXEName, "confVolume", "vitesse", "20"))
Nombre_Volume_show = CInt(GetSetting(App.EXEName, "confVolume", "NombreVolume", "3"))
*********************
* 'Timer1.Interval = 10 *
*********************
For j = Index_ligne To Index_ligne + 29
Line1(j).Visible = False
Next j
12 avril 2003 à 21:48
12 avril 2003 à 21:44
6/10
12 avril 2003 à 17:12
12 avril 2003 à 16:47
Sinon, dommage (encore) que ce soit si saccadé...