Гость
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Панель управления / 9 сообщений из 9, страница 1 из 1
20.08.2013, 09:07
    #38371463
KPEATOP
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панель управления
Пытаюсь создать Панель управления. Пробовал с помощью Toolbar, вроде все нормально только не получается сделать кнопку нажатой (мне нужно чтоб кнопка была в нажатом виде когда мне надо). Вроде все просто, но почему то не получается так. Не понимаю почему. Может кто-нибудь подскажет?

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.Index
    Case 1
         If Button.Value = 0 Then
            Button.Value = 1
         ElseIf Button.Value = 1 Then
            Button.Value = 0
         End If
    End Select
End Sub
...
Рейтинг: 0 / 0
20.08.2013, 09:20
    #38371472
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панель управления
Этот код не нужен. У кнопки должен быть стиль tbrCheck.
...
Рейтинг: 0 / 0
20.08.2013, 09:30
    #38371487
KPEATOP
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панель управления
попробую, спасибо, не знал
...
Рейтинг: 0 / 0
20.08.2013, 14:59
    #38372015
KPEATOP
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панель управления
Может еще подскажите, как у Toolbar высоту менять? Toolbar1.Height не меняет высоту.
...
Рейтинг: 0 / 0
20.08.2013, 15:04
    #38372022
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панель управления
Высота тулбара зависит от размера кнопок.
...
Рейтинг: 0 / 0
20.08.2013, 15:04
    #38372025
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панель управления
Она меняется, когда меняешь высоту кнопок.
...
Рейтинг: 0 / 0
20.08.2013, 15:38
    #38372083
Дмитрий77
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панель управления
Shocker.ProОна меняется, когда меняешь высоту кнопок.
Тупо из VB6 кода произвольно не поменяешь.

По простому определяется размерами иконок в привязанном ImageList.

Поменять можно, но это не тривиально.
Код: vbnet
1.
   Call SendMessage(g_hwndToolBar, TB_SETBUTTONSIZE, 0, ByVal MAKELONG(24, 24))



Причем надо играться - танцы вокруг всяких авто-size-ов, последовательностью действий в коде и т.п. Как неоднократно говорилось, тулбар штука крайне капризная.
Как вариант (неправильный но относительно простой), можешь форматировать кнопки используя нестандартные размеры иконок, напр. 20х16 вместо 16х16, т.е. по 2 прозрачных пикселя слева и справа и т.п.
...
Рейтинг: 0 / 0
20.08.2013, 15:45
    #38372096
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панель управления
Дмитрий77Тупо из VB6 кода произвольно не поменяешь.Тогда лучше использовать Coolbar
...
Рейтинг: 0 / 0
20.08.2013, 16:03
    #38372139
Дмитрий77
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панель управления
Shocker.ProДмитрий77Тупо из VB6 кода произвольно не поменяешь.Тогда лучше использовать Coolbar

Не усложняй.

Coolbar, т.е. Rebar нужен в следующих случаях:
1) Чего-нибудь (тулбаров, менюшек и т.п.) НЕСКОЛЬКО
2) На на вистах и выше- подложить стиль под тулбар
3) Ну если нравится гриппер (вертикальная палка слева)

Если у человека один тулбар, ему ребар не нужен.
1) Придется возиться с самим Ребар
2) Придется возиться с Band-ом
3) Придется возиться с самим тулбаром
4) Придется возиться с кнопками тулбара
5) + лишняя ocx (причем 6-я а не 5-я) если VB-шный. Ну либо много страшного кода, если API-шный.

Как минимум на 3 степени неопределенности больше.

Вот вчера только в очередной раз возился:
14728365
И еще дня 3 потрачу на имплементацию этого кода во все exe-шники и формы.

Оно ему надо? Такие сложности.
Отформатировать размер кнопки размером картинки - самое простое и быстрое решение.
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Панель управления / 9 сообщений из 9, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]