Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Картинки ...

Тема: Картинки пунктов меню

15.06.2007 21:04:17

Дрёма

4 сообщения

Тема: Картинки пунктов меню

Как затащить в ComandBarControl не сатандартную картинку (через FaceID), а пиктограмму из файла ICO? Может как-то можно это организовать с помощью метода FacePaste (или PasteFace, не помню)? Но тогда как предварительно засунуть картинку в буфер, например, из ImageList?
Заранее благодарен за ответ(ы).

P.S. Создание меню
Автор: Дрёма от 29.06.2003 17:17:43 Источник ...

15.06.2007 21:04:17

All

4316 сообщения

RE: Картинки пунктов меню

Вставка картинки из ImageList в буфер обмена
Чтение картинки из файла в буфер - примерно одинаково.
Загрузка картинки в ImageList - довольно просто

Public Function PicToClipboard(img As Object, Index As Variant) As Boolean
Dim hBitmap As Long
Dim hDc0 As Long
Dim hDcMem As Long
Dim lpRect As RECT

On Error GoTo 999
hDc0 = GetDC(0)
hDcMem = CreateCompatibleDC(hDc0)
hBitmap = CreateCompatibleBitmap(hDc0, 16, 16)
SelectObject hDcMem, hBitmap
SetRect lpRect, 0, 0, 16, 16
FillRect hDcMem, lpRect, GetSysColorBrush(15)
img.ListImages.Item(Index).Draw hDcMem, , , 1
OpenClipboard (Application.hWndAccessApp)
EmptyClipboard
SetClipboardData 2, hBitmap
PicToClipboard = True
999:
If Err <> 0 Then MsgBox "Ошибка вставки рисунка в буфер обмена" & Chr(13) & Chr(10) & Err.Description
On Error Resume Next
CloseClipboard
DeleteObject hBitmap
DeleteDC hDcMem
ReleaseDC 0, hDc0
Err.Clear
Exit Function
End Function

P.S. Создание меню
Автор: Николай от 0:00:00 Источник ...

15.06.2007 21:04:17

Дрёма

4 сообщения

RE: Картинки пунктов меню

А что делает
hDc0 = GetDC(0) ?

P.S. Создание меню
Автор: Дрёма от 11.07.2003 5:55:35 Источник ...

15.06.2007 21:04:17

All

4316 сообщения

RE: Картинки пунктов меню

GetDC(0) возвращает указатель на контекст рисования экрана (главного экрана)

P.S. Создание меню
Автор: Николай от 0:00:00 Источник ...

15.06.2007 21:04:17

Дрёма

4 сообщения

RE: Картинки пунктов меню

А в какой библиотеке находится GetDC? У меня компилятор на нее ругается, типа, нет такой функции. Видно какая-то библиотека не подключена. Подскажите, пожялуйста.

P.S. Создание меню
Автор: Дрёма от 07.08.2003 10:33:32 Источник ...

Страница 1 из 2

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Картинки ...

Поиск

Список форумов

Начало | Forums