vb实现雷达扫描效果

 

添加一个time控件：

Private Sub Form_Load()
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
End Sub

Private Sub Timer1_Timer()
Static sAlpha As Single, sX As Long, sY As Long
If sAlpha <= 0 Then sAlpha = 6.28
sAlpha = sAlpha - 0.04: Me.Cls
DrawRaida Me.Width / 2, Me.Height / 2, 1000, sAlpha
If Round(sAlpha, 2) = 6.24 Then sX = (1000 * Rnd) * Cos(5.1) + Me.Width / 2: sY = (1000 * Rnd) * Sin(5.1) + Me.Height / 2
If CInt(sAlpha) < 6 And CInt(sAlpha) > 4 Then
     Me.DrawWidth = 3
     Me.PSet (sX, sY), RGB(2550, 2550, 0)
     Me.DrawWidth = 1
End If
End Sub

Sub DrawRaida(ByVal drX As Long, ByVal drY As Long, ByVal drRds As Integer, ByVal drAlpha As Single)
Dim rX As Long, rY As Long, bGClr As Byte
Me.Circle (drX, drY), drRds, RGB(0, 255, 0)
DoEvents
    Do Until bGClr = 255
    rX = drX + drRds * Cos(drAlpha): rY = drY + drRds * Sin(drAlpha)
    Me.Line (drX, drY)-(rX, rY), RGB(0, bGClr, 0)
    drAlpha = drAlpha - 0.003
    bGClr = bGClr + 1
Loop
End Sub