How to make MDI child form transparent in vb6

Question

0.00/5 (No votes)

See more:

This is my code

Option Explicit
Const LW_KEY = &H1
Const G_E = (-20)
Const W_E = &H80000
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function ReleaseCapture Lib "user32.dll" () As Long
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32.dll" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Const LWA_ALPHA = &H2
Private Const GWL_EXSTYLE = (-20)
Private Const LWA_COLORKEY = &H1
Private Const ULW_COLORKEY = &H1
Private Const ULW_ALPHA = &H2
Private Const ULW_OPAQUE = &H4
Private Const WS_EX_LAYERED = &H80000

Private Sub Form_Load()
Dim Ret As Long
Dim TC As Long
TC = &HC000C0
Ret = GetWindowLong(Me.hwnd, G_E)
Ret = Ret Or W_E
SetWindowLong Me.hwnd, G_E, Ret
Me.BackColor = TC
SetLayeredWindowAttributes Me.hwnd, TC, 0, LWA_COLORKEY
End Sub

What I have tried:

This Code worked in SDI Forms but not working in MDI child form.
How to make make child form transparent back color with layered window?
Please Help me.
Thanks Advance

Posted 25-Jun-19 22:19pm

smdoss

Updated 25-Jun-19 22:41pm

v2

Add a Solution

Comments

smdoss 2-Jul-19 2:01am

Hi Gerry Thanks for your advice. Then I try something altered my code with your advice. Finally I get the result. MDI Child form is do transparent. First i put the code in the parent form and put the code in a child form. It is worked OK. At the same time i want see the contents of controls another child form but the transparent child form didn't show the contents of other child forms. what can i do. please help.
And how can i upload a sample images of my project result?(sorry my poor language)

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Gerry Schmitz · Accepted Answer · 2019-06-25T22:42:00

Quote:
Well, MDI child forms don't support independent transparency. An MDI child form is actually a child control of the MDI parent so, just like all other child controls, their transparency depends on the parent form. You can set the TransparencyKey of the parent and then, if that color is present on the child (You can use another pictureBox to do this on child form), you'll see right through both of them. It's not possible to set the TransparencyKey of the child and see through to the parent though.

How to make MDI child form transparent in vb6[^]