vb玫瑰花程序能开满桌面玫瑰花的小程序 请注意我要的是源码VB 请发到[email protected]

程序已经发了，

代码：>

然后在窗体上放12个Image控件，组成一个控件数组，摆成心形，Picture属性设置为你的玫瑰花。Visibel属性全部设置为False。

在窗体上放一个Timer控件。Interval属性设置为1000，每秒显示一朵玫瑰花。

OK！你的心愿完成了！

Private Sub Form_Load()

For i = 0 To 11

    Image1(i)Picture = LoadPicture(AppPath + "\西安绿博园七彩玫瑰jpg")

Next

Timer1Enabled = True

End Sub

Private Sub Timer1_Timer()

    Static i As Integer

    Image1(i)Visible = True

    i = i + 1

    If i = Image1Count Then

        Label1Visible = True

        Timer1Enabled = False

    End If

End Sub

这个你自己 做一个好了，

比如你建立一个文件夹，在里面再建立一个…………，依次建立，然后下个开满玫瑰花的程序，把程序的图标换成文件夹的，这样人家以为还是文件夹

改ico的软件也很多， 不知道怎么做的可以联系我哦！

以上就是关于vb玫瑰花程序能开满桌面玫瑰花的小程序 请注意我要的是源码VB 请发到[email protected]全部的内容，包括:vb玫瑰花程序能开满桌面玫瑰花的小程序 请注意我要的是源码VB 请发到[email protected]、可以让玫瑰花一朵朵出现围成一个桃心的VB程序、求一个很多空文件夹，打开到最后是桌面开满玫瑰花的小程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！