订阅｜上一篇:XML-RPC Specification ｜下一篇:DOTNETARX(一个用于.net开发AutoCAD程序的类库)实例教学（续）
和我一起入门Direct3D的VB.net编程
[作者]：菩提树下的杨过 [来源]：互联网 [收录时间]：2007-9-16 12:53:41

我是个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

订阅｜上一篇:XML-RPC Specification ｜下一篇:DOTNETARX(一个用于.net开发AutoCAD程序的类库)实例教学（续）
引用通告：http://www.sqlsky.com/asp-net/070916/35243
相关文章：
  • ·.net datagrid 选择多行
  • ·VS.NET 2005 Beta 2初体验(2)-用C++开发Native代码
  • ·和我一起入门Direct3D的VB.net编程
  • ·为自己的类添加说明文字
  • ·一个自认为写得还可以的存储过程，就是没有注释，看起来有点乱。与ERP的BOM相关的
  • ·asp.net验证码生成类(参考)
  • ·JustinIO的vb.NET版本！（串口操作类）
  • ·XML-RPC Specification
  • ·DOTNETARX(一个用于.net开发AutoCAD程序的类库)实例教学（续）
  • ·.NET程序实现多语言
    • tags:无