关于VB窗口的问题

来源：百度知道 编辑：UC知道 时间：2024/06/04 11:07:48
想做软件的开头，就是像有些软件一样，一张图显示，然后逐渐消隐，最后出现软件的主界面。我做的效果使一张图显示，然后由于定时器的关系，就突然消失了，该怎么控制呀？？

首先新建一个模块，加入以下代码
'窗体半透明模块
Public Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Public Const WS_EX_LAYERED = &H80000
Public Const GWL_EXSTYLE = (-20)
Public Const LWA_ALPHA = &H2
Public Const LWA_COLORKEY = &H1
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

然后就可以用下面的格式调整窗口的透明度
SetLayeredWindowAttributes Me.hwnd, 0, 140, LWA_ALPHA
'140为透明度，你可以更改为0-255之间的任何整数
'数字越小越透明

你可以在timer1_timer()时间中进行定时减小那个数字，并且在减小到0时调出主界面，退出预载窗体（Unload Me）

对图片抽去三分之一的像素
其余的在抽三之一
……
直到不足5%时，一次去掉

我告诉你一个办法 用时间控件
Privat