【VB开源代码栏目提醒】：文章导读：在新的一年中，各位网友都进入紧张的学习或是工作阶段。网学会员整理了VB开源代码-全屏幕贴图.FRM的相关内容供大家参考，祝大家在新的一年里工作和学习顺利！
VERSION 5.00
Begin VB.Form Form1
BorderStyle = 1 '虫絬㏕﹚
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 '╰参箇砞
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 objDDcrabSurf As DirectDrawSurface7
Dim ddsdcrab As DDSURFACEDESC2
Dim caps As DDSCAPS2
Dim r1 As RECT
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("window3.bmp", ddsdGraph)
ddsdcrab.lFlags = DDSD_CAPS Or DDSD_WIDTH Or DDSD_HEIGHT
ddsdcrab.ddsCaps.lCaps = DDSCAPS_OFFSCREENPLAIN
Set objDDcrabSurf = objDD.CreateSurfaceFromFile("crab.bmp", ddsdcrab)
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)
Dim key As DDCOLORKEY
key.low = 0
key.high = 0
objDDcrabSurf.SetColorKey DDCKEY_SRCBLT, key
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 = 0
r1.Top = 0
r1.Right = 150
r1.Bottom = 150
objDDBackSurf.BltFast 300, 100, objDDcrabSurf, r1, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY
objDDViewSurf.Flip Nothing, DDFLIP_WAIT
End Sub
Private Sub Form_Load()
setsurf
bltgraph
End Sub
相关文章
2013-9-1
