Gradient Button

[13GHOST]

Вот кнопку сделал, по-моему неплохо получилось, но хотелось бы услышать ваше мнение .

[alibek]

Хм... А зачем в UserControl два PictureBox?
Можно обойтись одним только UserControl.

Кроме того, попробуй увеличить кнопку хотя бы до размеров фрейма. Тормозит она уж очень.

[Александр80]

13GHOST, мне понравилось... Красиво...

Но на самом деле тормозит, при увеличении размера...
13GHOST, Вы мододец!

[13GHOST]

Да уж действительно в скорость оставляет желать лучшего - еще бы ей же постоянно приходится перерисовывать кнопку. Подумать надо - может найдется способ сделать её побыстрее. Может кто-нибудь знает как? Над скоростью я еще не работал.
Два picture box'а я сделал затем, чтобы невидно было линии при перерисовки кнопки. Т.е. контрол сначало рисует в первом (невидимом), а только потом сразу же переносит это на второй, т.е. один pic является как бы буфером. Может быть можно было сделать подругому, но я так придумал.

[Faust]

Может быть можно было сделать подругому

Каждый ВБ программер в своей жизни должен сделать 3 вещи: игрушку, кнопку и калькулятор. И хотя кнопок подобных хотя бы на том же vbrussian валом, но каждый вкладывает в них свою душу, порождает кучу уникальных багов, изобретая инкарнацию велосипеда...
Да, перед тем, как переключится в IDE писать Anarchist's Button напишу то, ради чего, собственно, решил ответить: для повышения быстродействия юзай не второй Picture, а API-функции для работы с DC в памяти. Что-то вроде:

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

Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long) As Long
'объявляем всё, что нужно
Dim mDC As Long, mBitmap As Long, W As Long, H As Long, X As Long, Y As Long
'где-то в начале:
    W=100 'ширина
    H=100 'высота
    mDC = CreateCompatibleDC(GetDC(0))
    mBitmap = CreateCompatibleBitmap(GetDC(0),W,H)
    SelectObject mDC, mBitmap
'потом рисуем в нём что-нибудь
    For X=0 to W
    For Y=0 to H
    SetPixel mDC, X, Y, X+Y
    Next Y
    Next X
'копируем в кнопку
    BitBlt Picture1.hdc,0, 0, W, H, mDC, 0, 0, vbSrcCopy
'уходя - гасите свет!
    DeleteDC mDC
    DeleteObject mBitmap


[tyomitch]

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

'потом рисуем в нём что-нибудь
    For X=0 to W
    For Y=0 to H
    SetPixel mDC, X, Y, X+Y
    Next Y
    Next X
'копируем в кнопку
    BitBlt Picture1.hdc,0, 0, W, H, mDC, 0, 0, vbSrcCopy


Не устаю напоминать, что для попиксельной отрисовки лучше и быстрее создание картинки в двумерном массиве и затем SetDIBitsToDevice - при этом даже не нужно создавать свой DC.

[13GHOST]

Все круто - работает гораздо быстрее, но теперь возникает проблема с надписью, которая находится в этом самом Picture

[13GHOST]

Сорри, все ok. Вот новая версия - более быстрая. Кстати если откомпилировать то еще быстрее будет.

[tyomitch]

Сорри, все ok. Вот новая версия - более быстрая. Кстати если откомпилировать то еще быстрее будет.

А вот - сравни - то же, но без левых DC и без SetPixel-а

(чтобы не подумали плохого, предупрежу: GDI+ там нет )

[Mongoose]

2 tyomitch
VB: программа выполнила недопустимую операцию и будет закрыта...
при изменении размеров кнопки на весь экран (1280*1024)

[13GHOST]

А вот - сравни - то же, но без левых DC и без SetPixel-а

Да неплохо, вот только глюконат с цветами - делаешь красный появляется синий и наоборот

[tyomitch]

2 tyomitch
VB: программа выполнила недопустимую операцию и будет закрыта...
при изменении размеров кнопки на весь экран (1280*1024)

А с оригинальным контролом от 13GHOST разве не так же?

[Faust]

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

'потом рисуем в нём что-нибудь
    For X=0 to W
    For Y=0 to H
    SetPixel mDC, X, Y, X+Y
    Next Y
    Next X
'копируем в кнопку
    BitBlt Picture1.hdc,0, 0, W, H, mDC, 0, 0, vbSrcCopy


Не устаю напоминать, что для попиксельной отрисовки лучше и быстрее создание картинки в двумерном массиве и затем SetDIBitsToDevice - при этом даже не нужно создавать свой DC.

Благодарствую! Как раз попиксельные картинки мне приходится рисовать чаще всего. Век живи -век учись!

[13GHOST]

2 tyomitch
VB: программа выполнила недопустимую операцию и будет закрыта...
при изменении размеров кнопки на весь экран (1280*1024)

Еще бы! Я бы удивился если было бы по-другому

[|kerish|]

Для ускорения прорисовки предлагаю использовать обьекты Shape размером 1x1 с нужным цветом, которые нужно подгружать на весь размер кнопки при изменении размера.

Все права защищены. При использовании идеи указывать ссылку на меня.

[13GHOST]

Для ускорения прорисовки предлагаю использовать обьекты Shape размером 1x1 с нужным цветом, которые нужно подгружать на весь размер кнопки при изменении размера.

Чё-то не догнал. Может покажешь на примере

[tyomitch]

Для ускорения прорисовки предлагаю использовать обьекты Shape размером 1x1 с нужным цветом, которые нужно подгружать на весь размер кнопки при изменении размера.

Не верю, что от этого выйдет ускорение.

[|kerish|]

Что-то у вас нет чувства юмора.