| Вопрос: Программный раздел рисунка | Добавлено: 17.09.04 17:41 |
Автор вопроса:  RomaVis | ICQ: 266287351 |
|
Есть куча программ, которые делают так: есть один рисунок, в котором сразу показано 2 позиции кнопку, к примеру (ну типа нажата, не нажата).
Дак как это в ВБ организовать??? Может АПИ????? |
| Ответы | Всего ответов: 13 |
|
Номер ответа: 1 Автор ответа:  RomaVis ICQ: 266287351 Вопросов: 31 Ответов: 147 |
Профиль | | #1 | Добавлено: 17.09.04 17:42 |
|
П.С. Не раздел, а разрез!!!! |
||
|
Номер ответа: 2 Автор ответа: RomaVisICQ: 266287351 Вопросов: 31 Ответов: 147 |
Профиль | | #2 | Добавлено: 17.09.04 18:11 |
|
Кстати, кто может дать описание АПИ GetObjectA |
||
|
Номер ответа: 3 Автор ответа: CyRax   Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229 |
Web-сайт: Профиль | | #3 | Добавлено: 17.09.04 20:35 |
|
GetObject заполняет специфичную для объекта структуру информацией об объекте.
Структура (пользовательский тип) может быть одна из BITMAP, DIBSECTION, EXTLOGPEN, LOGBRUSH, LOGFONT, or LOGPEN. Private Declare Function GetObject Lib "gdi32.dll" Alias "GetObjectA" ( _ ByVal hObject As Long, _ ByVal nCount As Long, _ ByRef lpObject As Any) As Long hObject - логический номер объекта. Его возвращают функции, создающие объект. Такие как CreateBITMAP, CreateDIBSection и т.д. nCount - длина структуры. Например: Dim B as BITMAP: nCount=LEN(B) lpObject - Структура, специфичная для объекта, которую функция заполнит информацией. Передаётся по ссылке (ByRef) или можно ByVal её адреса (например ByVal VarPtr(B)). |
||
|
Номер ответа: 4 Автор ответа: CyRax Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229 |
Web-сайт: Профиль | | #4 | Добавлено: 17.09.04 20:36 |
| Пример есть в API-Guide | ||
|
Номер ответа: 5 Автор ответа: Tigre Вопросов: 34 Ответов: 63 |
Профиль | | #5 | Добавлено: 17.09.04 20:36 |
|
Можно использовать свойство PaintPicture:
object.PaintPicture picture, xl, yl, width1, height1, x2, y2, width2, height2, opcode а можно, и помоему лучше, использовать контрол PictureClip: PictureClip1.Picture = LoadPicture("Адрес рисунка" 
PictureClip1.Cols = 2 PictureClip1.Rows = 1 Picture1.Picture = PictureClip1.GraphicCell(1) Picture1.Picture = PictureClip1.GraphicCell(2) |
||
|
Номер ответа: 6 Автор ответа: TigreВопросов: 34 Ответов: 63 |
Профиль | | #6 | Добавлено: 17.09.04 20:41 |
|
Ощибся. Последняя строчка:
Picture2.Picture = PictureClip1.GraphicCell(2) |
||
|
Номер ответа: 7 Автор ответа: RomaVisICQ: 266287351 Вопросов: 31 Ответов: 147 |
Профиль | | #7 | Добавлено: 18.09.04 12:27 |
|
Не, а где этот API-guide ?????? |
||
|
Номер ответа: 8 Автор ответа: RomaVisICQ: 266287351 Вопросов: 31 Ответов: 147 |
Профиль | | #8 | Добавлено: 18.09.04 12:28 |
|
И вы хотя-бы пример не можете дать?????? |
||
|
Номер ответа: 9 Автор ответа: RomaVisICQ: 266287351 Вопросов: 31 Ответов: 147 |
Профиль | | #9 | Добавлено: 18.09.04 12:41 |
|
А PictureCLip не годится - он режет одинаковыми кусками. |
||
|
Номер ответа: 10 Автор ответа: RomaVisICQ: 266287351 Вопросов: 31 Ответов: 147 |
Профиль | | #10 | Добавлено: 18.09.04 12:42 |
|
Просто мне надо зделать так: типа сверху у рисунка большая часть (фон формы), а снизу - рисунки CommandButton'ов |
||
|
Номер ответа: 11 Автор ответа: dNWВопросов: 30 Ответов: 683 |
Профиль | | #11 | Добавлено: 18.09.04 13:03 |
| API-Guide на сайте allapi.net | ||
|
Номер ответа: 12 Автор ответа: TigreВопросов: 34 Ответов: 63 |
Профиль | | #12 | Добавлено: 18.09.04 16:07 |
| А PaintPicture не пойдёт? | ||
|
Номер ответа: 13 Автор ответа: RomaVisICQ: 266287351 Вопросов: 31 Ответов: 147 |
Профиль | | #13 | Добавлено: 19.09.04 18:46 |
|
Пасиба, Tigre!! Подходит, пока подходит 
|
||
Страница: 1 |