помогите сохранить цвет

Язык Visual Basic на платформе .NET.

Модераторы: Ramzes, Sebas

bugs-bunney
Обычный пользователь
Обычный пользователь
 
Сообщения: 64
Зарегистрирован: 30.06.2002 (Вс) 7:53
Откуда: Russia

помогите сохранить цвет

Сообщение bugs-bunney » 27.01.2005 (Чт) 8:14

помогите сохранить цвет

есть форма,кнопка,колордиалог и где-то бд с настройками


Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim cl as new color
Dim frm_color as String 'переменная которую хочу сохранить

ColorDialog1.SolidColorOnly = True 'упрощенный выбор цветов

If ColorDialog1.ShowDialog() = DialogResult.Cancel Then Exit Sub'если отмена ...тогда нафиг

Button3.BackColor = ColorDialog1.Color 'показываю вбор цветов
'а теперь внимание я пробую два цвета - красный(RedColor) и предположительно розовый(над красным)

frm_color = ColorDialog1.Color.ToKnownColor.ToString 'красный=RedColor;предположительно розовый=0 как и любой нестандартный

'проверяю на форме применится ли цвет который находится в
'frm_color - если да то я смогу его сохранить и использовать при следующей загрузке
Me.BackColor = cl.FromName(frm_color)
'если frm_color был ReColor все хорошо , -предположительно розовый выдает во это
'An unhandled exception of type 'System.ArgumentException' occurred in system.windows.forms.dll
'Additional information: This control does not support transparent background colors.
'как я понял - типа контрол(Me) не тянет выбранный цвет
'но как - то же можно?
end sub

Sebas
Неуловимый Джо
Неуловимый Джо
Аватара пользователя
 
Сообщения: 3626
Зарегистрирован: 12.02.2002 (Вт) 17:25
Откуда: столько наглости такие вопросы задавать

Сообщение Sebas » 27.01.2005 (Чт) 12:19

не, он те говорит что форма не может быть заполнена ПРОЗРАЧНЫМ цветом. Для этого используй свойста формы Transparency


А вообще, используй не стринг, а Integer

Dim ColorCode as Integer

ColorCode = myColor.ToARGB

YourColor=System.Drawing.Color.FromArgb(ColorCode)
- Я никогда не понимал, почему они приходят ко мне чтобы умирать?

sebas<-@->mail.ru

bugs-bunney
Обычный пользователь
Обычный пользователь
 
Сообщения: 64
Зарегистрирован: 30.06.2002 (Вс) 7:53
Откуда: Russia

Сообщение bugs-bunney » 28.01.2005 (Пт) 8:32

да тупанул я с ToString


все получилось спасибо!


Вернуться в Visual Basic .NET

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 70

    TopList