如何用vb编写个表白程序

如何用vb编写个表白程序,第1张

简单啊~

打开VB新建一个exe工程;

按下F7打开代码窗体

写入以下代码并生成exe发送给对方即可。

Private Sub Form_Load()

    MsgBox "I love you~"

    MsgBox "真的!"

    MsgBox "..."

End Sub

MsgBox请自由更改以及添加,想说多少加多少。

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

然后在窗体上放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


欢迎分享,转载请注明来源:内存溢出

原文地址: https://outofmemory.cn/yw/12170337.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-21
下一篇 2023-05-21

发表评论

登录后才能评论

评论列表(0条)

保存