初一成绩管理系统VB[精心整理].doc

一 Public Declare Function timeGetTime Lib winmm.dll () As Long Public 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 Public Declare Function StretchBlt Lib gdi32 (ByVal hdc 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 nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long Public Declare Function SelectObject Lib gdi32 (ByVal hdc As Long, ByVal hObject As Long) As Long Public Declare Function DeleteObject Lib gdi32 (ByVal hObject As Long) As Long Public Declare Function CreateCompatibleDC Lib gdi32 (ByVal hdc As Long) As Long Public Declare Function GetObject Lib gdi32 Alias GetObjectA (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long Public Type BITMAP bmType As Long bmWidth As Long bmHeight As Long bmWidthBytes As Long bmPlanes As Integer bmBitsPixel As Integer bmBits As Long End Type Public Declare Function CreatePatternBrush Lib gdi32 (ByVal hBitmap As Long) As Long Public Declare Function CreateCompatibleBitmap Lib gdi32 (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long Option Explicit Dim pic As Picture, sX As Single, sY As Single, _ Leij As Single, Hmemdc As Long, bm As BITMAP, _ i As Single, OldDc As Long Private Sub Command1_Click() 初始化变量 Call Instal MoveForm bm.bmHeight, 0, -1, y End Sub Sub delay(ByVal n As Single) Dim tm1 As Long, tm2 As Long tm1 = timeGetTime Do tm2 = timeGetTime If (tm2 - tm1) / 1000 n Then Exit Do DoEvents Loop End Sub Sub MoveForm(Begin As Long, XEnd As Long, Fuhao As String, Zhou As String) Dim i As Single, LS As Single Picture1.Cls If Zhou = y Then For i = Begin To XEnd