仿WinXP启动界面，动画效果

一点通

游客，如果您要查看本帖隐藏内容请回复

以上是仿WinXP启动界面，请记住你的系统并无错误，做得不好不要掷鸡旦噢。

liu_yng

好玩  怎么做的

一点通

公开源码，你自己看下吧

有程有序

晕，好在我不是用WINXP，不然真以为是重启动了，顶一下

ywg

如果能加上一个仿XP的登陆界面那就更高了.

一点通

这样了不难，抛砖引玉，有兴趣的朋友请做下去

anna.lee

Set 变量(0) = Me.图1
能解释一下吗?图1在哪儿?

一点通

这是一一对应的问题，

anna.lee

我将窗体分步粘贴到一空数据库，把代码也粘贴上，但在
Private Sub Form_Load()
    On Error GoTo err

    Set 变量(0) = Me.图1
    Set 变量(1) = Me.图2
    Set 变量(2) = Me.图3
    Set 变量(3) = Me.图4
    Set 变量(4) = Me.图5
    Set 变量(5) = Me.图6
    Set 变量(6) = Me.图7
    Set 变量(7) = Me.图8
    Set 变量(8) = Me.图9
    Set 变量(9) = Me.图10
    Set 变量(10) = Me.图11
    Set 变量(11) = Me.图12
    Set 变量(12) = Me.图13
    Set 变量(13) = Me.图14
    Set 变量(14) = Me.图15
    Set 变量(15) = Me.图16

    Me.TimerInterval = 90
出现编译错误：方法和数据成员未找到
Private Sub Form_Load()
...      ...
...     .图1
什么原因？能说说吗？

一点通

没有声明变量，在＜通用＞，＜声明＞中可以查到这个语句。

Dim 变量(15) As Image