Panneau de configuration

Soyez le premier à donner votre avis sur cette source.

Vue 10 222 fois - Téléchargée 837 fois

Description

paneau de configuration

Source / Exemple :


'paneau de configuration

Conclusion :


paneau de configuration

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

econs
Messages postés
4066
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
18 -
Pareil que pour ton autre source du jour : une capture d'écran aurait pû être sympathique.

Ton appli est jolie. Fais-en profiter les autres !

Un bug détecté : Calcul de l'espace disque restant.
La valeur est calculée sur un nombre Double.
Mais voilà, j'ai 8 Go d'espace libre, et çà ne rentre pas dans un Double.
cs_yoman64
Messages postés
593
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
4 décembre 2008
-
Ya quand meme des truc que taurais pu integrer au prog , genre changer l'heure/la date .

@++
YoMan64
sibi12
Messages postés
337
Date d'inscription
jeudi 19 décembre 2002
Statut
Membre
Dernière intervention
15 avril 2006
-
econs >>

8 Go rentre sans aucun probleme dans un double !!!
Le problème vien du fait que SectorsPerCluster, BytesPerSector et NumberOfFreeClusters sont 3 Long. VB Multiplie les 2 premier Long et renvoi un Long qu'il remultiplie avec le 3eme qui renvoi un Long... plus grand que 4 giga --> Overflow avant de transformer le long en double

Remplace cette ligne par CDbl(SectorsPerCluster) * BytesPerSector * NumberOfFreeClusters
sibi12
Messages postés
337
Date d'inscription
jeudi 19 décembre 2002
Statut
Membre
Dernière intervention
15 avril 2006
-
Sinon code plutôt interessant

les lignes Shell "rundll32.exe shell32.dll,Control_RunDLL " + _tatatata

peuvent être remplacer par cette déclaration

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1

....
....
puis par cette appel

ShellExecute Me.hwnd, vbNullString, _tatatata, vbNullString, "", SW_SHOWNORMAL


la difference est que ShellExecute utilise le lancement par defaut du système mais en principe le résultat ne devrait jms être different

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.