求一个c语言编写的使桌面开满玫瑰花的源代码?,vb玫瑰花程序能开满桌面玫瑰花的小程序 源码VB!可以给我发一份吗...

满意答案

qxxwl

2013.09.09

采纳率：51%    等级：12

已帮助：21698人

真好的源代码没有，有个在桌面上爬虫的小程序，

我花了很长时间编写的吗，和你的类似，

参考改一下，应该对你有用

Dim aq

Dim a(4) As Integer

Dim b(4) As Integer

Dim n, k, c As Integer, d As Integer

Private Sub Command1_Click()

Unload Form1

End Sub

Private Sub Form_Load()

App.TaskVisible = False

App.Title = " 123"

Form1.Visible = False

Form1.WindowState = 2

Call keybd_event(44, 0, 0, 0)

F

End Sub

Private Sub Form_Resize()

Picture1.Left = 0

Picture1.Top = 0

Picture1.Width = Form1.Width

Picture1.Height = Form1.Height

End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

Picture1.Circle (X, Y), 70, QBColor(1)

End Sub

Private Sub Timer1_Timer()

If aq = 2 Then

Form1.Visible = True

Picture1.Picture = Clipboard.GetData()

End If

aq = aq + 1

End Sub

Private Sub qq()

n = 0

On Error Resume Next

k = Int(Rnd() * 4)

Select Case k

Case 0

c = a(4): d = Val(Shape1(0).Height) + b(4)

Case 1

c = a(4): d = (-1) * Val(Shape1(0).Height) + b(4)

Case 2

d = b(4): c = Val(Shape1(0).Width) + a(4)

Case 3

d = b(4): c = (-1) * Val(Shape1(0).Width) + a(4)

End Select

For i = 0 To 3

For j = 0 To 3

If a(i) = c And b(j) = d Then

n = 1

End If

Next j

Next i

If c < 0 Or c > Form1.Width Or d < 0 Or d > Form1.Height Then

n = 1

End If

If n = 1 Then

qq

Else

a(4) = c

b(4) = d

End If

End Sub

Private Sub F()

For i = 0 To 4

a(i) = 500

b(i) = 500

Next i

Form1.WindowState = 2

'DrawMode = 7

For i = 1 To 4

'Load Shape1(i)

Next i

End Sub

Private Sub Timer2_Timer()

For i = 0 To 3

a(i) = a(i + 1)

b(i) = b(i + 1)

Next i

qq

For i = 0 To 4

Shape1(i).Left = a(i)

Shape1(i).Top = b(i)

Next i

End Sub

00分享举报