Ikony dysków w combobox z ich nazwami?

[kamiljabłko]

Jak zrobić by po załadowaniu forma w combobox wyświetliły się nazwy dysków z ich ikonami?

Nazwy już wiem jaki kod :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            ComboBox1.Items.AddRange(IO.DriveInfo.GetDrives)
    End Sub

A co z ikonami?

 

[theoo]

domyślnie combobox nie ma możliwości wstawiania obrazków. Poszukaj gotowej kontrolki lub pobaw się z Draw przy comboboxie

[kamiljabłko]

Jak zrobić by zamiast "OS©" wyświetlało się "Dysk Lokalny©" w comboboxsie ?

[luk2001asz]

@kamiljabłko

Zwykła zamiana tekstu. Dodaj to:

Dim Przed As String = IO.DriveInfo.GetDrives
Dim Po As String = Replace(Przed, "OS©", "Dysk Lokalny©")

I wtedy trochę zmieniasz:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            ComboBox1.Items.AddRange(Po)
    End Sub

Mam nadzieję, że pomogłem.