home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / code / grafik / anmati / flag.txt < prev    next >
Encoding:
Text File  |  1995-02-27  |  714 b   |  20 lines
  1. Declare Function sndPlaySound Lib "MMSYSTEM.DLL" (ByVal lpszSoundName As String, ByVal wFlags As Integer) As Integer
  2. Declare Function BitBlt Lib "GDI" (ByVal hDestDC As Integer, ByVal x As Integer, ByVal Y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hSrcDC As Integer, ByVal XSrc As Integer, ByVal YSrc As Integer, ByVal dwRop As Long) As Integer
  3. Const SRCCOPY = &HCC0020
  4. Const SND_ASYNC = &H1
  5. Const SND_NODEFAULT = &H2
  6.  
  7. Sub Command1_Click ()
  8. Timer2.Enabled = True
  9. End Sub
  10.  
  11. Sub Timer2_Timer ()
  12. Static flag As Integer
  13. Dim Result As Integer
  14.  
  15. flag = flag + 1
  16. If flag = 5 Then flag = 1
  17. Result = BitBlt(Picture5.hDC, 0, 0, 32, 32, Picture1(flag).hDC, 0, 0, SRCCOPY)
  18. End Sub
  19.  
  20.