另一种在WINFORM中使用XNA的方法

Posted zcsor

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了另一种在WINFORM中使用XNA的方法相关的知识,希望对你有一定的参考价值。

之前在写化学分子模型制作程序的时候,使用一种方法,将WINFORM控件嵌入到XNA窗体中,从而实现了即使用WINFORM窗体控件又使用XNA。最近在写另一个物理运动学课件制作程序,同样使用XNA,但从另一个角度实现了WINFORM控件和XNA共存,并且在编码上更简单一些。

一、创建XNA工程并添加窗体

      向工程添加窗体MainForm,并修改GAME1为MainGame。我们把XNA内容绘制到MainForm上,其实绘制到任何有句柄的控件都可以,即使我们绘制到桌面也未尝不可。但更少的控件能够使我们的思路更清晰和明确也不失全面:改变窗体大小时、移动窗口是如何处理XNA的显示。那么现在我们有了一个窗体,在解决首要问题:如何让XNA的内容显示在MainForm上之前,先考虑一下我们前述的MainForm移动等等问题,在MainGame.VB和MainForm.VB中互相调用难以避免,所以我们先公开这两个类。

二、公开类的相互调用和让MainForm先显示

      先显示MainForm要比先显示MainGame看起来更清晰。至少我是这样认为的,因为我们有一个Program类作为程序入口控制MainGame的运行。所以,我们可以在这个类中公开它们并控制加载顺序,修改之后的类看起来是这样的:

#If WINDOWS Or XBOX Then

Module Program
    Friend XnaGame As MainGame
    Friend WinForm As New MainForm
    \'\'\' <summary>
    \'\'\' The main entry point for the application.
    \'\'\' </summary>
    Sub Main(ByVal args As String())
        WinForm.Show()
        Using Game As New MainGame()
            XnaGame = Game
            Game.Run()
        End Using
    End Sub
End Module

#End If

这样MainForm的实例将先被初始化,而后运行MainGame的实例。

三、让XNA内容显示在MainForm上

确切的说是一个叫做MinWorld的Panel上,现在,我们必须拿出杀手锏来了,指定XNA的设备用指定的句柄来创建。这可以在graphics.PreparingDeviceSettings事件中实现,将句柄指定:

    Private Sub Graphics_PreparingDeviceSettings(sender As Object, e As PreparingDeviceSettingsEventArgs)
        e.GraphicsDeviceInformation.PresentationParameters.DeviceWindowHandle = MinWorld.Handle
        e.GraphicsDeviceInformation.PresentationParameters.BackBufferWidth = MinWorld.Width
        e.GraphicsDeviceInformation.PresentationParameters.BackBufferHeight = MinWorld.Height
    End Sub

在代码中,同时设置了背景缓冲区大小,使得两个窗体的大小互相匹配。当然,还需要在MainGame.VB的构造函数添加这个事件处理过程。

四、两窗体的同步过程

这包含很多问题,不仅仅是前面我所提到的窗体大小和位置同步,还包括最小化,XNA窗体在WINDOWS任务栏的显示,重置摄影机等等。为了便于编码,首先在MainGame.vb的构造函数中,初始化一个全局变量:

Friend WithEvents XNAfrm As System.Windows.Forms.Form
XNAfrm= CType(System.Windows.Forms.Form.FromHandle(Me.Window.Handle), System.Windows.Forms.Form)

XNAfrm就是MainGame启动的窗体了。这样我们就可以像操作普通窗体一样操作它。当然,如果你愿意可以不用WithEvents关键字而在构造函数中使用AddHandle来关联事件。接下来就是处理剩下的“很多问题”,假设你熟悉窗体事件,那么很容易能够看出,需要处理的问题集中在窗体大小改变和可见性变化上。

    Private Sub MainGame_VisibleChanged(sender As Object, e As EventArgs) Handles XNAfrm.VisibleChanged
        If XNAfrm.Validate Then
            XNAfrm.FormBorderStyle = Windows.Forms.FormBorderStyle.None
            XNAfrm.Location = minWorld.PointToScreen(Drawing.Point.Empty)
            XNAfrm.Size = minWorld.Size
            XNAfrm.Visible = False
            XNAfrm.ShowInTaskbar = False
        End If
    End Sub

    Private Sub MainGame_SizeChanged(sender As Object, e As EventArgs) Handles XNAfrm.SizeChanged
        graphics.PreferredBackBufferWidth = minWorld.Width
        graphics.PreferredBackBufferHeight = minWorld.Height
        graphics.ApplyChanges()
        Camera = New Camera2D(GraphicsDevice)
    End Sub

在窗体显示时,VisibleChanged事件将会被调用,在这里为了我做了一些工作:

1、去掉窗体边框,这样窗体大小就和其窗体客户区大小匹配,有利于使窗体大小与我们偷梁换柱的控件大小保持一致。

2、指定窗体位置与实际显示控件位置一致,这可能看起来没有什么必要。但实际上不这样做在使用Mouse.GetState时出现偏移。与其后面矫正,不如现在对齐。

3、匹配窗体和实际控件大小,这可以避免画面显示不正常。

4、5、隐藏窗体和任务栏显示,注意两句的顺序。这样可以使得窗体消失——它彻底去了幕后,我们的界面就看起来就完美了。别担心,即使窗体不可见,获取鼠标键盘也不受影响。还记得用DX来偷窥其他程序的输入的代码吗?

在SizeCanged事件中,重新指定了背景缓冲区的大小,注意ApplyChanges,否则上面两两句无效。同时,我重新初始化了我的摄影机。

OK,剩下的问题就是把这两个事件利用起来。VisibleChanged没有什么好说的,是第一次显示的时候起作用。SizeCanged事件也很好引发,只需要在WinForm中重新指定XNAFrm大小就可以了。我们为了保持窗体的大小、位置等同步——成为我们实际显示控件的影子,所以需要处理两个事件:

    Private Sub MainForm_Resize(sender As Object, e As EventArgs) Handles Me.Resize
        If Program.XnaGame IsNot Nothing Then
            If WindowState = FormWindowState.Normal OrElse WindowState = FormWindowState.Maximized Then
                Program.XnaGame.XNAFrm.Size = MinWorld.Size
                Program.XnaGame.XNAFrm.Location = MinWorld.PointToScreen(Drawing.Point.Empty)
            End If
            If WindowState = FormWindowState.Normal OrElse WindowState = FormWindowState.Minimized Then
                Program.XnaGame.XNAFrm.WindowState = WindowState
            End If
        End If
    End Sub

    Private Sub MainForm_Move(sender As Object, e As EventArgs) Handles Me.Move
        If Program.XnaGame IsNot Nothing Then
            Program.XnaGame.XNAFrm.Location = MinWorld.PointToScreen(Drawing.Point.Empty)
        End If
    End Sub

需要注意的是Resize事件中的处理,在窗体最大化和恢复的时候,显示控件的位置也会移动。在窗体最小化和恢复的时候,也应该对XNAFrm进行同样的操作,否则它继续或不再接收输入将会引发以外的问题。

至此,看起来问题都解决了,原来的XNA窗体彻底成了我们显示控件的影子。但实际上,并非如此,回顾最初一段代码和XNA的架构可以预见(哦,好吧,我也是关了窗体发现进程还在发现的。可见调试的必要性,至少我这脑子漏洞很多。):XnaGame还在运行。那么,退出窗体时干掉它就万事大吉了:

 

    Private Sub MainForm_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
        If Program.XnaGame IsNot Nothing Then
            Program.XnaGame.Exit()
        End If
    End Sub

最后,给这个小小半的半成品上个玉照:

以上是关于另一种在WINFORM中使用XNA的方法的主要内容,如果未能解决你的问题,请参考以下文章

什么是另一种在声明时使用窗口函数和大小写除法的方法[关闭]

如何获取 XNA 游戏屏幕上的窗口位置?

在 WinForms 中嵌入 XNA

如何获得国家(或其ISO代码)?

在 WinForm 中使用 Direct2D

php 只是一种在WordPress安装中搜索内容的简单方法。允许以简单的方式搜索使用短代码的位置