Folge dem Video um zu sehen, wie unsere Website als Web-App auf dem Startbildschirm installiert werden kann.
Anmerkung: Diese Funktion ist in einigen Browsern möglicherweise nicht verfügbar.
With lsvDrives
Dim x As Integer
x = Int(.Width / 5.5)
.ColumnHeaders.Add , , "Laufwerk", x
x = Int(.Width / 5)
.ColumnHeaders.Add , , "Name", x
x = Int(.Width / 3.3)
.ColumnHeaders.Add , , "freier Speicher", x
.ColumnHeaders.Add , , "gesamter Speicher", x
.View = lvwReport
For i = 1 To Anzahl
.ListItems.Add , , Laufwerk(i).Buchstabe
.ListItems(i).SubItems(1) = Laufwerk(i).Name
.ListItems(i).SubItems(2) = Laufwerk(i).FreierSpeicher & " MByte"
.ListItems(i).SubItems(3) = Laufwerk(i).gesamterSpeicher & " MByte"
Next i
End With