Прозрачность...

[Shasha]

Подскажите как сделать форму прозрачной, но что бы при этом рисунок в пикчербоексе не изменялся(не становился прозрачным).
примеры нашол-вся форма и со всеми элементами становится прозрачной...

[keks-n]

От региона формы откусываешь регион твоего PictureBox'а, и работаешь с оставшимся регионом. Регион PictureBox'а это уже не затронет.

[Shasha]

keks-n,что такое регион?
можно по подробнее?

[keks-n]

Где-то статья валялась, щас поищу.

[Shasha]

keks-n, хорошо бы.
если не найдётся-примерно опиши.

[keks-n]

Слеплено на скорую руку из какого-то оч. длинного примера.
На форме Picture1
В форму:

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


Option Explicit
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal Hrgn As Long, ByVal bRedraw As Boolean) As Long
Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long
Private Const RGN_DIFF = 4
Private Const RGN_OR = 2


Private Sub Form_Load()
RebuildWindowRgn
End Sub

Sub RebuildWindowRgn()
Dim FullRgn As Long
Dim Rgn As Long
Form1.ScaleMode = 3
FullRgn = CreateRectRgn(0, 0, Me.Width, Me.Height)
Rgn = CreateRectRgn(0, 0, Me.Width, Me.Height)
CombineRgn FullRgn, FullRgn, Rgn, RGN_DIFF
Rgn = CreateRectRgn(Picture1.Left + 2, (Picture1.Top + 22), (Picture1.Left + Picture1.Width + 2), (Picture1.Top + Picture1.Height + 22))
CombineRgn FullRgn, FullRgn, Rgn, RGN_OR
SetWindowRgn Form1.hWnd, FullRgn, True
End Sub


Форма прозрачна а PictureBox-нет, или тебе не так надо?

[Shasha]

keks-n, именно так!
а как мона сделать что бы мышкой этот рисунок таскать?
код для передвижения формы не походит.

[keks-n]

Делаешь стандартный Drag&Drop по форме, а потом RebuildWndRegion(или какая там функция была?), тока параметры формы:

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


Me.Top = 0
Me.Left = 0
Me.Width = Screen.Width
Me.Height = Screen.Height


И ты таскаешь как-бы по форме.

А еще можно, когда левая кнопка зажата на PictureBox'е , отслеживать передвижение мыши и двигать форму вместе с ней, что на мой взгляд ЛУЧШЕ.

Могёт быть Щас напишу код.

[keks-n]

От он код:

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

Option Explicit
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal Hrgn As Long, ByVal bRedraw As Boolean) As Long
Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long
Private Const RGN_DIFF = 4
Private Const RGN_OR = 2
'Именилось это:
'------------------------------------------------
Dim Drop As Boolean
'------------------------------------------------
Public Sub RebuildWindowRgn()
Dim FullRgn As Long
Dim Rgn As Long
Me.ScaleMode = 3
FullRgn = CreateRectRgn(0, 0, Me.Width, Me.Height)
Rgn = CreateRectRgn(0, 0, Me.Width, Me.Height)
CombineRgn FullRgn, FullRgn, Rgn, RGN_DIFF

Rgn = CreateRectRgn(Picture1.Left + 2, (Picture1.Top + 22), (Picture1.Left + Picture1.Width + 2), (Picture1.Top + Picture1.Height + 22))
CombineRgn FullRgn, FullRgn, Rgn, RGN_OR
SetWindowRgn Me.hWnd, FullRgn, True
End Sub


Private Sub Form_Load()
RebuildWindowRgn
End Sub
'И это:
'---------------------------------------------------
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Drop = True
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If Drop Then
Me.ScaleMode = 1
Me.Left = Me.Left + x
Me.Top = Me.Top + y
End If
End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
Drop = False
End Sub
'------------------------------------------------


Форма та же.


З.Ы. Двигается немного криво, но наверное сам поправишь, если надо(ничего ведь страшного в таскании за верхний левый угол нет )

[Shasha]

keks-n, использовал последний код. недостатком является что за угол, покапаюсь в коде мож чего и нашкребу...
у пикчербока поставил в бордерстайл-0 и апперансе -0 вроде чисто картинка, но как сделать что бы область пикчер бокса была прозрачной???

[keks-n]

Прозрачной? Мдя, когда-то долго с этим парился(пытался сделать игруху графическими средствами VB, но перешел на DirectX).

В твоём случае надо от PictureBox'а откусывать регионы, пока не достигнешь перозрачности фона.

З. Ы. Не знаешь, что с форумом вчера было? Писал, что к базе данных не могёт законнектиться.

[keks-n]

Прозрачной? Мдя, когда-то долго с этим парился(пытался сделать игруху графическими средствами VB, но перешел на DirectX).

В твоём случае надо от PictureBox'а откусывать регионы, пока не достигнешь перозрачности фона.

З. Ы. Не знаешь, что с форумом вчера было? Писал, что к базе данных не могёт законнектиться.

[keks-n]

Прозрачной? Мдя, когда-то долго с этим парился(пытался сделать игруху графическими средствами VB, но перешел на DirectX).

В твоём случае надо от PictureBox'а откусывать регионы, пока не достигнешь перозрачности фона.

З. Ы. Не знаешь, что с форумом вчера было? Писал, что к базе данных не могёт законнектиться.

[keks-n]

Прозрачной? Мдя, когда-то долго с этим парился(пытался сделать игруху графическими средствами VB, но перешел на DirectX).

В твоём случае надо от PictureBox'а откусывать регионы, пока не достигнешь перозрачности фона.

З. Ы. Не знаешь, что с форумом вчера было? Писал, что к базе данных не могёт законнектиться.

[keks-n]

Прозрачной? Мдя, когда-то долго с этим парился(пытался сделать игруху графическими средствами VB, но перешел на DirectX).

В твоём случае надо от PictureBox'а откусывать регионы, пока не достигнешь перозрачности фона.

З. Ы. Не знаешь, что с форумом вчера было? Писал, что к базе данных не могёт законнектиться.

[keks-n]

Не могу прибить повторы поста
МОДЕРЫ убейте ИХ!

[keks-n]

keks-n, использовал последний код. недостатком является что за угол, покапаюсь в коде мож чего и нашкребу...
у пикчербока поставил в бордерстайл-0 и апперансе -0 вроде чисто картинка, но как сделать что бы область пикчер бокса была прозрачной???

http://bbs.vbstreets.ru/viewtopic.php?p=159683#159683