【VB开源代码栏目提醒】:本文主要为网学会员提供视窗界面显示底图与人物.frm,希望对需要视窗界面显示底图与人物.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 '╰参箇砞
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 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("window.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)
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
r1.Left = r1.Left + 150
r1.Top = r1.Top + 80
r1.Bottom = r1.Top + 150
r1.Right = r1.Left + 150
r2.Bottom = ddsdCrab.lHeight
r2.Right = ddsdCrab.lWidth
objDDViewSurf.Blt r1, objDDcrabSurf, r2, DDBLT_WAIT
End Sub
Private Sub Form_Paint()
setsurf
bltgraph
End Sub
Private Sub Form_Resize()
setsurf
bltgraph
End Sub