Form Transparency

Transparency

Hey guys. I've been browsing this for the whole time but nothing has worked for me.

I'm trying to make a custom form that has shadows but there is a problem when at the background picture.

Picture

@Liz,
Thanks for reminding. I'm just having problems with the screenshot.
Anyway, I have removed it.

*Removed attachment.
*Changed into screenshot
*FAIL: Wrong title

@nathanael890
Screenshots + 2 virus scans

@Liz lol hee's not releaseing...
Opacity down in the property's

Originally Posted by SubCub

@Liz lol hee's not releaseing...
Opacity down in the property's

Oops.. Wrong title. *FAILED*

What I mean to remove is those red colors from the image. It has shadows in those parts. Not the form itself.

Photoshop?????

Originally Posted by SubCub

Photoshop?????

The shadows still appears like in the image even when I changed it.

... .

LOL Forget What is Said ..
Didn't read it well

Here is how to do it:
1. Click On Your Form
2. Set FormBorderStyle to None
3. Now u can't drag the Form anymore but you can make a custom one
4. Get a panel

Code:

Public Class Form1
    Private IsFormBeingDragged As Boolean = False
    Private MouseDownX As Integer
    Private MouseDownY As Integer
    Private Sub Panel1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown
        If e.Button = MouseButtons.Left Then
            IsFormBeingDragged = True
            MouseDownX = e.X
            MouseDownY = e.Y
        End If
    End Sub
    Private Sub Panel1_MouseMove1(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseMove
        If IsFormBeingDragged Then
            Dim temp As Point = New Point()

            temp.X = Me.Location.X + (e.X - MouseDownX)
            temp.Y = Me.Location.Y + (e.Y - MouseDownY)
            Me.Location = temp
            temp = Nothing
        End If
    End Sub
    Private Sub Panel1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseUp
        If e.Button = MouseButtons.Left Then
            IsFormBeingDragged = False
        End If
    End Sub
End Class

5. Debug and try to drag the Form with your Panel

Just Try to set your background color to control and set the TransparantKey to Control to ?

Originally Posted by hustelboy

LOL Forget What is Said ..
Didn't read it well

Here is how to do it:
1. Click On Your Form
2. Set FormBorderStyle to None
3. Now u can't drag the Form anymore but you can make a custom one
4. Get a panel

Code:

Public Class Form1
    Private IsFormBeingDragged As Boolean = False
    Private MouseDownX As Integer
    Private MouseDownY As Integer
    Private Sub Panel1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown
        If e.Button = MouseButtons.Left Then
            IsFormBeingDragged = True
            MouseDownX = e.X
            MouseDownY = e.Y
        End If
    End Sub
    Private Sub Panel1_MouseMove1(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseMove
        If IsFormBeingDragged Then
            Dim temp As Point = New Point()

            temp.X = Me.Location.X + (e.X - MouseDownX)
            temp.Y = Me.Location.Y + (e.Y - MouseDownY)
            Me.Location = temp
            temp = Nothing
        End If
    End Sub
    Private Sub Panel1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseUp
        If e.Button = MouseButtons.Left Then
            IsFormBeingDragged = False
        End If
    End Sub
End Class

5. Debug and try to drag the Form with your Panel

Just Try to set your background color to control and set the TransparantKey to Control to ?

I wasn't asking for that.
I was asking how to remove those red colors at the shadow of the picture.

Form Transparency

Post a Reply

Tags for this Thread