和我一起入门Direct3D的VB.net编程

我是个VB程序员，一直在做数据库应用程序的开发，做的时间长了就感觉很烦闷，很想换换口味，但苦于没有学习时间和资料，恰巧看到CSDN上他人写的学习经验，我也就很快的入了门。好东西不敢独享，随着我学习的同时，把原来的C#程序改成了vb.net的代码，但思路还是一样的，仅供大家参考。
（感谢原文作者。原文：http://blog.csdn.net/ygrx/archive/2005/03/02/307781.aspx?Pending=true）

Imports Microsoft.DirectX
Imports Microsoft.DirectX.Direct3D

Public Class Form1
Inherits System.Windows.Forms.Form

#Region " Windows 窗体设计器生成的代码 "

Public Sub New()
MyBase.New()

@#该调用是 Windows 窗体设计器所必需的。
InitializeComponent()

@#在 InitializeComponent() 调用之后添加任何初始化
Me.SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.Opaque, True)
End Sub

@#窗体重写 dispose 以清理组件列表。
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub

@#Windows 窗体设计器所必需的
Private components As System.ComponentModel.IContainer

@#注意: 以下过程是 Windows 窗体设计器所必需的
@#可以使用 Windows 窗体设计器修改此过程。
@#不要使用代码编辑器修改它。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
@#
@#Form1
@#
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
Me.ClientSize = New System.Drawing.Size(292, 266)
Me.Name = "Form1"
Me.Text = "Form1"

End Sub

#End Region


阿游 发表于 2005-03-22 2:49 PM
Private device As Device

Public Sub InitializeGraphics()
@#设置参数
Dim presentParams As PresentParameters = New PresentParameters

presentParams.Windowed = True @#窗口模式
presentParams.SwapEffect = SwapEffect.Discard @#交换

@#创建设备
device = New Device(0, DeviceType.Hardware, Me, CreateFlags.SoftwareVertexProcessing, presentParams)
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
InitializeGraphics()
End Sub

Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
device.Clear(ClearFlags.Target, System.Drawing.Color.CadetBlue, 1.0F, 0)

Dim verts(2) As CustomVertex.TransformedColored
verts(0).Position = New Vector4(Me.Width / 2.0F, 50.0F, 0.5F, 1.0F)
verts(0).Color = System.Drawing.Color.Aqua.ToArgb()
verts(1).Position = New Vector4(Me.Width - Me.Width / 5.0F, Me.Height - Me.Height / 5.0F, 0.5F, 1.0F)
verts(1).Color = System.Drawing.Color.Black.ToArgb()
verts(2).Position = New Vector4(Me.Width / 5.0F, Me.Height - Me.Height / 5.0F, 0.5F, 1.0F)
verts(2).Color = System.Drawing.Color.Purple.ToArgb()
device.BeginScene()
device.VertexFormat = CustomVertex.TransformedColored.Format
device.DrawUserPrimitives(PrimitiveType.TriangleList, 1, verts)
device.EndScene()
device.Present()

Me.Invalidate()
End Sub
End Class

原文转自：http://www.ltesting.net