Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
 
Рейтинг 4.52/23: Рейтинг темы: голосов - 23, средняя оценка - 4.52
turboq
156 / 156 / 12
Регистрация: 14.01.2010
Сообщений: 1,448
1

пиксели рисунка

26.01.2010, 12:44. Просмотров 4226. Ответов 22
Метки нет (Все метки)

Всем привет.
Нужно мне получить доступ к пикселям выделенного рисунка, читать и изменять их. И так чтоб работало как можно быстрее.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.01.2010, 12:44
Ответы с готовыми решениями:

Сохранение Рисунка из Word в отдельный файл Рисунка
Ситуация следующая. В документе Word есть рисунок, его надо преобразовать в...

Пиксели, поинты, твипы и DPI!
Уважаемые коллеги! Помогите разобраться с пикселями, поинтами, твипами и DPI!...

Привязка рисунка в колонтитул
Вставляю рисунок в колонтитул, но при переносе книги, рисунок теряется... Куда...

Задать формат рисунка
Вставляю в колонтитулы рисунок: ActiveWindow.ActivePane.View.SeekView =...

Вставка анимированного рисунка
Доброго всем времени суток. Вопрос такой - можно ли и как если можно вставить...

22
turboq
156 / 156 / 12
Регистрация: 14.01.2010
Сообщений: 1,448
30.01.2010, 20:33  [ТС] 21
Кстати в вб кажется был image и PictureBox на нем и рисовать можно но его нету. Единственный способ который я вижу это создать холст (точно не помню как называется) и рисовать на чистых апи.
0
turboq
156 / 156 / 12
Регистрация: 14.01.2010
Сообщений: 1,448
01.02.2010, 17:50  [ТС] 22
Что никто не знает?
0
Beralus
26 / 26 / 5
Регистрация: 30.01.2010
Сообщений: 84
02.02.2010, 01:24 23
Лучший ответ Сообщение было отмечено как решение

Решение

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
' Блогодаря  KPD-Team
'URL: [url]http://www.allapi.net/[/url]
 
Private Type BITMAP
    bmType As Long
    bmWidth As Long
    bmHeight As Long
    bmWidthBytes As Long
    bmPlanes As Integer
    bmBitsPixel As Integer
    bmBits As Long
End Type
 
Private Declare Function GetObject Lib "gdi32" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long
Private Declare Function GetBitmapBits Lib "gdi32" (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long
Private Declare Function SetBitmapBits Lib "gdi32" (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long
 
Dim PicBits() As Byte, PicInfo As BITMAP
Dim Cnt As Long, LineBytes As Long
 
Private Sub CommandButton1_Click()
 
    'Image1.Picture = LoadPicture("c:\images\edit.bmp")
    GetObject Image1.Picture, Len(PicInfo), PicInfo
    LineBytes = (PicInfo.bmWidth * 3 + 3) And &HFFFFFFFC
    ReDim PicBits(1 To LineBytes * PicInfo.bmHeight * 3) As Byte
    GetBitmapBits Image1.Picture, UBound(PicBits), PicBits(1)
 
    For Cnt = 1 To UBound(PicBits)
        PicBits(Cnt) = PicBits(Cnt) Xor 127 'test 
    
    Next Cnt
   
    SetBitmapBits Image1.Picture, UBound(PicBits), PicBits(1)
    
 End Sub
Кажется не легкая задача.. Получить HDC Уже другое дело...
и объект Image1 (объект типа изображение) не иммет метод Refresh
Я вместо Refresh -а сворочивал и развороч-ал окно ...
Если разберешся что за PicBits тогда имеешь полный доступ к пиктурэ
... Кажется без АПИ не обойдешся.
3
02.02.2010, 01:24
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.02.2010, 01:24

Преобразование рисунка в символ
Здравствуйте! Есть задача распарсить файл для переноса данных в базу. Исходный...

Хранение рисунка в .xlam
Всем добрый день! Подскажите пожалуйста, как в надстройке сохранить рисунок,...

Вставка рисунка в форму с листа
Kто может знает другой способ.. Необходимо создать IQ тест в экселе с...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
23
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru