¡¾VB¿ªÔ´´úÂëÀ¸Ä¿ÌáÐÑ¡¿£ºÍøѧ»áÔ±ÔÚVB¿ªÔ´´úÂëƵµÀΪ´ó¼ÒÊÕ¼¯ÕûÀíÁËÊÓ´°½çÃæÏÔʾͼƬ.frmÌṩ´ó¼Ò²Î¿¼£¬Ï£Íû¶Ô´ó¼ÒÓÐËù°ïÖú!

    VERSION 5.00
    Begin VB.Form Form1 
       Caption         =   "Form1"
       ClientHeight    =   4800
       ClientLeft      =   60
       ClientTop       =   345
       ClientWidth     =   6645
       LinkTopic       =   "Form1"
       ScaleHeight     =   4800
       ScaleWidth      =   6645
       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 ddClipper As DirectDrawClipper
    
    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("gemini.bmp", ddsdGraph)
      
      ddsdView.lFlags = DDSD_CAPS
      ddsdView.ddsCaps.lCaps = DDSCAPS_PRIMARYSURFACE
      Set objDDViewSurf = objDD.CreateSurface(ddsdView)
      
      Set ddClipper = objDD.CreateClipper(0)
      ddClipper.SetHWnd Form1.hWnd
      objDDViewSurf.SetClipper ddClipper
      
      
    End Sub
    Sub bltgraph()
       
        Call objDX.GetWindowRect(Form1.hWnd, r1)
        
        r2.Bottom = ddsdGraph.lHeight
        r2.Right = ddsdGraph.lWidth
        
        objDDViewSurf.Blt r1, objDDGraphSurf, r2, DDBLT_WAIT
    End Sub
    
    Private Sub Form_Paint()
      setsurf
      bltgraph
    End Sub
    
    Private Sub Form_Resize()
      setsurf
      bltgraph
    End Sub
    

ÉÏһƪ£º±àдСʱÖÓ³ÌÐò.frm
ÏÂһƪ£º¹ØÓÚ´óѧӢÓï½Ìѧ