sibi12
Messages postés337Date d'inscriptionjeudi 19 décembre 2002StatutMembreDernière intervention15 avril 2006 3 sept. 2004 à 13:02
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
la difference est que ShellExecute utilise le lancement par defaut du système mais en principe le résultat ne devrait jms être different
sibi12
Messages postés337Date d'inscriptionjeudi 19 décembre 2002StatutMembreDernière intervention15 avril 2006 3 sept. 2004 à 12:54
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
cs_yoman64
Messages postés592Date d'inscriptionsamedi 19 janvier 2002StatutMembreDernière intervention 4 décembre 2008 3 sept. 2004 à 00:43
Ya quand meme des truc que taurais pu integrer au prog , genre changer l'heure/la date .
@++
YoMan64
econs
Messages postés4030Date d'inscriptionmardi 13 mai 2003StatutMembreDernière intervention23 décembre 200824 2 sept. 2004 à 19: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.
3 sept. 2004 à 13:02
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
3 sept. 2004 à 12:54
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
3 sept. 2004 à 00:43
@++
YoMan64
2 sept. 2004 à 19:18
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.