锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net3d编程 vb net( 二 )

IT技术数据


MyPlane.SetVertexBufferData(VBPlane, Direct3D.LockFlags.None) ‘输入顶点坐标数据
MyPlane.SetIndexBufferData(PlaneIB, Direct3D.LockFlags.None) ‘输入索引数据
MyPlane.SetAttributeTable(AttrTable) ‘输入顶点分组属性表
End Sub
Public Sub Render() ‘调用它画图
Dim vlook As New Vector3(1, 0, 0)
Dim vPos As New Vector3(0,0,0)
Dim vUp As New Vector3(0, 0, 1)
MatView = Matrix.LookAtLH(vPos, vlook, vUp) ‘计算摄像机位置矩阵
Device.SetTransform(Direct3D.TransformType.View, MatView) ‘设置当前摄像机位置矩阵为MatView 。
Dim fAspect As Single = Me.Width / Me.Height ’窗口长宽比
matProj = Matrix.PerspectiveFovLH(Math.PI / 4, fAspect, 1.0F, 10001) ‘计算透视矩阵MatProj 。
MyDevice.SetTransform(Direct3D.TransformType.Projection, matProj) ‘设置当前透视矩阵为MatProj 。
MyDevice.Clear(Direct3D.ClearFlags.Target + Direct3D.ClearFlags.ZBuffer, Color.Blue, 1.0F, 0) ’先刷蓝屏
MyDevice.BeginScene() ‘开始画
MatWorld = Matrix.Identity ’物体位于原点，不旋转
Device.SetTransform(Direct3D.TransformType.World, MatWorld) ’设置物体位置
Me.Mesh.DrawSubset(0) ‘画物体
MyDevice.EndScene() ’结束
MyDevice.Present() ‘显示在屏幕上
End Sub
Public Sub DeleteDeviceObjects() ’结束程序时放掉资源
MyPlane.Dispose()
MyDevice.Dispose()
End Sub
#End Region
Private Sub FormMain_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
DeleteDeviceObjects()
Windows.Forms.Cursor.Show()
End Sub
Private Sub FormMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
InitDeviceObjects()
RestoreDeviceObjects()
Windows.Forms.Cursor.Hide()
Render()
End Sub
End Class
在vb.net环境下图像处理，用什么建立3D首先，还是谈谈图像像素时数据获取方面吧，.net中的图像相关类基本上都是基于GDI+的，因此，图像数据的获取其实也是调用GDI+的一些函数 。这个函数就是LockBits，在vb.net中彩色图像数据的快速获取 一文中，我们是调用了Marshal.Copy把LockBits锁定的内存数据拷贝到数据中，然后对数组中的值进行处理 。这样做主要的原因是VB.NET不好直接访问内存（Marshal.ReadByte之类的函数不适合用于大型的循环中) 。那么，这就造成了2个不好的事情，第一：在同一时间需要2倍于图像数据量的内存，第二：内存数据拷贝到数据，以及处理后再把数组的数据拷贝会内存中都是会减低速度的 。作为一种改进 ， 我们应该充分利用LockBits的功能 。LockBits中的LockMode中有一种模式为ImageLockMode.UserInputBuffer，该模式下需要用户先申请内存，然后在把图像数据按照相关格式填充如这个内存中 。这样，就可以先定义个数组，然后把图像数据填充到这个数组中，就避免了来回拷贝的耗时了，简单示例代码如下：
Dim BmpData As New BitmapData
Stride = ((Bmp.Width * 3 + 3) And HFFFFFFFC)
Dim PixleValue(Stride * Bmp.Height) As Byte
Dim Hanlde As GCHandle = GCHandle.Alloc(PixleValue, GCHandleType.Pinned)
BmpData.Scan0 = Hanlde.AddrOfPinnedObject()
【vb.net3d编程 vb net】关于vb.net3d编程和vb net的介绍到此就结束了 ， 不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

推荐阅读


上一篇：erp系统pawote，erp系统有哪些功能模块

下一篇：安卓界面布局app，安卓界面布局分析工具