DirectX与VB.NET编程（十一）全屏绘图与字体颜色的改变.docVIP

DirectX与VB.NET编程（十一）全屏绘图与字体颜色的改变 这次讲的是全屏下的操作、自定义字体颜色和绘制各种图形。 ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝华丽的分割线＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ 学习内容·掌握全屏的实现方法·能够自定义字体和颜色·能够利用DirectDraw绘制各种图形 ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝华丽的分割线＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ 这次的范例运行后自动切换到全屏，点击绘制按钮绘制图形，点击退出按钮退出程序。打开VB.NET，新建一个项目，添加DirectDraw的引用，在窗口中放置两个按钮（Button），控件设计请参考下图： 在类头输入如下代码开导入名称空间：Imports Microsoft.DirectXImports Microsoft.DirectX.DirectDraw声明设备和表面：Dim vDev As New DeviceDim vSurface As Surface ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝华丽的分割线＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ 为了全屏下隐藏窗口的标题栏，将窗口的FormBorderStyle属性设置为NoneMe.FormBorderStyle = FormBorderStyle.None 下面设置设备的协作级别，承载控件依旧是窗口，协作类型选择为FullscreenExclusive，代表全屏独占模式vDev.SetCooperativeLevel(Me, CooperativeLevelFlags.FullscreenExclusive)。此时系统会自动将程序切换到全屏模式。下面设置全屏模式下的显示模式，我们在此设置为640*320的分辨率，16位色深(65536色)，85Hz刷新率，语句如下：vDev.SetDisplayMode(640, 480, 16, 85, True)最后一个参数是StandardVGAMode（标准VGA模式），根据SDK的注释是大概是设置硬件显示驱动模式，不管怎样，设置为True即可。在此可能会有两个问题一、如果窗口的大小不等于分辨率，DirectDraw会自动将窗口的大小调整到分辨率大小，因此，你无须担心窗口的尺寸问题。二、设置了显示器不支持的显示模式，如果出现了该问题，该语句会抛出一个NotSupportedException的异常，我们只要进行捕捉即可，因此该语句应该放入Try块中，如下：Try??? vDev.SetDisplayMode(640, 480, 16, 85, True)Catch ex As NotSupportedException??? MsgBox(您的显示器不支持指定显示模式，程序将以当前分辨率运行。, MsgBoxStyle.Critical Or MsgBoxStyle.OKOnly, 错误)End Try ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝华丽的分割线＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ 下面就是表面的初始化：Dim vSurfaceCaps As New SurfaceCapsvSurfaceCaps.PrimarySurface = TruevSurfaceCaps.VideoMemory = True Dim vSurfaceDes As New SurfaceDescription(vSurfaceCaps) vSurface = New Surface(vSurfaceDes, vDev)vSurface.FontTransparency = True 因为我们需要自定义绘图的字体和颜色，因此我们需要修改表面的某些属性：首先修改字体，将字体的句柄传入表面中即可：Dim vFont As IntPtr = New Font(黑体, 25, FontStyle.Bold Or FontStyle.Italic).ToHfontvSurface.FontHandle = vFont然后修改表面的前景色（ForeColor）和字体背景色（FontBackColor），前景色将影响所有绘制线条和文字的显示颜色，字体背景色则会影响所有文字的背景颜色，除非已经设置字体背景透明：vSurface.ForeColor = Color.RedvSurface.FontBackColor = Color.Black 如此，初始化工作全部完成。 ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝华丽的分割线＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ 下面就是填充“绘制”按钮的点击事件：画直线vSurface.DrawLine(0, 0, 640, 480)画矩形vSurface.DrawBox(5, 5, 635, 475)画圆vSurface.DrawCircle