可以让玫瑰花一朵朵出现围成一个桃心的VB程序

首先你要准备一个玫瑰花图片文件，要小一点。

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

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

OK！你的心愿完成了！

Private Sub Form_Load()

For i = 0 To 11

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

Next

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

    Static i As Integer

    Image1(i).Visible = True

    i = i + 1

    If i = Image1.Count Then

        Label1.Visible = True

        Timer1.Enabled = False

    End If

   

End Sub

朵朵校友圈的私聊方法：

1、打开朵朵校友圈小程序。

2、点击下方校友圈栏目。

3、找到想要私聊的人，点击头像。

4、出现私聊按钮，点击即可私聊。

---