![]() |
Модераторы: Akina |
![]() ![]() ![]() |
|
amt |
|
|||
![]() Бывалый ![]() Профиль Группа: Участник Сообщений: 249 Регистрация: 26.10.2004 Где: г. Волгоград Репутация: 3 Всего: 3 |
![]() Как сделать, чтобы цвет меню и строки сотояния был такойже как backcolor формы? ![]() Заранее благодарен. ![]() --------------------
С точки зрения банальной эрудиции не каждый индивидуум способен игнорировать тенденции парадоксальных эмоций. |
|||
|
||||
Akina |
|
|||
Советчик ![]() ![]() ![]() ![]() Профиль Группа: Модератор Сообщений: 20581 Регистрация: 8.4.2004 Где: Зеленоград Репутация: 34 Всего: 454 |
Какого именно меню? какой именно строки состояния? с цветовой схемой Винды хочешь поиграться по GotFocus/LostFocus? удачи...
-------------------- О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума. |
|||
|
||||
Staruha |
|
|||
![]() Эксперт ![]() ![]() ![]() Профиль Группа: Участник Клуба Сообщений: 1292 Регистрация: 1.2.2004 Где: Казань Репутация: 2 Всего: 27 |
Может как в XP. Когда делаешь форму на VBA она гармонирует с темой рабочего стола
-------------------- Возмездие настигнет |
|||
|
||||
amt |
|
|||
![]() Бывалый ![]() Профиль Группа: Участник Сообщений: 249 Регистрация: 26.10.2004 Где: г. Волгоград Репутация: 3 Всего: 3 |
Если backcolor формы сделать например зеленого цвета, то строка меню (Файл, Правка, Вид...) и строка состояния StatusBar остаются серыми. Как у них поменять цвет не трогая цветовые схемы Windows?
--------------------
С точки зрения банальной эрудиции не каждый индивидуум способен игнорировать тенденции парадоксальных эмоций. |
|||
|
||||
Spawn™Production® |
|
|||
![]() Тестер ПО, VB.NET Developer ![]() ![]() Профиль Группа: Участник Сообщений: 398 Регистрация: 12.4.2005 Где: Зеленоград Репутация: нет Всего: 12 |
Сделать свои контролы с поддержкой цвета
![]() Добавлено @ 21:25 Хм, для статус-бара есть решение - применить рисунок для панели. -------------------- ОС: WinXP SP2 Rus Frameworks: v1.0.3705, v1.1.4322, v2.0.50215, v2.0.50727 Сам кодю на VB (6.0 (почти забросил), 7.1, 8.0) |
|||
|
||||
amt |
|
|||
![]() Бывалый ![]() Профиль Группа: Участник Сообщений: 249 Регистрация: 26.10.2004 Где: г. Волгоград Репутация: 3 Всего: 3 |
Spawn™Production®
Я не совсем понял, ты предлагаешь создаватьсвои графические объекты?. Можно поподробнее. На счет StatusBar понял - попробую. С уважением, AMT --------------------
С точки зрения банальной эрудиции не каждый индивидуум способен игнорировать тенденции парадоксальных эмоций. |
|||
|
||||
Spawn™Production® |
|
|||
![]() Тестер ПО, VB.NET Developer ![]() ![]() Профиль Группа: Участник Сообщений: 398 Регистрация: 12.4.2005 Где: Зеленоград Репутация: нет Всего: 12 |
-------------------- ОС: WinXP SP2 Rus Frameworks: v1.0.3705, v1.1.4322, v2.0.50215, v2.0.50727 Сам кодю на VB (6.0 (почти забросил), 7.1, 8.0) |
|||
|
||||
~FoX~ |
|
||||||
![]() НЕ рыжий!!! ![]() ![]() ![]() ![]() Профиль Группа: Участник Клуба Сообщений: 2819 Регистрация: 8.10.2003 Где: Зеленоград Репутация: 10 Всего: 68 |
amt
Не торогая цветовой схемы не получиться......компаненты стандартные. Решений несколько - самое простое, это в момент перерисовки взять canvas или как оно там в ВБ называется (hDC - вроди) и рисовать на нем самостоятельно....Т.е. получаем девайс контекст и уже над ним изгиляемся:
Определяем кисть для заливки:
Только не забудь цвет текста поменять
Остальное в можно найти в МСДН, удачи.... |
||||||
|
|||||||
amt |
|
|||
![]() Бывалый ![]() Профиль Группа: Участник Сообщений: 249 Регистрация: 26.10.2004 Где: г. Волгоград Репутация: 3 Всего: 3 |
Spawn™Production®
Спасибо за ссылку. По поводу StatusBar. Пробовал применять картинку, но она перекрывает текст в панелях, кроме того у меня в StatusBar запихан ProgressBar. Может я чего не так делал? Кто знает - подскажите. --------------------
С точки зрения банальной эрудиции не каждый индивидуум способен игнорировать тенденции парадоксальных эмоций. |
|||
|
||||
amt |
|
|||
![]() Бывалый ![]() Профиль Группа: Участник Сообщений: 249 Регистрация: 26.10.2004 Где: г. Волгоград Репутация: 3 Всего: 3 |
Еще вопрос.
![]() ![]() --------------------
С точки зрения банальной эрудиции не каждый индивидуум способен игнорировать тенденции парадоксальных эмоций. |
|||
|
||||
Exception |
|
|||
Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Участник Клуба Сообщений: 4525 Регистрация: 26.12.2004 Репутация: 7 Всего: 186 |
то есть цвет? фоновый? |
|||
|
||||
amt |
|
|||
![]() Бывалый ![]() Профиль Группа: Участник Сообщений: 249 Регистрация: 26.10.2004 Где: г. Волгоград Репутация: 3 Всего: 3 |
Да! типа BackColor.
--------------------
С точки зрения банальной эрудиции не каждый индивидуум способен игнорировать тенденции парадоксальных эмоций. |
|||
|
||||
Spawn™Production® |
|
|||
![]() Тестер ПО, VB.NET Developer ![]() ![]() Профиль Группа: Участник Сообщений: 398 Регистрация: 12.4.2005 Где: Зеленоград Репутация: нет Всего: 12 |
Может через API этого и удастся добиться... лично я много разных приколов видел, но имхо проще свой MsgBox сделать... там и картинки и всё что угодно можно впихать...
-------------------- ОС: WinXP SP2 Rus Frameworks: v1.0.3705, v1.1.4322, v2.0.50215, v2.0.50727 Сам кодю на VB (6.0 (почти забросил), 7.1, 8.0) |
|||
|
||||
amt |
|
|||
![]() Бывалый ![]() Профиль Группа: Участник Сообщений: 249 Регистрация: 26.10.2004 Где: г. Волгоград Репутация: 3 Всего: 3 |
Ты имеешь ввиду с помощью формы или диалогового окна? --------------------
С точки зрения банальной эрудиции не каждый индивидуум способен игнорировать тенденции парадоксальных эмоций. |
|||
|
||||
kulibin |
|
|||
![]() Бывалый ![]() Профиль Группа: Участник Сообщений: 229 Регистрация: 9.5.2005 Где: Украина, Запорожь е Репутация: 2 Всего: 3 |
А как получить hwnd меню?
|
|||
|
||||
cardinal |
|
|||
![]() Инженер ![]() ![]() ![]() ![]() Профиль Группа: Экс. модератор Сообщений: 6003 Регистрация: 26.3.2002 Где: Германия Репутация: 19 Всего: 99 |
VB-VB-002144
и тут посмотри еще может чего найдешь... http://forum.vingrad.ru/index.php?act=modu...nel§ion=615 -------------------- Немецкая оппозиция потребовала упростить натурализацию иммигрантов В моем блоге: Разные истории из жизни в Германии "Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие |
|||
|
||||
Exception |
|
|||
Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Участник Клуба Сообщений: 4525 Регистрация: 26.12.2004 Репутация: 7 Всего: 186 |
ты про hMenu? |
|||
|
||||
kulibin |
|
|||
![]() Бывалый ![]() Профиль Группа: Участник Сообщений: 229 Регистрация: 9.5.2005 Где: Украина, Запорожь е Репутация: 2 Всего: 3 |
С этим я уже разобрался - там ссылка была выше где-то в этой теме. Супер.
Добавлено @ 16:52 Туда бы ещё иконки . . . Откопал примерчик - а он не работает. Или я дурак - или это шутка: Положить картинку в меню: Добавьте на форму 3 Image. Создайте меню с тремя подменю Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long Private Declare Function GetMenuItemID Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long Private Declare Function SetMenuItemBitmaps Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags _ As Long, ByVal hBitmapUnchecked As Long, ByVal hBitmapChecked As Long) As Long Private Const MF_BITMAP = &H4& Private Sub Form_Load() Dim hMenu&, hSubMenu&, hMenuItem& 'объявление переменых типом Long hMenu = GetMenu(Me.hwnd) hSubMenu = GetSubMenu(hMenu, 0) hMenuItem = GetMenuItemID(hSubMenu, 0) SetMenuItemBitmaps hMenu, hMenuItem, MF_BITMAP, Image1.Picture, Image1.Picture hMenuItem = GetMenuItemID(hSubMenu, 1) SetMenuItemBitmaps hMenu, hMenuItem, MF_BITMAP, Image2.Picture, Image2.Picture hMenuItem = GetMenuItemID(hSubMenu, 2) SetMenuItemBitmaps hMenu, hMenuItem, MF_BITMAP, Image3.Picture, Image3.Picture End Sub Добавлено @ 16:54 Да - и ещё одно разочарование: контекстные меню красятся только если они вызваны щелчком по форме. А вот в трее(компонент MBTray) и на кнопке(Inovartis button) - нифига. Да и в текстбоксах стандартных - тоже не фурычит. А жаль. |
|||
|
||||
Exception |
|
||||
Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Участник Клуба Сообщений: 4525 Регистрация: 26.12.2004 Репутация: 7 Всего: 186 |
и не будет. хочешь - субклассь их...
что именно? |
||||
|
|||||
![]() ![]() ![]() |
Правила форума "VB6" | |
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina. |
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | VB6 | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |