¡¾VB¿ªÔ´´úÂëÀ¸Ä¿ÌáÐÑ¡¿£º±¾ÎÄÖ÷ҪΪÍøѧ»áÔ±ÌṩÉ趨͸Ã÷.FRM£¬Ï£Íû¶ÔÐèÒªÉ趨͸Ã÷.FRMÍøÓÑÓÐËù°ïÖú£¬Ñ§Ï°Ò»ÏÂ!

    VERSION 5.00
    Begin VB.Form Form1 
       BorderStyle     =   1  '³æ½u©T©w
       Caption         =   "Form1"
       ClientHeight    =   5010
       ClientLeft      =   45
       ClientTop       =   330
       ClientWidth     =   6645
       LinkTopic       =   "Form1"
       MaxButton       =   0   'False
       MinButton       =   0   'False
       ScaleHeight     =   334
       ScaleMode       =   3  '¹³¯À
       ScaleWidth      =   443
       StartUpPosition =   3  '¨t²Î¹w³]­È
    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 objDDGraphSurf As DirectDrawSurface7
    Dim ddsdGraph As DDSURFACEDESC2
    
    Dim objDDViewSurf As DirectDrawSurface7
    Dim ddsdView As DDSURFACEDESC2
    
    Dim objDDcrabSurf As DirectDrawSurface7
    Dim ddsdcrab As DDSURFACEDESC2
    
    Dim objDDOffSurf As DirectDrawSurface7
    Dim ddsdOff As DDSURFACEDESC2
    
    Dim r1 As RECT
    Dim r2 As RECT
    
    Sub setsurf()
      Set objDD = objDX.DirectDrawCreate("")
      Call objDD.SetCooperativeLevel(Me.hWnd, DDSCL_NORMAL)
      
      ddsdGraph.lFlags = DDSD_CAPS
      ddsdGraph.ddsCaps.lCaps = DDSCAPS_OFFSCREENPLAIN
      Set objDDGraphSurf = objDD.CreateSurfaceFromFile("window2.bmp", ddsdGraph)
      
      ddsdcrab.lFlags = DDSD_CAPS
      ddsdcrab.ddsCaps.lCaps = DDSCAPS_OFFSCREENPLAIN
      Set objDDcrabSurf = objDD.CreateSurfaceFromFile("crab.bmp", ddsdcrab)
      
      ddsdView.lFlags = DDSD_CAPS
      ddsdView.ddsCaps.lCaps = DDSCAPS_PRIMARYSURFACE
      Set objDDViewSurf = objDD.CreateSurface(ddsdView)
      
      
      Dim key As DDCOLORKEY
      key.low = 0
      key.high = 0
      objDDcrabSurf.SetColorKey DDCKEY_SRCBLT, key
      
      
    End Sub
    Sub bltgraph()
       
        Call objDX.GetWindowRect(Form1.hWnd, r1)
        
        r2.Bottom = ddsdGraph.lHeight
        r2.Right = ddsdGraph.lWidth
        Call objDDViewSurf.BltFast(r1.Left + 3, r1.Top + 25, objDDGraphSurf, r2, DDBLTFAST_WAIT)
        
        r1.Left = r1.Left + 190
        r1.Top = r1.Top + 80
        r1.Bottom = r1.Top + 80
        r1.Right = r1.Left + 66
        
        r2.Bottom = ddsdcrab.lHeight
        r2.Right = ddsdcrab.lWidth
        Call objDDViewSurf.BltFast(r1.Left, r1.Top, objDDcrabSurf, r2, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY)
        
            
    End Sub
    
    Private Sub Form_Paint()
      setsurf
      bltgraph
    End Sub
    
    'Private Sub Form_Resize()
    '  setsurf
    '  bltgraph
    'End Sub