|
|
发表于 2005-8-4 21:21:00
|
显示全部楼层
Re:关于2D游戏中全屏分辨率的问题
VB6+DX7全屏幕模式显示(如果用800 X 600 )只需要把最后一行修改就好了.
Option Explicit
Dim objDX As New DirectX7
Dim objDD As DirectDraw7
FORM1.AutoRedraw = True
FORM1.BackColor = QBColor(0)
FORM1.ScaleMode = 3
FORM1.Height = 480 * 15: FORM1.Width = 640 * 15
Set objDD = objDX.DirectDrawCreate("")
Call objDD.SetCooperativeLevel(Me.hWnd, DDSCL_FULLSCREEN Or DDSCL_ALLOWMODEX Or DDSCL_EXCLUSIVE)
objDD.SetDisplayMode 640, 480, 16, 0, DDSDM_DEFAULT |
|