ut hMemDc, Mtrx(K).CurX, CY, Char$, 1
       'End If
       CY = CY + Mtrx(K).Dy
      Next
      Mtrx(K).CurY = Mtrx(K).CurY + Mtrx(K).Dy
      If Mtrx(K).CurY > ScrH Then
       ' A String Has Now Left The Screen So
       ' Need To Initialize Another One.
       Cols = Int(ScrW / TxtWdth)
       Mtrx(K).CurX = Int(Rnd * Cols) * TxtWdth 'Rnd * (ScrW - TxtWdth)
    '    Mtrx(K).CurX = Rnd * (ScrW - TxtWdth)
       Mtrx(K).NumChars = Int((20 - 5 + 1) * Rnd + 5)
       Mtrx(K).Dy = TxtHght + Rnd * (TxtHght \ 2)
       Mtrx(K).CurY = -2 * Mtrx(K).Dy * Mtrx(K).NumChars
      End If
     Next
     ' Now That The Off Screen Drawing Is Complete,
     ' Blit The Finished Frame Onto The Screen.
     BitBlt hDC, 0, 0, ScrW, ScrH, hMemDc, 0, 0, vbSrcCopy
    End Sub
    
    
    

上一篇：mannage.frm
下一篇：计算机仿真论文1