| Вопрос: CommandButton Style | Добавлено: 05.03.05 17:21 |
Автор вопроса:  AgentFire | ICQ: 192496851 |
| Кому-нибудь известно, как создать кнопку на форме, чтоб ее вид был, как в XP(соответственно схеме ХР)? А то уже задолбало смотреть на квадратные кнопки! |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #1 | Добавлено: 05.03.05 22:24 |
Создай свою 
|
||
|
Номер ответа: 2 Автор ответа: AgentFireICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #2 | Добавлено: 06.03.05 12:08 |
| Хм! Хочешь сказать, каждая програ имеет набор(!, т.к. предусматривается каждая схема) кнопок? | ||
|
Номер ответа: 3 Автор ответа: AgentFireICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #3 | Добавлено: 06.03.05 12:09 |
| Хм! Хочешь сказать, каждая програ имеет набор(!, т.к. предусматривается каждая схема) кнопок? Нет, должен быть другой вариант через API | ||
|
Номер ответа: 4 Автор ответа: Mihalыch ICQ: 373-509-101 Вопросов: 56 Ответов: 330 |
Профиль | | #4 | Добавлено: 06.03.05 14:06 |
|
Создай текстовый файл, помести в него вот это:
<?xml version="1.0" encoding="UTF-8" standalone="yes"?> <assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0"> <assemblyIdentity version="1.0.0.0" processorArchitecture="x86" name="prjThemed" type="win32" /> <dependency> <dependentAssembly> <assemblyIdentity type="win32" name="Microsoft.Windows.Common-Controls" version="6.0.0.0" processorArchitecture="x86" publicKeyToken="6595b64144ccf1df" language="*" /> </dependentAssembly> </dependency> </assembly> Переименуй файл “Имя исполняемого файла твоей программы” & “.exe” & “.MANIFEST” Добавь модуль, в него помести этот код: Option Explicit Private Type tagInitCommonControlsEx lngSize As Long lngICC As Long End Type Private Declare Function InitCommonControlsEx Lib "comctl32.dll" (iccex As tagInitCommonControlsEx) As Boolean Private Const ICC_USEREX_CLASSES = &H200 Public Function InitCommonControlsXP() As Boolean On Error Resume Next Dim iccex As tagInitCommonControlsEx With iccex .lngSize = Len(iccex) .lngICC = ICC_USEREX_CLASSES End With InitCommonControlsEx iccex InitCommonControlsXP = CBool(Err = 0) End Function В форме загружаемой первой помести этот код: Option Explicit Private Sub Form_Initialize() InitCommonControlsXP End Sub Работать будет только в “exe”. Может не самый лучший способ, но для кнопок работает нормально. Действует для всех стандартных ЭУ, для нестандартных тоже можно, но уже с помощью CreateWinowEx… Небольшие проблемы с OptionButton, их нужно помещать в PictureBox. |
||
|
Номер ответа: 5 Автор ответа: AgentFireICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #5 | Добавлено: 08.03.05 22:25 |
| О! Рульно!!! Пасибо огромное!!!! | ||
Страница: 1 |