雷達源碼 - VB

這個代碼是我慢慢寫出來的，有些代碼是靠同學幫我完善，不知道大家覺得怎樣。
可以自己試著運行。



Private WithEvents Timer1 As Timer
Private Sub Form_Load()
Set Timer1 = Controls.Add("vb.timer", "Timer1")
'添加計時器
Timer1.Enabled = True: Timer1.Interval = 1
Me.AutoRedraw = True: Me.BackColor = 0
Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
End Sub

Private Sub Form_DblClick()
End
E ..

訪客只能看到部份內容，免費 加入會員

x0

這是怎麼樣的雷達??

有沒有範例的程式可以提共看看?

x0

下面是引用 z2352671 於 2012-06-24 01:23 發表的 :
這是怎麼樣的雷達??

有沒有範例的程式可以提共看看?

掃描的雷達，會出現一個點，像CS一樣，

x0