|
|
发表于 2007-4-1 19:45:00
|
显示全部楼层
Re: Re:新人报道第一贴!!! Miu.C请进~
Lossless: Re:新人报道第一贴!!! Miu.C请进~
对了,我想问一个问题,就是在切换场景时的过渡效果怎么实现,把要出现的场景加载?
这个在DX8中好实现,把要切换的场景图用透明加载,也就是COLOR设为(255,255,255,i)
i初始化为0,用Sprite.Draw来画,在循环中加上i=i+1,并且判断是否大于255.这样就可以实现淡入淡出了.
……
Dim ToAdd as Boolean
Dim i as Integer
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)'硬件休息
While run=true'游戏开关
If i=1 Then
ToAdd=True
elseif i=255
ToAdd=False
End IF
If ToAdd=True Then
i+=1
End If
……
DoEvents
Sleep(10)
Wend
|
|