VBNet - Форум - баг с Flat / 3D buttons

Вопрос: баг с Flat / 3D buttons Добавлено: 08.04.03 18:26

Автор вопроса: hudson

В VB6 встретил такой баг:
у стандартной кнопки по дефолту аттрибут "Appearance" установлен в 3D. Если изменить его на Flat, то кнопка остается такой же как и с аттрибутом 3D. У остальных компонентов изменение аттрибутов работает нормально... В чем тут может быть проблема???

Ответить

Ответы Всего ответов: 10

Номер ответа: 1 Автор ответа: Gravity Вопросов: 6 Ответов: 120	Профиль \| \| #1	Добавлено: 08.04.03 19:02
	Вряд ли это глюк .... ну такое Билл ГЕЙтс ну точно бы исправил ... мне кажется это для таких как ты чтобы побольше спрашивали )) Ответить

Номер ответа: 2
Автор ответа:

hudson

Вопросов: 3
Ответов: 4

Профиль | | #2

Добавлено: 08.04.03 19:47

2 Gravity : Ну и как же тогда получить "Flat" баттон в Васике???

Ответить

Номер ответа: 3
Автор ответа:

User Unknown

Вечный Юзер!

ICQ: uu@jabber.cz

Вопросов: 120
Ответов: 3302

Профиль | | #3

Добавлено: 08.04.03 19:52

Можно свой написать. Из пары лейблов))

Ответить

Номер ответа: 4
Автор ответа:

hudson

Вопросов: 3
Ответов: 4

Профиль | | #4

Добавлено: 08.04.03 19:57

2 User Unknown:

Можно, но в данном случае нужна стандартная.....

2 ALL:

Это что вообще никак не лечится???

Ответить

Номер ответа: 5 Автор ответа: *CyRax* Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229	Web-сайт: basicproduction.nm.ru Профиль \| \| #5	Добавлено: 08.04.03 22:06
	Ну подумай логически. Где ты видел в винде плоские кнопки ? Используй лучше тулбар. Ответить

Номер ответа: 6 Автор ответа: Gravity Вопросов: 6 Ответов: 120	Профиль \| \| #6	Добавлено: 08.04.03 22:07
	hudson нее не лечится ....придёться свой контрол делать ... Ответить

Номер ответа: 7
Автор ответа:

Access

Вопросов: 0
Ответов: 32

Web-сайт: -
Профиль | | #7

Добавлено: 09.04.03 15:55

Ну в общем-то можно...

Private Declare Function GetWindowLong& Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long)

Private Declare Function SetWindowLong& Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long)

Private Const BS_NULL& = 1

Private Const BS_BOTTOM& = &H800&

Private Const BS_BITMAP& = &H80&

Private Const BS_AUTORADIOBUTTON& = &H9&

Private Const BS_AUTOCHECKBOX& = &H3&

Private Const BS_AUTO3STATE& = &H6&

Private Const BS_3STATE& = &H5&

Private Const BS_CENTER& = &H300&

Private Const BS_CHECKBOX& = &H2&

Private Const BS_DEFPUSHBUTTON& = &H1&

Private Const BS_DIBPATTERN& = 5

Private Const BS_DIBPATTERN8X8& = 8

Private Const BS_DIBPATTERNPT& = 6

Private Const BS_FLAT& = &H8000&

Private Const BS_ICON& = &H40&

Private Const BS_HOLLOW& = BS_NULL

Private Const BS_HATCHED& = 2

Private Const BS_GROUPBOX& = &H7&

Private Const BS_INDEXED& = 4

Private Const BS_LEFT& = &H100&

Private Const BS_LEFTTEXT& = &H20&

Private Const BS_MULTILINE& = &H2000&

Private Const BS_NOTIFY& = &H4000&

Private Const BS_OWNERDRAW& = &HB&

Private Const BS_PATTERN& = 3

Private Const BS_PATTERN8X8& = 7

Private Const BS_PUSHBUTTON& = &H0&

Private Const BS_PUSHLIKE& = &H1000&

Private Const BS_RADIOBUTTON& = &H4&

Private Const BS_RIGHT& = &H200&

Private Const BS_RIGHTBUTTON& = &H20&

Private Const BS_SOLID& = 0

Private Const BS_TEXT& = 0&

Private Const BS_TOP& = &H400&

Private Const BS_USERBUTTON& = &H8&

Private Const BS_VCENTER& = &HC00&

Private Const GWL_EXSTYLE& = (-20)

Private Const GWL_HINSTANCE& = (-6)

Private Const GWL_HWNDPARENT& = (-8)

Private Const GWL_ID& = (-12)

Private Const GWL_STYLE& = (-16)

Private Const GWL_USERDATA& = (-21)

Private Const GWL_WNDPROC& = (-4)

Private Sub Form_Load()

Dim tmpValue&, mskNoStyle&

tmpValue& = BS_PUSHBUTTON & BS_FLAT

'Remove all the style bits from the button

mskNoStyle& = GetWindowLong&(Command1.hwnd, GWL_STYLE) And Not (BS_AUTOCHECKBOX Or _

BS_RADIOBUTTON Or BS_3STATE _

Or BS_GROUPBOX Or BS_ICON Or BS_PUSHBUTTON)

dl& = SetWindowLong&(Command1.hwnd, GWL_STYLE, mskNoStyle& Or tmpValue&)

Command1.Refresh

End Sub

Ответить

Номер ответа: 8
Автор ответа:

Gravity

Вопросов: 6
Ответов: 120

Профиль | | #8

Добавлено: 10.04.03 07:01

Да ваще нафиг эти плоские кнопки нужны ????????!!!!!!!!!!!!!

Ответить

Номер ответа: 9 Автор ответа: Миха ICQ: 394243 Вопросов: 20 Ответов: 151	Web-сайт: www.visualbasic.boom.ru Профиль \| \| #9	Добавлено: 19.04.03 20:32
	Метод flat не виден визуально (но для кодинга он где-то учитывается ,это я помню). Нахрен тебе вообще надо енто Ответить

Номер ответа: 10
Автор ответа:

JONick

Вопросов: 10
Ответов: 88

Web-сайт: eminemrap.h1.ru
Профиль | | #10

Добавлено: 20.04.03 00:42

можешь взять с vbstreets или я могу выслать спец. флат и не только кнопки...

Ответить

Страница: 1 |