Windows 8_interface metro ou classique

Soyez le premier à donner votre avis sur cette source.

Vue 5 222 fois - Téléchargée 554 fois

Description

Si vous avez testé la version preview de Windows 8, vous avez sûrement été
surpris par l'interface Metro mais surtout ennuyé par la perte de nos commandes habituelles quand on affiche le Bureau.
Mon mini programme sert à basculer de l'Interface Metro à l'Interface type Windows Seven, avec nos commandes traditionnelles.
NB: Il faut rebooter pour voir le changement.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
288
Date d'inscription
jeudi 28 octobre 2004
Statut
Membre
Dernière intervention
3 janvier 2017

Merci pour tes précieux conseils Renfield.
J'avais rectifié dans ma mise à jour mais grâce à tes indications on peut faire mieux.
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
66
ne rien mettre ?
=> 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.
Messages postés
288
Date d'inscription
jeudi 28 octobre 2004
Statut
Membre
Dernière intervention
3 janvier 2017

N3fR4KT ,je pense que tu débutes en programmation, non?
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.
Messages postés
1
Date d'inscription
mardi 17 janvier 2012
Statut
Membre
Dernière intervention
11 juin 2012

Bonjour. Depuis un petit moment je cherche où on met ces fichiers a télécharger ?
Merci
Messages postés
288
Date d'inscription
jeudi 28 octobre 2004
Statut
Membre
Dernière intervention
3 janvier 2017

ATTENTION:
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".

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.