WINDOWS 8_INTERFACE METRO OU CLASSIQUE
Sechaud
Messages postés
288
Date d'inscription
jeudi 28 octobre 2004
Statut
Membre
Dernière intervention
3 janvier 2017
-
8 juin 2012 à 10:13
Sechaud Messages postés 288 Date d'inscription jeudi 28 octobre 2004 Statut Membre Dernière intervention 3 janvier 2017 - 18 juin 2012 à 08:15
Sechaud Messages postés 288 Date d'inscription jeudi 28 octobre 2004 Statut Membre Dernière intervention 3 janvier 2017 - 18 juin 2012 à 08:15
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/54358-windows-8-interface-metro-ou-classique
https://codes-sources.commentcamarche.net/source/54358-windows-8-interface-metro-ou-classique
18 juin 2012 à 08:15
J'avais rectifié dans ma mise à jour mais grâce à tes indications on peut faire mieux.
18 juin 2012 à 07:19
=> Variant
pour le type sous-jacent, faire un TypeName(VAR)
While Timer < debut + 1
Wend
pas top sans DoEvents (et penses a bloquer le bouton pendant l'action pour éviter les clics frénétiques.
11 juin 2012 à 19:01
Ici on est sur un site d'échanges de CODES et non de programmes prêts à l'emploi.
Ce ne sont pas les fichiers qu'il faut mettre.
Il faut les compiler avec le programme Visual Basic 6, si tu le possèdes, afin d'obtenir un exécutable dont tu mettras une icone sur le Bureau par exemple et tu pourras ainsi le lancer pour changer l'Interface de Windows 8.
11 juin 2012 à 17:50
Merci
8 juin 2012 à 10:13
En testant le programme mis sur VBFrance, j'ai un message d'erreur "Dépassement de Capacité"
Il vient du fait que j'ai mis As Integer pour debut. Il ne faut rien mettre
Private Sub Command1_Click()
Dim RepButton%
Dim debut
De plus je ne sais pas quoi mettre. Si quelqu'un sait, son aide sera bienvenue.
Idem pour RepButton% l'ajoût de As Integer ne va pas.
J'attends une réponse éventuelle pour faire une mise à jour.
Enlevez le As Integer à debut et "ça roule".