文件名称：很好的蓝屏代码
文件大小：7KB
文件格式：TXT
更新时间：2015-10-26 07:58:11
蓝屏
蓝屏的一段代码，很认真写的 以下这些代码是在窗体代码区里： Option Explicit Private Declare Function Ellipse Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long Dim Week As String Dim pOld As String Private Type Star X As Long Y As Long Speed As Long Size As Long Color As Long End Type Dim fnum As Integer Dim cFile() As B