我用VB写了一小段淡出的代码,但总是不能实现,高手帮个忙!

来源：百度知道 编辑：UC知道 时间：2024/05/13 06:21:10
Dim I
I = 0%
Do Until I >= 100%
Me.Opacity = I
I = I + 5%
Loop

以上是我写的代码,请高手修改,谢了!
注:
我用的是VB2005

做一个 Timer 控件，把Interval改成你愿意的长度，1000就是一秒！把 Enabled 选成 True。然后双击该 Timer 控件,输入下面的代码：

For Num as Integer = 1 To 100
Me.Opacity = Num
Next

If Num>100 Then Timer1.Enabled = False

Dim I
I = 0
Do Until I >= 1
Me.Opacity = I
I = I + 0.05
Loop

Opacity 是double类型数据
不要直接用%
直接用小数就可以了

可以去声明一个api函数：sleep
然后在你想停顿的地方写 sleep(1000)
其中括号内的数字表示停顿的时间，单位毫秒
1000毫秒=1秒

Dim I as String
或Dim I as d

换一个Timer控件用，而且在之前要用me.show

这是我在用的代码,分享了

添加一个timer控件timer1,interval=10,enable默认为true

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