Как сделать список выбора цветов - VB

  1. Комбинированный список:


textual

Код к задаче: «Как сделать список выбора цветов - VB»

Private Sub Combo1_Click()
Form1.BackColor = QBColor(Combo1.ListIndex + 1)
End Sub
 
Private Sub Form_Load()
clr = Array("цвет1", "цвет2", "цвет3")
For i = LBound(clr) To UBound(clr)
Combo1.AddItem clr(i)
 Next i
Combo1.ListIndex = 0
End Sub

СДЕЛАЙТЕ РЕПОСТ

11   голосов, оценка 3.818 из 5



Похожие ответы
  1. visual basic 6.0, подскажите как сделать в правке "Выделить все"

  1. Помогите!!! Вот задача: Компьютер загадывает число от 0 до 100 Пользователь начинает отгадывать число. Если разница между загаданным числом и предложенным пользователем больше 30 выводится сообщение – Холодно Если разница от 20 до 30 – Выводится «тепло» От 10 до 20 – «Горячо» От 5 до 10 – «Почти угадал» От 1 до 5 – «Еще чуть-чуть!!!» Сделайте подсчет количества попыток за которые отгадано число

  1. У кого есть точный список ошибок или как его достать? Посмотрел и проверил навскидку здесь:https://msdn.microsoft.com/en-us/lib...(v=VS.60).aspx и здесь:http://www.planet-source-code.com/vb...48434&lngWId=1 из старших кодов некоторые недействительны. Вот из MSDN - код

  1. Два цикла работаю хорошо но когда добавляю третий выходит ошибка Invalid control next reference

  1. Всем здравствуйте. Скажите как получить дерево файлов и папок в заданной дериктории? И все это в двумерный массив засунуть из 3х столбцов, в который если это папка в соседние столбцы дописывать 0 0 0755? К такому вот виду, например: Код system/app/AdupsFota 0 0 755 system/app/AdupsFota/AdupsFota.apk 0 0 644 system/app/AdupsFota/arm 0 0 755 system/app/AdupsFota/arm/AdupsFota.odex 0 0 644 system/app/AdupsFotaReboot 0 0 755 system/app/AdupsFotaReboot/AdupsFotaReboot.apk 0 0 644 system/app/AdupsFotaReboot/arm 0 0 755 system/app/AdupsFotaReboot/arm/AdupsFotaReboot.odex 0 0 644 system/app/ApplicationsProvider 0 0 755 system/app/ApplicationsProvider/ApplicationsProvider.apk 0 0 644 system/app/ApplicationsProvider/arm 0 0 755 system/app/ApplicationsProvider/arm/ApplicationsProvider.odex 0 0 644 system/app/AtciService 0 0 755 system/app/AtciService/AtciService.apk 0 0 644 system/app/AtciService/arm 0 0 755 system/app/AtciService/arm/AtciService.odex 0 0 644 system/app/AutoDialer 0 0 755 system/app/AutoDialer/AutoDialer.apk 0 0 644 system/app/AutoDialer/arm 0 0 755 system/app/AutoDialer/arm/AutoDialer.odex 0 0 644 system/app/BSPTelephonyDevTool 0 0 755 system/app/BSPTelephonyDevTool/BSPTelephonyDevTool.apk 0 0 644 system/app/BSPTelephonyDevTool/arm 0 0 755 system/app/BSPTelephonyDevTool/arm/BSPTelephonyDevTool.odex 0 0 644 system/app/BasicDreams 0 0 755 system/app/BasicDreams/BasicDreams.apk 0 0 644 system/app/BasicDreams/arm 0 0 755 system/app/BasicDreams/arm/BasicDreams.odex 0 0 644 system/app/BatteryWarning 0 0 755 system/app/BatteryWarning/BatteryWarning.apk 0 0 644 system/app/BatteryWarning/arm 0 0 755 system/app/BatteryWarning/arm/BatteryWarning.odex 0 0 644 system/app/Bluetooth 0 0 755 system/app/Bluetooth/Bluetooth.apk 0 0 644 system/app/Bluetooth/arm 0 0 755 system/app/Bluetooth/arm/Bluetooth.odex 0 0 644 system/app/Bluetooth/lib 0 0 755 system/app/Bluetooth/lib/arm 0 0 755 system/app/Bluetooth/lib/arm/libbluetooth_jni.so 0 0 644 /system/lib/libbluetooth_jni.so system/app/Browser 0 0 755 system/app/Browser/Browser.apk 0 0 644 system/app/Browser/arm 0 0 755 system/app/Browser/arm/Browser.odex 0 0 644 system/app/Calculator 0 0 755 system/app/Calculator/Calculator.apk 0 0 644 system/app/Calculator/arm 0 0 755 system/app/Calculator/arm/Calculator.odex 0 0 644

  1. Подскажите, пожалуйста как мне сделать, вывод, каждой буквы слова в новой строке.? То есть: К а к т о

  1. Можно-ли сделать само обновляемую программу в vb6 . И как

  1. Доброго всем времени суток!Нужно сделать выпадающий список из TextBoxа при наведении указателя мыши.Мне удалось его реализовать с использованием массива элементов управления.Работает точно как нужно,но что то мне подсказывает что это не самая лучшая идея.Код получется довольно длинный,если учесть,что TextBoxов в программе довольно много. Пожалуйста подскажите как можно сделать более рационально.С Ip функциями я пока работать не умею.

  1. Здравствуйте, столкнулся с такой проблемой: создал программу из нескольких форм. Если нажать на "крестик" на первой форме, то программа завершается, но если нажать на "крестик" в других формах, то последняя форма закрывается, но программа не завершается, приходиться его убирать из процессов, как сделать так, чтобы он в любой форме завершал приложение? переход по формам произвожу при помощи show и hide P.S не ругайте сильно, если задаю глупые вопросы. Только начал изучать...

  1. Условие: найти минимальное значение массива B, содержащего значение функции G=g^2-G^4 на промежутке 0<=g<=10 с шагом дельта g=0,2. В том, что это одномерный массив разобрался и как найти максимум тоже, а вот как записать начало не знаю. Я сделал начало как формируется массив, но он почему-то не работает( Это первый путь, через оператор do :