有没有一个漂亮的能用vb编程的短程序

来源：百度知道 编辑：UC知道 时间：2024/05/29 05:41:30
短的，有意思的，代码

如运行显示“我爱你”，这很短。
Private Sub Form_Load()
FontSize = 80
Print "我爱你"
End Sub

如要再漂亮点，可添个Timer控件，Interval属性根据快慢设为500￣1000之间，让“我爱你”富有立体感并闪动起来
选一幅漂亮的画作picture属性

Private Sub Timer1_Timer()
Form1.Width = 5925 '合适的窗体宽度
Form1.Height = 3360 '合适的窗体高度

CurrentX = 180 '适当的位置写MM的名字
CurrentY = 180
FontSize = 24
ForeColor = QBColor(8)
Print "范冰冰" '写上你喜欢的MM名字
CurrentX = 190
CurrentY = 190
FontSize = 24
ForeColor = vbYellow
Print "范冰冰" '写上你喜欢的MM名字

i = i + 1
If i Mod 3 = 0 Then
CurrentX = 630
CurrentY = 680
ForeColor = QBColor(8)
FontSize = 80
Print "我爱你"
CurrentX = 650
CurrentY = 700
ForeColor = QBColor(13)
FontSize = 80
Print "我爱你"

ElseIf i Mod 3 = 1 Then
CurrentX = 630
CurrentY = 680
ForeColor = Q