透明也会看到的,你看到的只是动画控件的底色啊 窗体透明代码: 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 SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As LongPrivate Const WS_EX_LAYERED = &H80000 Private Const GWL_EXSTYLE = (-20) Private Const LWA_ALPHA = &H2 Private Const LWA_COLORKEY = &H1Private Sub Form_Load() '以下为设置窗体透明代码 Dim rtn As Long rtn = GetWindowLong(hwnd, GWL_EXSTYLE) rtn = rtn Or WS_EX_LAYERED SetWindowLong hwnd, GWL_EXSTYLE, rtn SetLayeredWindowAttributes hwnd, 0, 200, LWA_ALPHA End Sub 注意:参数设大了就有可能什么都见不到了,真正的透明了 gif动画控件可以用gif89a控件,底色和图片的底色一样
Form1.Caption = ""
Form1.Move 0, 0, gif1.Width, gif1.Height
wxy_xiaoyu(然也)
可是不想看到任何窗体啊
那样的话背景是白的
不是吗?
窗体透明代码:
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 SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As LongPrivate Const WS_EX_LAYERED = &H80000
Private Const GWL_EXSTYLE = (-20)
Private Const LWA_ALPHA = &H2
Private Const LWA_COLORKEY = &H1Private Sub Form_Load()
'以下为设置窗体透明代码
Dim rtn As Long
rtn = GetWindowLong(hwnd, GWL_EXSTYLE)
rtn = rtn Or WS_EX_LAYERED
SetWindowLong hwnd, GWL_EXSTYLE, rtn
SetLayeredWindowAttributes hwnd, 0, 200, LWA_ALPHA
End Sub
注意:参数设大了就有可能什么都见不到了,真正的透明了
gif动画控件可以用gif89a控件,底色和图片的底色一样
我知道用透明窗体的话上面的东西也透明
所以我做不到啊
我只要输出动画图形啊
怎么动都不出背景的那种
就是你说的那样
聪明
我语文没学好
没办法
然后放到vb的picturebox控件或image控件中,然后利用timer 控件,就能实现播放动画的功能,但这只是第一步。
因为这样作出的动画中的图形全部是规则的矩形窗体,为了使你不想要的背景变成透明色,还必须利用vb的api函数,其实这就是如何制作异形窗体的过程,如果你接受我的这个思路,我可以给你发代码过去,如果不接受,想找一种能直接播放gif动画,又能使背景变透明的方法,我是不知道的。
我以前也想这样,但是我找了很久都不行,所以只有换另一个思路