3dstarfield_modglobals.bas

屏保星空的编程。 使用VB编程。实现屏保功能呢。 有兴趣就下来

Attribute VB_Name = "Module1"
Public Type Stars
 x As Double
 y As Integer
 AddX As Integer
 AddY As Integer
End Type

Public Star(1000) As Stars
Public Accelarate As Boolean

Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long