Использование GDI+ в VB6

[VictorVM]

Существует ли в природе описание API функций GDI+ для VB6 типа WIN32API.txt? Буду очень признателен за помощь.

Виктор

[tyomitch]

Существует, но моя обёртка лучше.

[Kovu]

Держи

[VictorVM]

Я не понял, что значит "держи"?

[VictorVM]

Прошу прощения аттачмент не увидел.
Спасибо за пример и декларации.
Буду копать.
Сразу вопрос: Объявления "ByVal graphics As Long" имеют что нить общее с HDC?

С уважением Виктор.

[GSerg]

VictorVM
Сказанное Тёмычем существенно лучше сказанного Kovu.

И нет, ByVal graphics As Long не имеет ничего общего с HDC.

[Kovu]

GSerg
Если ради пары функций из GDI+ надо таскать обертку.....кароче легче самому сделать
VictorVM
graphics делается из hDc с помощью GdipCreateFromHDC
Где первый параметр хэндл DC из которой мы делаем graphics, а второй собственно возвращаемый graphics

[pronto]

Обертка tyomitch'а па VB6pro под Win98SE выдает:

Run-time error '429'
ActiveX component can't create object

Что ему треба в таком разе?

[GSerg]

Не ему, а тебе. Зарегистрировать её. И установить GDI+.

[VictorVM]

Не получается запустить библиотеку GDI+. При попытке выполнить функцию GdiplusStartup:

Dim tok as Long
Dim ibuf As GdiplusStartupInput
gps = GdiplusStartup (tok, ibuf)

возвращает код ошибки №17(UnsupportedGdiplusVersion). Крутил по всякому. Ничего не получается. Может нужно инициализировать структуру GdiplusStartupInput? Если не трудно покажи какой нибудь пример. Самый крохотный.

С уважением Виктор

[GSerg]

Вообще-то надо документацию читать.

Dim p As GdiplusStartupInput
p.GdiplusVersion = 1
GdiplusStartup Token, p, ByVal 0&

Пользуйся обёрткой...

[VictorVM]

Нифига не идёт. Вроде всё работает, но ничего не рисует. Подскажите в чём проблема? Примерчик простенький. В коде формы пишу:


Dim graph As Long
Dim tok As Long
Dim hPenRed As Long

Private Sub Form_Load()
Dim p As GdiplusStartupInput
p.GdiplusVersion = 1
ret = GdiplusStartup(tok, p, ByVal 0&)
ret = GdipCreateFromHDC(hdc, graph)
ret = GdipCreatePen1(vbRed, 5, UnitPixel, hPenRed)
End Sub

Private Sub Form_Paint()
ret = GdipDrawEllipseI(graph, hPenRed, 50, 50, 100, 100)
End Sub

Private Sub Form_Unload(Cancel As Integer)
ret = GdipDeletePen(hPenRed)
GdiplusShutdown tok
End Sub

[GSerg]

Graphics каждый раз надо заново создавать. И autoredraw учти. И начни читать документацию, наконец.

[tyomitch]

VictorVM, ты всерьёз, что ли, собрался освоить GDI+ методом тыка?

[Kovu]

Graphics каждый раз надо заново создавать.

Обоснуй

[GSerg]

Иначе будешь рисовать по старому рисунку.

[Kovu]

Извини за назойливость, но каким образом создание новой graphics уберет то что рисуется на DC ?

[GSerg]

Наоборот. Несоздание нового graphics не позволит увидеть изменения.

[Kovu]

Не угадал, используя один graphics можно рисовать хоть всю программу и видеть изменения . Попробуй скажем в формлоад создать графикс из формы, и порисовать в маусмув скажем линии. Все изменения прекрасно видны

[GSerg]

Kovu
Некоторое время назад я писал на заказ контрол на GDI+, который отображал фоновую png-картинку и позволял перемещать по ней произвольное количество других картинок поменьше, задавая этим картинкам любой tint.
Да, это были зубы. Это был контрол для дантиста. Он отображал зубы и позволял рисовать на них разноцветные перемещаемые символы "кариес". Со стрелочками а-ля "См. сюда, студент".

Так вот, если в процедуре Redraw() данного контрола использовать один и тот же graphics, то не были видны перемещения кариеса по зубам, равно как его добавление и удаление, не говоря уже о изменении tint отдельных image. Как только в процедуре Redraw() стал использоваться новый graphics, всё стало отображаться правильно.

Я сделал определённые выводы из написания этого контрола и придерживаюсь их с тех пор.

[Kovu]

GSerg
Видимо я делаю что-то не так что у меня норм обновляется, а может просто ситуация другая

[VictorVM]

Парни может всё-таки с примером поможете? Или подскажите где можно почитать.

Виктор

[GSerg]

http://msdn.microsoft.com/library/en-us ... latapi.asp

[VictorVM]

Тут я уже смотрел. В MSDN есть такой сишный пример:

Неиспользование форматирования кода есть неуважение к участникам форума.

Код: Выделить всё

#define UNICODE
#include <windows.h>
#include <gdiplus.h>
using namespace Gdiplus;

VOID OnPaint(HDC hdc)
{
   Graphics graphics(hdc);
   Pen      pen(Color(255, 0, 0, 255));
   graphics.DrawLine(&pen, 0, 0, 200, 100);
}

LRESULT CALLBACK WndProc(HWND, UINT, WPARAM, LPARAM);

INT WINAPI WinMain(HINSTANCE hInstance, HINSTANCE, PSTR, INT iCmdShow)
{
   HWND                hWnd;
   MSG                 msg;
   WNDCLASS            wndClass;
   GdiplusStartupInput gdiplusStartupInput;
   ULONG_PTR           gdiplusToken;
   
   // Initialize GDI+.
   GdiplusStartup(&gdiplusToken, &gdiplusStartupInput, NULL);
   
   wndClass.style          = CS_HREDRAW | CS_VREDRAW;
   wndClass.lpfnWndProc    = WndProc;
   wndClass.cbClsExtra     = 0;
   wndClass.cbWndExtra     = 0;
   wndClass.hInstance      = hInstance;
   wndClass.hIcon          = LoadIcon(NULL, IDI_APPLICATION);
   wndClass.hCursor        = LoadCursor(NULL, IDC_ARROW);
   wndClass.hbrBackground  = (HBRUSH)GetStockObject(WHITE_BRUSH);
   wndClass.lpszMenuName   = NULL;
   wndClass.lpszClassName  = TEXT("GettingStarted");
   
   RegisterClass(&wndClass);
   
   hWnd = CreateWindow(
      TEXT("GettingStarted"),   // window class name
      TEXT("Getting Started"),  // window caption
      WS_OVERLAPPEDWINDOW,      // window style
      CW_USEDEFAULT,            // initial x position
      CW_USEDEFAULT,            // initial y position
      CW_USEDEFAULT,            // initial x size
      CW_USEDEFAULT,            // initial y size
      NULL,                     // parent window handle
      NULL,                     // window menu handle
      hInstance,                // program instance handle
      NULL);                    // creation parameters
    
   ShowWindow(hWnd, iCmdShow);
   UpdateWindow(hWnd);
   
   while(GetMessage(&msg, NULL, 0, 0))
   {
      TranslateMessage(&msg);
      DispatchMessage(&msg);
   }
   
   GdiplusShutdown(gdiplusToken);
   return msg.wParam;
}  // WinMain

LRESULT CALLBACK WndProc(HWND hWnd, UINT message,
   WPARAM wParam, LPARAM lParam)
{
   HDC          hdc;
   PAINTSTRUCT  ps;
   
   switch(message)
   {
   case WM_PAINT:
      hdc = BeginPaint(hWnd, &ps);
      OnPaint(hdc);
      EndPaint(hWnd, &ps);
      return 0;
   case WM_DESTROY:
      PostQuitMessage(0);
      return 0;
   default:
      return DefWindowProc(hWnd, message, wParam, lParam);
   }
} // WndProc

По сути он аналогичен следующему коду на VB:

Код: Выделить всё

Dim graph As Long
Dim tok As Long
Dim hPenRed As Long
Dim p As GdiplusStartupInput

Private Sub Form_Load()
    p.GdiplusVersion = 1
    ret = GdiplusStartup(tok, p, ByVal 0&)
End Sub

Private Sub Form_Paint()
    ret = GdipCreateFromHDC(hdc, graph)
    ret = GdipCreatePen1(vbRed, 5, UnitPixel, hPenRed)
    ret = GdipDrawLine(graph, hPenRed, 0, 0, 200, 100)
End Sub

Private Sub Form_Unload(Cancel As Integer)
    ret = GdipDeleteGraphics(graph)
    ret = GdipDeletePen(hPenRed)
    GdiplusShutdown tok
End Sub

Но только нифигаааааааааааааа не работает!

Виктор

[tyomitch]

VictorVM, не проще ли будет разобраться с моей обёрткой?

С ней весь код будет состоять из одной строчки:

Код: Выделить всё

Private Sub Form_Paint()
CreateGraphics(hDC).DrawLine CreatePen(ARGB(vbRed), 5), 0, 0, 200, 100
End Sub


Причём он -- что весьма приятно -- ещё и будет работать

[GSerg]

Хочу повторить вопрос Тёмыча - ты правда хочешь изучить GDI+ методом тыка?

Во-первых, у тебя жуткая утечка ресурсов, поскольку при каждом paint создаются новые graphics и pen, а уничтожается только последняя пара. В сишном коде этого нет, там классы, которые сами дохнут при выходе из области видимости.
Во-вторых, цвет в заявлен формате ARGB, если передать vbRed, получишь vbBlue.
И наконец, всё рисуется, просто цвет заявлен в формате ARGB, где A - альфа-канал, который у тебя равен 0, т.е. 100% прозрачность. Смотрим сишный код. Color(255, 0, 0, 255); Делаем выводы и пробуем &hFF000000& Or vbRed.

И убери утечку ресурсов эту жуткую.

[Viper]

а нефига - эт сколько? что-то же должно работать? Да и с идентичностью кода мягко говоря не все здорово

[VictorVM]

Всё! Разобрался! Действительно "&hFF000000& Or vbRed" в создании пера сняло все проблемы.
Насчёт прямотаки "жуткой утечки ресурсов" полностью согласен. Просто когда эксперементировал, попробовал совет GSerg:
"Graphics каждый раз надо заново создавать".
Короче всё теперь выглядит чудно:

Код: Выделить всё


Dim graph As Long, tok As Long, hPenRed As Long
Dim p As GdiplusStartupInput

Private Sub Form_Load()
    p.GdiplusVersion = 1
    ret = GdiplusStartup(tok, p, ByVal 0&)
    ret = GdipCreatePen1(&HFF000000 Or vbRed, 5, UnitPixel, hPenRed)
    ret = GdipCreateFromHDC(hdc, graph)
End Sub

Private Sub Form_Paint()
    ret = GdipDrawLine(graph, hPenRed, 0, 0, 200, 100)
End Sub

Private Sub Form_Unload(Cancel As Integer)
    ret = GdipDeleteGraphics(graph)
    ret = GdipDeletePen(hPenRed)
    GdiplusShutdown tok
End Sub


[st@s]

не проще ли будет разобраться с моей обёрткой?

Да нет её там.

[tyomitch]

не проще ли будет разобраться с моей обёрткой?

Да нет её там.

Хостеры озверели. Воспользовались моим продолжительным отсутствием.
Последняя версия библиотеки приаттачена; пример использования придётся поискать.