Программирование
Веб программирование

Visual Basic компоненты

 
 

В следующем шаге мы сделаем несколько приколов с помощью компонентов, сделаем свой собственный блокнот, и Internet Explorer 7.0. А сейчас будем делать программу, у которой при нажатии на кнопку будет появляться окно выбора цвета, и при выборе пользователем цвета, цвет текста будет меняться на выбранный, ну если ты нифига не понял, то поймешь потом. Для добавления компонента войди в Project >> Components

Там выбери Microsoft Common Dialog Control 6.0, этот компонент один из самых главных.

Теперь на форме размести текстовое поле, кнопку, и CommonDialog с именем CD1. Код:

Private Sub Command1_Click()
CD1.ShowColor ' Вызов стандартного окна выбора цвета
Text1.ForeColor = CD1.Color ' Текст станет таким же цветом какой выбрал юзер
End Sub 

Вот что у тебя должно получиться:

Исходник можешь скачать отсюда


Есть вопросы? Спроси на нашем форуме!!
Багир [17.04.2011 11:59]

Спасибо за идею. Добавил возможность выбора цвета формы.

Гость [08.07.2011 19:40]

в окне свойств CommonDialog в Name напиши CD1 не путать с FileName

Samou4120 [06.03.2013 13:46]

У меня VB6 на Русском
там не Name а (Имя)
а FailName так и есть FielName
так что сперва спутал
затем исправил
уже потом комменты прочёл =D

M161350 [07.07.2013 17:08]

Ребят, простите что пишу не по теме! Почему у меня так получается:
PrivateSub Form Load()
Option1.Enabled = False
Меню1.Enabled = False
End Sub

Код с другой формы:
Private
Sub Command1 Clic()
Option1.Enabled = True
Меню1.Enabled = True
End Sub

Option1 становится рабочим(Enabled=True) - А Меню1 нет.
Почему?

alex13sh300 [07.07.2013 18:59]

а ещё подробнее?
"Option1 становится рабочим(Enabled=True) - А Меню1 нет."

Option1,Меню1 - с какой из форм?

M161350 [08.07.2013 19:37]


Небольшая коррекция кода.
PrivateSub Command1 Clic()
Form1.Option1.Enabled = True
Form1.Меню1.Enabled = True
End Sub

Ivan40 [09.07.2013 19:06]

У меня программа работает, только с одним большим "НО": я делаю exeшный файл, позволяющий запускать приложения VB6 напрямую и потом уже запускаю этот файл и он мне выдаёт ошибку, которая возникает в том случае, если на форму помещён Microsoft Common Dialog Control 6.0 (вместо 5.0, как здесь): Component 'ComDlg32.OCX' or one of its dependencies not correctly registered: a file is a missing or invalid. Что мне делать с этой ошибкой, чтобы exeшный файл запустился? И связано ли это с тем, что у меня Microsoft Common Control версии 6.0, а не 5.0?

alex13sh300 [09.07.2013 19:28]

пофиг какой контрол, главное правило всех контролов , что их надо регать и засобой тоскать (лажить в то место где прога находиться - в одной папке)

если тебе так нужент это контрол , то ищи файл этого контрола в формате ocx и ложи рядом с прогой или суй в system32

Ivan40 [09.07.2013 21:51]

А я так и сделал: положил всё в одну папку и exeшный файл у меня всё-равно выдаёт эту ошибку.

Ivan40 [10.07.2013 14:45]

Кстати, можно сделать и такую похожую программу, только там будет помимо цвета текста меняться при нажатии кнопок ещё и цвет текстового окна и формы. В общем, нужно кинуть на форму текстовое окно, 3 кнопки: Command1, Command2 и Command3, соответственно и компонент Microsoft Common Dialog Control 6.0. Далее код:

Private Sub Command1Click()
CommonDialog1.ShowColor
Text1.ForeColor = CommonDialog1.Color 'как и в вышеописанном примере
End Sub

Потом:

Private Sub Command2
Click()
CommonDialog1.ShowColor
Text1.BackColor = CommonDialog1.Color
End Sub

Private Sub Command3_Click()
CommonDialog1.ShowColor
Form1.BackColor = CommonDialog1.Color
End Sub

У меня всё получилось и ошибок не выдавало. Если что-то не так, пишите мне сюда в комментарии.

Ivan40 [10.07.2013 21:19]

Ну если вдруг компьютер вдруг начнёт выдавать ошибку насчёт формы, то в коде вместо Form1 попробуйте Form. Но в любом случае: если работать не будет, пишите в комментарии сюда же. Код я по памяти сюда писал, поэтому мог что-то напутать. И если что - исправлю.



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.