VB6 Png Control,Simple transparent button control For VB6

Simulate the control transparency effect: the developed custom control usercontrol sets a screenshot function as the base image, bitblt draws the background image on the form (or screenshots with other controls), and then draws the button image or text on it, you can use it usercontrol.cls is cleared (the base map remains unchanged)

Private Sub Form_Load()
Me.Picture = LoadPicture(App.Path & "\bg.jpg")
'MyButton1(0).FilePath = "bt1a.png"
'MyButton1(0).FileClick = "bt1b.png"
End Sub

Private Sub Form_Activate()

If Me.Tag = "" Then
Me.Tag = "a"

Picture1.AutoRedraw = True
'Picture1.Picture = LoadPicture(App.Path & "\bg.jpg")
TransparentWithHdc Picture1.hwnd, Picture1.hDC

MyButton1(0).CutBgImg
MyButton1(0).ShowImg

MyButton1(2).CutBgImg
MyButton1(2).ShowImg

End If
End Sub

Attached Images

 

Attached Files

• transparent button control.zip (343.5 KB)
• transparent button control.zip (36.1 KB)