VBNet - Форум - Ответте девушке...Please!!!

Вопрос: Ответте девушке...Please!!! Добавлено: 09.11.02 19:31

Автор вопроса: Svetlana | ICQ: 262385618

Можно ли сделать форму в виде какой-нибудь картинки, чтобы изображение ложилось не только на саму форму, но и на элементы управления? Если можно, то как это сделать...
Заранее благодарна.

Ответить

Ответы Всего ответов: 3

Номер ответа: 1
Автор ответа:

CyRax

Разработчик Offline Client

ICQ: 204447456

Вопросов: 180
Ответов: 4229

Web-сайт: basicproduction.nm.ru
Профиль | | #1

Добавлено: 09.11.02 19:39

Лучше сделай шкурки (skin) - красивее будет

Ответить

Номер ответа: 2
Автор ответа:

CyRax

Разработчик Offline Client

ICQ: 204447456

Вопросов: 180
Ответов: 4229

Web-сайт: basicproduction.nm.ru
Профиль | | #2

Добавлено: 09.11.02 20:52

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

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 GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Const SRCCOPY = &HCC0020

Private Sub Form_Click()
Dim TextBoxhDc As Long
TextBoxhDc= GetDC(Text1.hwnd)
z = BitBlt(TextBoxhDc, 0, 0, Picture1.Width, Picture1.Height, Picture1.hDC, 0, 0, SRCCOPY)
End Sub

Ответить

Номер ответа: 3
Автор ответа:

CyRax

Разработчик Offline Client

ICQ: 204447456

Вопросов: 180
Ответов: 4229

Web-сайт: basicproduction.nm.ru
Профиль | | #3

Добавлено: 11.11.02 04:03

Кстати можно не накладывать рисунок, а смешивать цвета рисунка и элемента управления.
Для этого замени константу SRCCOPY на SRCAND
Private Const SRCAND = &H8800C6

И ещё. Если ты хочешь растянуть рисунок на элемент управления,
то используй StretchBlt вместо BitBlt.
Private Declare Function StretchBlt Lib "gdi32" Alias "StretchBlt" (ByVal hdc 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 nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long

Ответить

Страница: 1 |