Ayuda Con mostrar una coleccion

[shin_chan_22]

Mi pregunta es tengo el siguiente codigo pero quiero mostrarlo por parte con un boton que diga siguiente por ejemplo que el Primer disco muestre todos los datos
Luego Apretar siguiente y que te muestre los datos del otro disco(Unidad)

Este es el codigo saco los datos mediante un FOR Each Pero los saca todos de una vez:

Se Hace una importacion( imports System .IO )
Sub unid()
' variable para la referencia a los Drives
Dim Drives As DriveInfo
Try
' recorre todos los Drives en la colección con el método GetDrives
For Each Drives In DriveInfo.GetDrives
With Drives
' si se se puede acceder .. lista la información en la ventana inmediato
' If .IsReady = True Then
Label22.Text = "Unidad: " & .Name.ToString
Dim El As Long = CStr(.TotalFreeSpace / 1024.0 ^ 3)
Label21.Text = "Bytes libres: " & El & " GB"
ProgressBar1.Value = El
Dim TS As Long = CStr(.TotalSize / 1000000000)
Label20.Text = "Capacidad: " & Format(TS, "0") & " GB"
Label18.Text = "Volumen: " & .VolumeLabel.ToString
Label17.Text = "Sistema de archivos: " & .DriveFormat.ToString
End With
Next
Catch ex As Exception
'MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
End Sub

[xjuanch0x]

Iniciado por shin_chan_22

Mi pregunta es tengo el siguiente codigo pero quiero mostrarlo por parte con un boton que diga siguiente por ejemplo que el Primer disco muestre todos los datos
Luego Apretar siguiente y que te muestre los datos del otro disco(Unidad)

Este es el codigo saco los datos mediante un FOR Each Pero los saca todos de una vez:

Se Hace una importacion( imports System .IO )
Sub unid()
' variable para la referencia a los Drives
Dim Drives As DriveInfo
Try
' recorre todos los Drives en la colección con el método GetDrives
For Each Drives In DriveInfo.GetDrives
With Drives
' si se se puede acceder .. lista la información en la ventana inmediato
' If .IsReady = True Then
Label22.Text = "Unidad: " & .Name.ToString
Dim El As Long = CStr(.TotalFreeSpace / 1024.0 ^ 3)
Label21.Text = "Bytes libres: " & El & " GB"
ProgressBar1.Value = El
Dim TS As Long = CStr(.TotalSize / 1000000000)
Label20.Text = "Capacidad: " & Format(TS, "0") & " GB"
Label18.Text = "Volumen: " & .VolumeLabel.ToString
Label17.Text = "Sistema de archivos: " & .DriveFormat.ToString
End With
Next
Catch ex As Exception
'MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
End Sub

Es muy sencillo, dado que ya tienes la información en una colección (la que te devuelve DriveInfo.GetDrives), solo debes de recorrerla con un indice (como se hace con arreglo) solo debes de validar que cuando se presione el botón siguiente la variable que te sirve para posicionarte en la colección no supere el tamaño máximo de la colección.

[shin_chan_22]

Tendria que poner algo asi en el boton? Pero con algun ciclo??


DriveInfo.GetDrives()


Label16.Text = DriveInfo.GetDrives.ToString(4)