Espace disque dans une Form

Version imprimable

Bonjour,

comment je peux faire pour afficher l'espace disque
sur ma form "A propos" dans un appli VB 2005

j'ai le code suivant mais incompatible avec ma form

Code:

1
2
3
4
5
6
7
8
9
 
 For Each CurrentDrive As DriveInfo In DriveInfo.GetDrives 
  ' Vérification qu'on a bien affaire à un disque dur de l'ordinateur
  If CurrentDrive.DriveType = DriveType.Fixed Then 
    ' Calcul du pourcentage d'espace disque libre
    Dim pourcentageLibre As Double = (CType(CurrentDrive.AvailableFreeSpace, Double) / CurrentDrive.TotalSize) * 100 
    Console.WriteLine("Espace libre de {0} >> {1}%", CurrentDrive.Name, Convert.ToInt16(pourcentageLibre)) 
  End If
 Next

Merci de votre aide
Cordialement,

05/03/2008, 14h09
tomlev

Comment ça, incompatible avec ta Form ?
Là tu utilises Console.WriteLine, donc ça écrit dans la console si elle est visible... il suffit d'afficher la même chose dans un label ou une textbox
05/03/2008, 14h56
kazylax

Oui exact seulement je sais pas comment faire pour l'afficher sur un TextBox
peux tu m'aider s'il te plait ?

Merci
05/03/2008, 15h58
tomlev

ben tu crées un TextBox sur ta Form, et tu fais:

Code:

textBox1.Text = "le texte à afficher"

C'est la première fois que tu fais une appli winforms ?

Non j'ai deja fait 3 programmes
mais comme j'ai pas retoucher depuis tres longtemps j'oublie certain code

pour mon code j'ai fait comme ca

Code:

1
2
3
4
5
6
7
8
9
10
11
 
        ' Parcours de la liste des disques durs
        For Each CurrentDrive As DriveInfo In DriveInfo.GetDrives
            ' Vérification qu'on a bien affaire à un disque dur de l'ordinateur
            If CurrentDrive.DriveType = DriveType.Fixed Then
                ' Calcul du pourcentage d'espace disque libre
                Dim pourcentageLibre As Double = (CType(CurrentDrive.AvailableFreeSpace, Double) / CurrentDrive.TotalSize) * 100
                Console.WriteLine("Espace libre de {0} >> {1}%", CurrentDrive.Name, Convert.ToInt16(pourcentageLibre))
                Label14.Text = "Espace libre de {0} >> {1}%"
            End If
        Next

dans le label il m'affiche
Espace libre de {0} >> {1}%

au lieu de l'espace disque.

De plus je ne suis pas un pro non plus j'apprend beaucoup avec visual basic 2005 pour en suite passer en C++

Ce serait plutôt :

Code:

1
2
3
 
 
Label14.Text = "Espace libre de " & CurrentDrive.Name.ToString() & " >> " & Convert.ToInt16(pourcentageLibre).ToString() & "%"

Citation:

Envoyé par kwest

Ce serait plutôt :

Code:

1
2
3
 
 
Label14.Text = "Espace libre de " & CurrentDrive.Name.ToString() & " >> " & Convert.ToInt16(pourcentageLibre).ToString() & "%"

bonjour la lisibilité... il vaut mieux utiliser String.Format :

Code:

1
2
 
Label14.Text = String.Format("Espace libre de {0} >> {1}%", CurrentDrive.Name, Convert.ToInt16(pourcentageLibre)

Par contre si tu affiches toujours sur le même label, à la fin on verra seulement l'espace libre du dernier disque. Il faudrait utiliser des labels différents, ou ajouter une nouvelle ligne à chaque fois:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
        Dim sb as New StringBuilder
        ' Parcours de la liste des disques durs
        For Each CurrentDrive As DriveInfo In DriveInfo.GetDrives
            ' Vérification qu'on a bien affaire à un disque dur de l'ordinateur
            If CurrentDrive.DriveType = DriveType.Fixed Then
                ' Calcul du pourcentage d'espace disque libre
                Dim pourcentageLibre As Double = (CType(CurrentDrive.AvailableFreeSpace, Double) / CurrentDrive.TotalSize) * 100
                sb.AppendFormat("Espace libre de {0} >> {1}%\n", CurrentDrive.Name, Convert.ToInt16(pourcentageLibre)
            End If
        Next
 
        Label14.Text = sb.ToString()

05/03/2008, 16h47
tomlev
Code:

1 2 De plus je ne suis pas un pro non plus j'apprend beaucoup avec visual basic 2005 pour en suite passer en C++
Un conseil: passe directement à C++. VB risque de te faire prendre de très mauvaises habitudes...

Merci beaucoup pour votre aide

j'ai l'erreur suivante apres avoir ajouter la solution de Tomlev

Code:

1
2
 
Erreur    1    Type 'StringBuilder' non défini.

Le code que l'on ma donner

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
    Private Sub apropos_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim sb As New StringBuilder
        ' Parcours de la liste des disques durs
        For Each CurrentDrive As DriveInfo In DriveInfo.GetDrives
            ' Vérification qu'on a bien affaire à un disque dur de l'ordinateur
            If CurrentDrive.DriveType = DriveType.Fixed Then
                ' Calcul du pourcentage d'espace disque libre
                Dim pourcentageLibre As Double = (CType(CurrentDrive.AvailableFreeSpace, Double) / CurrentDrive.TotalSize) * 100
                sb.AppendFormat("Espace libre de {0} >> {1}%\n", CurrentDrive.Name, Convert.ToInt16(pourcentageLibre))
            End If
        Next
 
        Label14.Text = sb.ToString()
        Label15.Text = sb.ToString()
    End Sub

05/03/2008, 17h31
tomlev

Citation:

Erreur 1 Type 'StringBuilder' non défini.

Ajoute "Imports System.Text" au début de ton fichier
05/03/2008, 17h45
kazylax

Merci a vous tous pour votre aide
c'est tres gentil :)

Résolu.
05/03/2008, 18h39
kwest
Citation:
Envoyé par tomlev

bonjour la lisibilité... il vaut mieux utiliser String.Format :

Code:

1 2 Label14.Text = String.Format("Espace libre de {0} >> {1}%", CurrentDrive.Name, Convert.ToInt16(pourcentageLibre)
La solution que j'ai proposé est une des solutions, j'ai jamais dit que c'était la meilleure...
05/03/2008, 22h32
tomlev

Citation:

Envoyé par kwest

La solution que j'ai proposé est une des solutions, j'ai jamais dit que c'était la meilleure...

effectivement... mais je trouve qu'il vaut mieux donner de bonnes habitudes aux débutants ;)