¡¾VB¿ªÔ´´úÂëÀ¸Ä¿ÌáÐÑ¡¿£ºÍøѧ»áԱΪ¹ã´óÍøÓÑÊÕ¼¯ÕûÀíÁË£¬½ÇÉ«Á¬Ðø¶¯»­.FRM£¬Ï£Íû¶Ô´ó¼ÒÓÐËù°ïÖú£¡

    VERSION 5.00
    Begin VB.Form Form1 
       BorderStyle     =   0  '¨S¦³®Ø½u
       Caption         =   "Form1"
       ClientHeight    =   5010
       ClientLeft      =   0
       ClientTop       =   0
       ClientWidth     =   6645
       LinkTopic       =   "Form1"
       MaxButton       =   0   'False
       MinButton       =   0   'False
       ScaleHeight     =   334
       ScaleMode       =   3  '¹³¯À
       ScaleWidth      =   443
       ShowInTaskbar   =   0   'False
       StartUpPosition =   3  '¨t²Î¹w³]­È
       Begin VB.Timer Timer1 
          Interval        =   50
          Left            =   1920
          Top             =   1800
       End
    End
    Attribute VB_Name = "Form1"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Option Explicit
    
    Dim objDX As New DirectX7
    Dim objDD As DirectDraw7
    
    
    Dim objDDViewSurf As DirectDrawSurface7
    Dim ddsdView As DDSURFACEDESC2
    
    Dim objDDBackSurf As DirectDrawSurface7
    Dim ddsdBack As DDSURFACEDESC2
    
    Dim objDDGraphSurf As DirectDrawSurface7
    Dim ddsdGraph As DDSURFACEDESC2
    
    Dim objDDaniSurf As DirectDrawSurface7
    Dim ddsdani As DDSURFACEDESC2
    
    Dim caps As DDSCAPS2
    
    Dim r1 As RECT
    
    Dim x As Integer
    Dim y As Integer
    Dim i As Integer
    Private Sub Form_DblClick()
      objDD.RestoreAllSurfaces
      objDD.RestoreDisplayMode
      End
    End Sub
    
    Sub setsurf()
      Set objDD = objDX.DirectDrawCreate("")
      Call objDD.SetCooperativeLevel(Me.hWnd, DDSCL_FULLSCREEN Or DDSCL_EXCLUSIVE)
      objDD.SetDisplayMode 640, 480, 16, 0, DDSDM_DEFAULT
      
      ddsdGraph.lFlags = DDSD_CAPS Or DDSD_WIDTH Or DDSD_HEIGHT
      ddsdGraph.ddsCaps.lCaps = DDSCAPS_OFFSCREENPLAIN
      Set objDDGraphSurf = objDD.CreateSurfaceFromFile("window4.bmp", ddsdGraph)
      
        
      ddsdani.lFlags = DDSD_CAPS Or DDSD_WIDTH Or DDSD_HEIGHT
      ddsdani.ddsCaps.lCaps = DDSCAPS_OFFSCREENPLAIN
      Set objDDaniSurf = objDD.CreateSurfaceFromFile("Cg0430.bmp", ddsdani)
      
      ddsdView.lFlags = DDSD_CAPS Or DDSD_BACKBUFFERCOUNT
      ddsdView.lBackBufferCount = 1
      ddsdView.ddsCaps.lCaps = DDSCAPS_PRIMARYSURFACE Or DDSCAPS_FLIP Or DDSCAPS_COMPLEX
      Set objDDViewSurf = objDD.CreateSurface(ddsdView)
      
      caps.lCaps = DDSCAPS_BACKBUFFER
      Set objDDBackSurf = objDDViewSurf.GetAttachedSurface(caps)
        
    End Sub
    Sub bltgraph()
       
        r1.Left = 0
        r1.Top = 0
        r1.Right = 640
        r1.Bottom = 480
        
        objDDBackSurf.BltFast 0, 0, objDDGraphSurf, r1, DDBLTFAST_WAIT
        
        r1.Left = x
        r1.Top = y
        r1.Right = x + 128
        r1.Bottom = y + 96
        objDDBackSurf.BltFast 240, 240, objDDaniSurf, r1, DDBLTFAST_WAIT
        
        objDDViewSurf.Flip Nothing, DDFLIP_WAIT
        
      x = x + 128
       If x = 640 Then
        y = y + 96
        x = 0
       If y = 480 Then
        y = 0
       End If
      End If
    
                 
    End Sub
    
    
    Private Sub Form_Load()
      x = 0
      y = 0
      setsurf
    End Sub
    
    
    Private Sub Timer1_Timer()
        bltgraph
        DoEvents
    End Sub