Question

vb Picture1问题

Picture1.Picture = LoadPicture(App.Path & "1.jpg")
现在要求在这张图片上覆盖半透明的黄色然后5秒钟后变成覆盖半透明红色，就这么循环覆盖
改如何写

Answer 1

你需要查找调研api函数的资料，关于透明方面的，如
Private Declare Function GdiTransparentBlt Lib "gdi32" (ByVal hdc1 As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal W1 As Long, ByVal H1 As Long, ByVal Hdc2 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal W2 As Long, ByVal H2 As Long, ByVal Color As Long) As Long

Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
查找它们的用法可以实现

Answer 2

骑上覆盖一个图片框，设置透明色即可