之前在写化学分子模型制作程序的时候，使用一种方法，将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
最后，给这个小小半的半成品上个玉照：
