Question

VB6添加PNG图片

窗体Image要显示半透明的图像，而ICO必须是32位的，VB6不支持，所以就剩下PNG了。。可PNG又不支持VB6。怎么办让VB6添加PNG图像，或者，怎样使这个控件半透明？分不是问题！

Answer 1

vb要显示透明png，gdi+是最好的办法了，它支持半透明。但是，要下载gdiplus.tlb( http://www.vbaccelerator.com/article.asp?id=4588外国网站)并且引用才行。如果引用了gdiplus.tlb ，那么可以使用下面的代码。Private TOKEN As Long
Private Graphics As Long Private Sub InitGDIPlus()
'初始化GDI+
Dim uInput As GdiplusStartupInput

uInput.GdiplusVersion = 1
If GdiplusStartup(TOKEN, uInput) <> Ok Then
'初始化错误
MsgBox "GDI+ 初始化错误。程序即将关闭。", vbCritical, "InitError"
End
End If
GdipCreateFromHDC Me.hDC, Graphics
GdipSetSmoothingMode Graphics, SmoothingModeAntiAlias
End Sub
Private Sub Form_Load()
InitGDIPlus Dim image As Long GdipCreateBitmapFromFile "E:\image1.png", image
GdipDrawImage Graphics, image, 0, 0
GdipDisposeImage image
End Sub
Private Sub TerminateGDIPlus()
GdipDeleteGraphics Graphics '释放graphics占用的内存
GdiplusShutdown TOKEN '关闭GDI+
End Sub
Private Sub Form_Unload(Cancel As Integer)
TerminateGDIPlus
End Sub看看flash控件那种完美的半透明效果，谁说做不了，不过我也不懂。哎，如果实在没招，用个flash也不错。

Answer 2

半透明的？好像只有窗体才可以吧，一般做半透明的效果我用PS做。VB做透明效果，窗体透明，那么控件也跟着窗体透明而透明的。

Answer 3

控件不能半透明,因为没有扩展消息