Полезное для программистов:

Фриланс
Новости
Статьи
   
Рубрики:


ComboBox с картинками

Поиск:
Как известно, ComboBox не позволяет просто так добавлять перед элементами картинки, хотя порой очень хочется. Ну что ж, зато мы можем собственноручно рисовать элементы выпадающего меню, так что сейчас я покажу, как силами .NET 2.0 сделать перед элементами ComboBox картинки.
Для примера сделаем аналог DriveListBox.
Для начала расположите на форме ComboBox и добавьте сюда же ImageList, где мы будем хранить картинки. Добавьте в ImageList 4 изображения - обычный диск, CD-Rom, Floppy, и неизвестное устройство. Теперь нужно изменить свойства ComboBox так, чтобы можно было обрабатывать события отрисовки элементов и они при этом имели смысл: свойству DrawMode задайте значение OwnerDrawFixed.
Теперь обратимся непосредственно к событиям формы.
При загрузке формы заполним наш ComboBox существующими в системе дисками:
Код

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim i As Integer
        'Заполняем ComboBox именами дисков
        For i = 0 To My.Computer.FileSystem.Drives.Count - 1
            ComboBox1.Items.Add(My.Computer.FileSystem.Drives(i).Name.ToString)
        Next
        'Добавляем к имени метку диска
        For i = 0 To My.Computer.FileSystem.Drives.Count - 1
        'Try приходится использовать, так как Floppy дисковод вызовет исключение, сли в нём ету дискеты.
            Try
                If My.Computer.FileSystem.Drives(i).VolumeLabel = "" Then
                Else
                    ComboBox1.Items.Item(i) += "  (" & My.Computer.FileSystem.Drives(i).VolumeLabel.ToString & ")"
                End If
            Catch ex As Exception
            End Try
        Next
    End Sub


Затем обработаем событие отрисовки элементов ComboBox.
Код

    Private Sub ComboBox1_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles ComboBox1.DrawItem
        Dim fnt As New Font(FontFamily.GenericSerif, 10, FontStyle.Regular) 'Шрифт для текста
        'Рисуем серый прямоугльничек...
        e.Graphics.DrawRectangle(New Pen(Color.White, 1), New Rectangle(e.Bounds.X, e.Bounds.Y, 209, 15))
        If e.Index <> -1 Then
            'Рисуем иконку диска.
            e.Graphics.DrawImage(ImageList1.Images(GetIndex(Mid(ComboBox1.Items.Item(e.Index).ToString, 1, 3))), e.Bounds.X, e.Bounds.Y)
            'Отрисовка в зависимости от состояния
            If e.State And DrawItemState.Selected Then
                e.Graphics.DrawString("     " & ComboBox1.Items.Item(e.Index).ToString, fnt, Brushes.Crimson, e.Bounds.X, e.Bounds.Y)
            Else
                e.Graphics.DrawString("     " & ComboBox1.Items.Item(e.Index).ToString, fnt, Brushes.Black, e.Bounds.X, e.Bounds.Y)
            End If
        End If
    End Sub
    'Функция на основе полученого имени диска вычисляет, какому индексу картинки в ImageList соответствует тип диска.
    Private Function GetIndex(ByVal d As String) As Integer
        Dim i, value As Integer
        For i = 0 To My.Computer.FileSystem.Drives.Count - 1
            With My.Computer.FileSystem.Drives.Item(i)
                If (.Name.ToString = d) Then 'Если имя перчисляемого диска соответствует переданному в функцию, то тогда вычисляем индекс.
                    Select Case .DriveType
                        Case IO.DriveType.Fixed
                            value = 0
                        Case IO.DriveType.CDRom
                            value = 1
                        Case IO.DriveType.Removable
                            value = 2
                        Case Else
                            value = 3
                    End Select
                End If
            End With
        Next
        GetIndex = value
    End Function
Автор: Spawn™Production®
Сайт: http://forum.sources.ru






Просмотров: 5553

 

 

Новые статьи:


Популярные:
  1. Как сделать цикличным проигрывание MIDI-файла?
  2. Создание AVI файла из рисунков
  3. Как устройство "отключить в данной конфигурации"?
  4. Kто в данный момент присоединен через Сеть?
  5. Как узнать количество доступной памяти?
  6. Как реализовать в RichEdit разноцветный текст?
  7. Как скрыть свое приложение от ProcessViewer
  8. Как программно нажать/скрыть/показ кнопку "Start"?
  9. Модуль работы с ресурсами в PE файлах
10. Функции вызова диалоговых окон выбора
11. Проверка граматики средствами Word'а из Delphi.
12. Модуль для упрощенного вызова сообщений
13. Функции для записи и чтение своих данных в, ЕХЕ- файле
14. Рекурсивный просмотр директорий
15. Network Traffic Monitor
16. Разные модули
17. Универсальная функция для обращения к любым экспортируем функциям DLL
18. Библиотека от VladS
19. Протектор для UPX'а
20. Еще об ICQ, сообщения по контакт листу?
21. Использование открытых интерфейсов
22. Теория и практика использования RTTI
23. Работа с TApplication
24. Примеры использования Drag and Drop для различных визуальных компонентов
25. Что такое порт? Правила для работы с портами
26. Симфония на клавиатуре
27. Загрузка DLL
28. Исправление автоинкремента
29. Взаимодействие с чужими окнами
30. Проверить дубляжи в столбце


 

 

 
 
На главную