Как сделать кнопки плоскими не применяя каток?

[HBasic]

С Push Button ковырялся ничего не получилось.Если надо библиотеки какие подключать то расскажите
пожалуйста подробно как это делается.

[Хакер]

Зачем?

[jangle]

С Push Button ковырялся ничего не получилось.Если надо библиотеки какие подключать то расскажите
пожалуйста подробно как это делается.

стиль BS_FLAT

Код: Выделить всё

Option Explicit

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Const BS_FLAT = &H8000
Private Const GWL_STYLE = (-16)

Private Sub Form_Load()
Dim tmp As Long
tmp = GetWindowLong(Command1.hWnd, GWL_STYLE)
tmp = tmp + BS_FLAT
Call SetWindowLong(Command1.hWnd, GWL_STYLE, tmp)
End Sub

[HBasic]

Зачем?

Так хочет заказчик.

[HBasic]

С Push Button ковырялся ничего не получилось.Если надо библиотеки какие подключать то расскажите
пожалуйста подробно как это делается.

стиль BS_FLAT

Код: Выделить всё

Option Explicit

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Const BS_FLAT = &H8000
Private Const GWL_STYLE = (-16)

Private Sub Form_Load()
Dim tmp As Long
tmp = GetWindowLong(Command1.hWnd, GWL_STYLE)
tmp = tmp + BS_FLAT
Call SetWindowLong(Command1.hWnd, GWL_STYLE, tmp)
End Sub

Спасибо.

[Хакер]

Человеку подсовывают дрянь, а он и рад "Спасибо" сказать.

Должно быть tmp Or BS_FLAT вместо tmp + BS_FLAT.

[jangle]

Человеку подсовывают дрянь, а он и рад "Спасибо" сказать.

Должно быть tmp Or BS_FLAT вместо tmp + BS_FLAT.

Разве от этого, кнопки более плоскими станут?

[Хакер]

От этого программы менее бажными станут. Код менее кривым.

[awl100Alex]

Человеку подсовывают дрянь, а он и рад "Спасибо" сказать.

Должно быть tmp Or BS_FLAT вместо tmp + BS_FLAT.

И чего ты все время такой злой???
Вот посмотри здесь ( http://ru.wikipedia.org/wiki/Дизъюнкция ), и обрати внимание a + b, a OR b - разницы нет никакой, кроме эстетики может быть. Почему же и в этом случаи ты опять говоришь, что это "дрянь", все "криво"... не понимаю.

[Xcode]

awl100Alex, выполни этот код и поймешь о какой кривизне идет речь.

Код: Выделить всё

Dim a As Byte
a = vbCenter 'vbCenter = 2
a = a + vbAbort 'vbAbort = 3
Print a
a = a Or vbAbort
Print a

[alibek]

awl100Alex, выполни этот код и поймешь о какой кривизне идет речь.

Поскольку BS_FLAT является степенью двойки, а у кнопки этого стиля нет, то разницы никакой.

[arthur2]

просто в дебагере:

Код: Выделить всё

? 3 + 2
? 3 or 2


А одинаковый результат - только для степеней двойки

[iGrok]

awl100Alex, выполни этот код и поймешь о какой кривизне идет речь.

Поскольку BS_FLAT является степенью двойки, а у кнопки этого стиля нет, то разницы никакой.

Ну да. А потом человек начнёт точно так же применять какой-нить "составной" стиль к окну, у которого уже есть один-два этих стиля, и долго будет думать "А чего это у меня нихрена не работает? Я же всё правильно делаю!".

Опять же, если на основании этого подхода челом будет написана универсальная процедура для "делания кнопочек плоскими", которую он будет применять перебором ко всем кнопкам на форме...

[Хакер]

И чего ты все время такой злой???

Я не злой. Ну даже если считать, что я был злой, я не "всё время". Либо ты замечаешь меня исключительно тогда, когда я "злой", либо ты просто мало бываешь на форуме.
Почему "злой"? Ну не могу я спокойно смотреть, как ничего не подозревающему подпихивают дрянь, а он за это ещё и благодарит.

Поскольку BS_FLAT является степенью двойки, а у кнопки этого стиля нет, то разницы никакой.

Это ведь ты сам выдумал, предположил, что его нет? На самом деле, этот стиль вполне может там быть. Тогда результат непредсказуем.
Это что чисто вопросов функционирования.

А ещё вопрос стиля.

[jangle]

И чего ты все время такой злой???
Вот посмотри здесь ( http://ru.wikipedia.org/wiki/Дизъюнкция ), и обрати внимание a + b, a OR b - разницы нет никакой, кроме эстетики может быть. Почему же и в этом случаи ты опять говоришь, что это "дрянь", все "криво"... не понимаю.

Хакер просто мне завидует, ведь я талантливее его...

[Хакер]

Хакера раздражают твои попытки протолкнуть какую-нибудь дрянь. Например ExitProcess.

[jangle]

Хакера раздражают твои попытки протолкнуть какую-нибудь дрянь. Например ExitProcess.

В отличие от тебя, я дал человеку правильный ответ на его вопрос. Он спрашивал, как из обычной кнопки сделать плоскую.

[awl100Alex]

awl100Alex, выполни этот код и поймешь о какой кривизне идет речь.

Код: Выделить всё

Dim a As Byte
a = vbCenter 'vbCenter = 2
a = a + vbAbort 'vbAbort = 3
Print a
a = a Or vbAbort
Print a

А... вот оно что! Блин... Ну, да я вспомнил... разница действительно есть! Получается, что в Википедии указали «+» и «OR» в отношении именно Дизъюнкции (логического сложения)! А в данном случаи...

a = a + vbAbort – это арифметическая операция.
a = a Or vbAbort – а это логическая.

Результат будет естественно различаться, НО(!) это НЕ кривизна кода!
Все дело в том, что когда происходит логическое сложение, то машина просто суммирует биты числа и получает результат:
5 – 101
3 – 011
7 – 111 – вот это и есть результат логического сложения «OR».

А вот в отношении арифметических операций все не так просто. Сейчас уже не могу вспомнить детально, но точно знаю, что в этом случаи, машина выполняет целую серию(!) логических операций прежде чем получит результат 5+3=8.
Точно не скажу, но кажется, прибавляемое число сначала модифицируется машиной в некий промежуточный код числа за несколько операций логики и только потом складывает и получает 1000 то есть число 8.
Вот вам и разгадка данного артефакта!

Кстати, никто ведь и не обратил внимания, к чему приводит поправка Хакера...
Попробуйте выполнить tmp = tmp Or BS_FLAT – кнопка станет плоской и одновременно с этим ЗАБЛОКИРУЕТСЯ!

И еще одно наблюдение...
Каким-то чудесным образом константа BS_FLAT = &H8000 = 32768 в режиме выполнения, превращается в ОТРИЦАТЕЛЬНОЕ число «-32768». Таким образом tmp + BS_FLAT на самом деле происходит tmp - BS_FLAT и получается &H5400A000.
Почему бы тогда сразу не записать...
Call SetWindowLong(Command1.hWnd, GWL_STYLE, &H5400A000)
Без предварительного получения GetWindowLong если стиль Button Default!?

И кто мне сможет объяснить одну странную вещь...
Почему свойство Appearance = 0 для CommandButton тупо не работает??? Зачем оно тогда кнопке??? К тому же в самом MSDN указано, что все должно работать не только до... но даже во время выполнения -
http://msdn.microsoft.com/ru-ru/library/k1zs8awx.aspx.

[alibek]

Результат будет естественно различаться, НО(!) это НЕ кривизна кода!
Все дело в том, что когда происходит логическое сложение, то машина просто суммирует биты числа и получает результат:

Вау. Кто бы мог подумать.

[alibek]

Кстати, никто ведь и не обратил внимания, к чему приводит поправка Хакера...
Попробуйте выполнить tmp = tmp Or BS_FLAT – кнопка станет плоской и одновременно с этим ЗАБЛОКИРУЕТСЯ!

Не неси чушь. Если ты не понимашь, как функционирует OR, то почитай учебник.

Каким-то чудесным образом константа BS_FLAT = &H8000 = 32768 в режиме выполнения, превращается в ОТРИЦАТЕЛЬНОЕ число «-32768». Таким образом tmp + BS_FLAT на самом деле происходит tmp - BS_FLAT и получается &H5400A000.

Прежде чем делиться такими откровениями, следует задать себе вопрос "а понимаю ли я, для чего используются типы данных? нет? тогда я лучше промолчу".

[jangle]

Кстати, никто ведь и не обратил внимания, к чему приводит поправка Хакера...
Попробуйте выполнить tmp = tmp Or BS_FLAT – кнопка станет плоской и одновременно с этим ЗАБЛОКИРУЕТСЯ!

Действительно кнопка блокируется! Вот спрашивается, кто дрянь советует?

[jangle]

Не неси чушь. Если ты не понимашь, как функционирует OR, то почитай учебник.

Код то сначала запусти, а потом пиши...

[arthur2]

Каким-то чудесным образом константа BS_FLAT = &H8000 = 32768 в режиме выполнения, превращается в ОТРИЦАТЕЛЬНОЕ число «-32768».

Ничего чудесного. &H8000 тип integer. нулевой бит выставлен. Вот и отрицательное.

Чтобы "сошлось с ответом", пиши так: BS_FLAT = &H8000&= 32768
Теперь это - лонг

То есть, &h8000& - это реально &h00008000

(очень может быть, что и заблокированность отсюда вылезла)

a = a + vbAbort – это арифметическая операция.
a = a Or vbAbort – а это логическая.

Вот именно поэтому использовать арифметическую там, где нужна логическая - это фи

[iGrok]

Кстати, никто ведь и не обратил внимания, к чему приводит поправка Хакера...
Попробуйте выполнить tmp = tmp Or BS_FLAT – кнопка станет плоской и одновременно с этим ЗАБЛОКИРУЕТСЯ!

Действительно кнопка блокируется! Вот спрашивается, кто дрянь советует?

Вот тебе и вылез твой изначально кривой код.
Твоя константа укладывается в размер Integer, поэтому она и оказывается Integer'ом.
Потом когда ты выполняешь tmp = tmp Or BS_FLAT у тебя получается что-то вроде tmp = tmp Or CLng(BS_FLAT)
А CLng(&H8000) = &HFFFF8000

Лечится это просто - объявлением константы либо так Private Const BS_FLAT As Long = &H8000, либо так Private Const BS_FLAT = &H8000&

Теперь понятно, откуда ноги растут?

[Хакер]

Действительно кнопка блокируется! Вот спрашивается, кто дрянь советует?

Разумеется ты. Артур (А Игрок ещё и опередил с ответом) выше угадал с причиной блокирования кнопки.

[jangle]

Теперь понятно, откуда ноги растут?

Однако, код работает. Кнопка из обычной становится плоской. Пусть даже и не совсем корректным способом.
Видимо это тот случай, когда одна ошибка - нейтрализует предыдущую.

[iGrok]

Теперь понятно, откуда ноги растут?

Однако, код работает. Кнопка из обычной становится плоской. Пусть даже и не совсем корректным способом.
Видимо это тот случай, когда одна ошибка - нейтрализует предыдущую.

Ага. Нивелирование ошибок не исключено.. Только разве это хорошо?

Когда за код возьмётся другой человек (или тот же, после прочтения пары умных книг), и исправит одну из очевидных ошибок, проявится вторая.
А если это произойдёт в достаточно крупном проекте, поиск второй ошибки может оказаться существенно сложнее, чем сейчас.

[jangle]

Ага. Нивелирование ошибок не исключено.. Только разве это хорошо?

Это плохо. Ну главное, что HBasic получил все таки ответ на свой вопрос. Даже мой пусть неправильный пост, все таки побудил большое количество народу написать сюда. И правильное решение было в конце-концов найдено

[HBasic]

Хакера раздражают твои попытки протолкнуть какую-нибудь дрянь. Например ExitProcess.

В отличие от тебя, я дал человеку правильный ответ на его вопрос. Он спрашивал, как из обычной кнопки сделать плоскую.

Воспользовался вашим советом-работает и не глючит, спасибо.
Только оказалось, что заказчику нужны неплоские кнопки, а нужно так, чтобы они были не кнопками а рисунками, при подводе курсора к которым у них очерчиваються границы, а при нажатии меняеться цвет фона.Придеться делать вручную.Избаловали их этим дизайном, блин.

[jangle]

Воспользовался вашим советом-работает и не глючит, спасибо.
Только оказалось, что заказчику нужны неплоские кнопки, а нужно так, чтобы они были не кнопками а рисунками, при подводе курсора к которым у них очерчиваються границы, а при нажатии меняеться цвет фона.Придеться делать вручную.Избаловали их этим дизайном, блин.

Это также несложно сделать, для создания кнопок-рисунков, которые приподнимаются когда к ним подводишь курсор (как в IE)
можно использовать обычный ToolBar