vb玫瑰花程序能开满桌面玫瑰花的小程序 请注意我要的是源码VB 请发到760695955@qq.com

发布网友 发布时间：2022-03-27 10:41

我来回答

共4个回答

热心网友 时间：2022-03-27 12:10

程序已经发了，
代码：http://user.qzone.qq.com/471559688/blog/1310315461
代码就在QQ空间里面 ，程序我也发了 怎么还不给分啊

热心网友 时间：2022-03-27 13:28

Dim INKEY$
Sub pattern()
A102 = Cos(Atn(Exp(A213)) * 2): I121& = 1: I201 = 0: I07 = 1: I111& = 524288:
A08 = 5 + Atn(3.380514)
I182: I121& = (I121& * 2007 + 1) Mod I111&
A122 = I121& / I111& * A08: I121& = (I121& * 2007 + 1) Mod I111&
'A210 = (I121& / I111&) ^ 0.118543 * 200 * (0.493287 + Sin(A122 * 3 + A102))
A210 = (I121& / I111&) ^ 0.1 * 200 * (0.4 + Sin(A122 * 3 + A102))
I301 = Int(A210 * Cos(A122) + 660): I311 = Int(A210 * Sin(A122) + 340)
P1.PSet (I301, I311), QBColor(I07)
I201 = I201 + 1: If I201 <= 10000 Then GoTo I131
A102 = A102 + A08 / 3: If A102 > A08 * 2 - 0.1 Then A102 = 0: I07 = (I07 Mod 7) + 1
I201 = 0: I121& = 1
I131: If (I201 Mod 300) = 1 Then
If INKEY$ <> "" Then Exit Sub
t = Timer: While Timer = t: Wend
DoEvents
End If: GoTo I182
End Sub

Private Sub Form_activate()
INKEY = "1"
'MsgBox "请点击窗口或按键开始！"
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
P1_Click
End Sub

Private Sub Form_Load()
P1.Width = Me.ScaleWidth - 250
P1.Height = Me.ScaleHeight - 250
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
INKEY = "2"
Cancel = True
End Sub

Private Sub Form_Resize()
P1.Width = Me.ScaleWidth - 250
P1.Height = Me.ScaleHeight - 250
End Sub

Private Sub P1_Click()
If INKEY = "1" Then
INKEY = ""
pattern
'MsgBox "程序正常退出！"
End
End If
INKEY = "2"
End Sub

热心网友 时间：2022-03-27 15:03

调用动画？
给我图片啊

热心网友 时间：2022-03-27 16:54

我也要 可以发我么~~~ 万分感激 515056312@qq.com