vb 能不能让from窗体宽度像卷帘一样拉开

显示全部楼层 · 2010-8-4 20:23:19

比如说from的窗体一打开是100，然后像动画一样，一点一点的，宽度扩展到5000，视觉上就像是拉开一个卷帘似的

千问 · 2010-8-4 20:23:19

一个【透明窗体】，一个【时间控件】Timer1的Interval设置为1，一个【图片框】就可以完成了。图片框里面放一张卷帘“轴”部分的图片，或者一个圆柱（因为圆柱的移动效果视觉上是滚动效果）就可以了。窗体透明的代码比较复杂，就不贴出来了，其他的代码写好了。Private Sub Timer1_Timer()Form1.Width = Form1.Width + 10If Form1.Width >= 5000 ThenForm1.Width = 5000End IfPicture1.Left = Form1.Width - Picture1.WidthEnd Sub xp系统上，vb6测试通过。

千问 · 2010-8-4 20:23:19

用Timer,不断Left--,Width++.哦对不起,我好像用C习惯了..在Timer中添加:
With Form1
.Left = Left - 1
.Width = Width + 2
End With

千问 · 2010-8-4 20:23:19

理论上是可以实现的。大概的思路，我想可以通过timer控件来实现，还有可能要通过至少2个form来交替以便达到动画效果。只是思路，最近手头很多活，没时间帮你搞代码，你自己试试吧。

千问 · 2010-8-4 20:23:19

changsima的是正解。。飘过。。