Поделиться через

Практическое руководство. Эмуляция элемента управления Visual Basic 6.0 с тремя состояниями в обновляемом приложении

  • Статья

Обновлен: Ноябрь 2007

В Visual Basic 6.0 свойства Picture, DownPicture и DisabledPicture используются для отображения различных изображений в соответствии с состоянием элемента управления CheckBox, CommandButton или OptionButton. Например, если установлен флажок элемента управления CheckBox, отображается изображение DownPicture; если флажок элемента управления снят, отображается изображение DisabledPicture.

В Visual Basic 2008 того же результата можно достичь с помощью элемента управления ImageList, как показано в следующем примере.

eaa02dxx.alert_note(ru-ru,VS.90).gifПримечание.

Для начала необходимо проверить приложение Visual Basic 6.0. Если свойства DownPicture и DisabledPicture не устанавливаются в режиме разработки или во время выполнения, поведение останется таким же и в Visual Basic 2008.
eaa02dxx.alert_note(ru-ru,VS.90).gifПримечание.

Отображаемые диалоговые окна и команды меню могут отличаться от описанных в справке в зависимости от действующих параметров или версии среды. Для изменения параметров в меню Сервис выберите команду Импорт и экспорт параметров. Дополнительные сведения см. в разделе Параметры Visual Studio.

Добавление элемента управления ImageList

Если свойства DownPicture или DisabledPicture установлены, выполните следующие действия по изменению обновляемого приложения.

Эмуляция элемента управления с тремя состояниями

  1. Необходимо установить имена файлов и местоположение изображений, присвоенных свойствам Picture, DownPicture и DisabledPicture, и при необходимости скопировать их на компьютер, где проводится разработка.

  2. Добавьте элемент управления ImageList из Панели элементов на форму.

  3. В окне Свойства выберите свойство Images.

  4. В окне Редактора коллекции изображений добавьте три изображения, которые должны использоваться для Picture, DownPicture и DisabledPicture.

  5. Если какое-либо из этих свойств устанавливалось во время выполнения, необходимо удалить этот код. Если какие-либо свойства устанавливались в режиме разработки, нужно добавить в событие Load для формы следующий код:

    ' Assign the first image (Picture) to the Image property.
CheckBox1.Image = ImageList1.Images(0)

  6. Для отображения изображения DownPicture во время выполнения нужно добавить в событие CheckedChanged для элемента управления CheckBox следующий код:

    If CheckBox1.Checked = True Then
  ' Assign the second image (DownPicture) to the Image property.
  CheckBox1.Image = ImageList1.Images(1)
Else
  ' Assign the first image (Picture) to the Image property.
  CheckBox1.Image = ImageList1.Images(0)
End If

  7. Для отображения изображения DisabledPicture во время выполнения нужно добавить в событие EnabledChanged для элемента управления CheckBox следующий код:

    If CheckBox1.Enabled = False Then
  ' Assign the third image (DisabledPicture) to the Image property.
  CheckBox1.Image = ImageList1.Images(2)
ElseIf CheckBox1.Checked = True Then
  ' Assign the second image (DownPicture) to the Image property
  CheckBox1.Image = ImageList1.Images(1)
Else
  ' Assign the first image (Picture)to the Image property
  CheckBox1.Image = ImageList1.Images(0)
End If

    Приложение будет работать точно так же, как и в Visual Basic 6.0.

См. также

Основные понятия

Свойство Style для пользователей Visual Basic 6.0

Элемент управления CheckBox (для пользователей Visual Basic 6.0)

Элемент управления CommandButton для пользователей Visual Basic 6.0

Элемент управления OptionButton для пользователей Visual Basic 6.0

Элемент управления OptionButton для пользователей Visual Basic 6.0

Пользовательские элементы управления (для пользователей Visual Basic 6.0)