Discussion :

[kazylax]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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,

[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

[kazylax]

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

Merci

[tomlev]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

textBox1.Text = "le texte à afficher"

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

[kazylax]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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++

[kwest]

Ce serait plutôt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[tomlev]

Ce serait plutôt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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()

[tomlev]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[kazylax]

Merci beaucoup pour votre aide

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Le code que l'on ma donner

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[tomlev]

Erreur 1 Type 'StringBuilder' non défini.

Ajoute "Imports System.Text" au début de ton fichier

[kazylax]

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

Résolu.

[kwest]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[tomlev]

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