vb.net和三维图 vb和net区别 _Direct

在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 * 33) And HFFFFFFFC)
Dim PixleValue(Stride * Bmp.Height) As Byte
Dim Hanlde As GCHandle = GCHandle.Alloc(PixleValue, GCHandleType.Pinned)
BmpData.Scan0 = Hanlde.AddrOfPinnedObject()
如何用VB画三维图形?三维图形不知道，但我知道用什么可以画二维的。需要一个控件：visual graph 。导入VG后就可以使用了，提供了丰富的元件图库，方便至极。
怎么利用VB.NET实现三维绘图数学上不是有斜二测画法，算好坐标即可画出
或者用AnyCAD的.Net图形控件
也可以调用matlab 实现
VB.NET WPF里如何通过SLIder控件滑动控制三维图形移动Canvas Name="LayoutRoot" Background="LightGray"
!-- Create an Ellipse --
Ellipse Name="mcCircle" Width="200" Height="200"
Canvas.Left="60" Canvas.Top="20"
Fill="Gray" Stroke="Black" StrokeThickness="2"
/Ellipse
!-- Create Slider controls --
Slider Name="RedSlider" Width="300" Height="20"
Background="Red" Maximum="255" Minimum="0"
Canvas.Left="30" Canvas.Top="240"
ValueChanged="RedSlider_ValueChanged"/
Slider Name="GreenSlider" Width="300" Height="20"
Background="Green" Maximum="255" Minimum="0"
Canvas.Left="30" Canvas.Top="270"
ValueChanged="GreenSlider_ValueChanged"/
Slider Name="BlueSlider" Width="300" Height="20"
Background="Blue" Maximum="255" Minimum="0"
Canvas.Left="30" Canvas.Top="300"
ValueChanged="BlueSlider_ValueChanged"/
/Canvas
private void RedSlider_ValueChanged(object sender,RoutedPropertyChangedEventArgsdouble e)
{
UpdateCircleWithColors();
}
private void GreenSlider_ValueChanged(object sender,RoutedPropertyChangedEventArgsdouble e)
{
UpdateCircleWithColors();
}
private void BlueSlider_ValueChanged(object sender,RoutedPropertyChangedEventArgsdouble e)
{
UpdateCircleWithColors();
}
private void UpdateCircleWithColors()
{
Color clr = Color.FromArgb(255, Convert.ToByte(RedSlider.Value),
Convert.ToByte(GreenSlider.Value), Convert.ToByte(BlueSlider.Value));
mcCircle.Fill = new SolidColorBrush(clr);
}
VB.net可以开发小型3D图形显示软件吗？可以借助DirectX来编程。免费3D引擎可不好找vb.net和三维图，一般来说速度比不上硬件加速后vb.net和三维图的DX，尤其令人头疼的是一般都没有针对VB的文档，LZ有这方面理想的话，自己写一个吧……
我不得不承认在VB上写DirectX的教程相当难找！如果LZ想深入研究三维图形问题， C一定要学，就算不能用C编程，起码要能把C程序翻译成VB程序。
我自己学会DX编程花了两三个月（很浅）。编这样一个程序难度是有点大的。
工具：DirectX9和其针对VB的库(项目-添加引用。.NET库里DX库一般都有)，VB不知道现在支不支持DX10以上的版本，不过9绝对够用了。
思路：一切3D图形都是由三角形拼成的。矩形挖掉一个圆孔可不是一个方便画的图形，我估计至少得有24个三角形。vb.net和三维图你需要记录这些点的坐标，或者干脆把它们写在文件里，到时读出来。
这是我的一个老DX程序的不完全的代码(显示一个黑乎乎的平面)，不一定能编译，可以参考一下。
Imports Microsoft.DirectX '一定要~
Public Class FormMain
'Direct3D Startup
Dim d3dpp As New Direct3D.PresentParameters 'DX基本参数，例如全屏还是窗口等
Public MyDevice As Direct3D.Device ‘DX基本设备，画图就靠它。
'Matrices
Dim matWorld, matView, matProj As Matrix '世界位置矩阵，摄像机位置矩阵和透视矩阵，数学要学好啊。
'mesh
Public MyPlane as Direct3D.Mesh ’我们的物体
Public VBPlane(3) As Direct3D.CustomVertex.PositionNormalTextured '存放顶点位置的数组
#Region "DX Core"
Public Sub InitDeviceObjects()
With d3dpp ‘以下请照抄。
.Windowed = True ‘不全屏。
.SwapEffect = Direct3D.SwapEffect.Discard ’双缓冲交换效果。请百度“双缓冲”
.BackBufferFormat = Direct3D.Format.Unknown
.EnableAutoDepthStencil = True ’让DX自动管理深度缓冲
.AutoDepthStencilFormat = Direct3D.DepthFormat.D16
End With
MyDevice = New Direct3D.Device(0, Direct3D.DeviceType.Hardware, Me.Handle, Direct3D.CreateFlags.HardwareVertexProcessing, d3dpp) '创建DX设备啦！以下两句请照抄。
MyDevice.SetRenderState(Direct3D.RenderStates.ZEnable, True) ‘Z缓冲
MyDevice.SetRenderState(Direct3D.RenderStates.NormalizeNormals, True)'法线归一化，请看相关数学书籍。
End Sub
Public Sub RestoreDeviceObjects()
Dim PlaneIB() As Short = {0, 1, 3, 0, 2, 3} ’顶点索引信息。
Dim AttrTable(1) As Direct3D.AttributeRange ‘顶点分组属性表
AttrTable(0).AttributeId = 0
AttrTable(0).FaceStart = 0
AttrTable(0).FaceCount = 2 ’有两个三角形
AttrTable(0).VertexStart = 0
AttrTable(0).VertexCount = 4 ‘四个点
‘顶点坐标信息。
VBPlane(0) = New Direct3D.CustomVertex.PositionNormalTextured(-500, -500, 0, 0, 0, 1, 0, 0)
VBPlane(1) = New Direct3D.CustomVertex.PositionNormalTextured(500, -500, 0, 0, 0, 1, 1, 0)
VBPlane(2) = New Direct3D.CustomVertex.PositionNormalTextured(-500, 500, 0, 0, 0, 1, 0, 1)
VBPlane(3) = New Direct3D.CustomVertex.PositionNormalTextured(500, 500, 0, 0, 0, 1, 1, 1)
MyPlane = New Direct3D.Mesh(2, 4, Direct3D.MeshFlags.Managed, Direct3D.VertexFormats.PositionDirect3D.VertexFormats.NormalDirect3D.VertexFormats.Texture1, MyDevice) ’创建物体
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.TargetDirect3D.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和三维图 vb和net区别】关于vb.net和三维图和vb和net区别的介绍到此就结束了，不知道你从中找到你需要的信息了吗？如果你还想了解更多这方面的信息，记得收藏关注本站。

vb.net和三维图 vb和net区别

推荐阅读

火焰纹章风花雪月pc可以玩吗火焰纹章风花雪月平台介绍

人民检察院是干什么的检察院什么时候成立的?

换新车如何保留原车牌换车以后怎样保留原车牌

遇到西门子洗衣机装水后不转怎么办？3个处理方法帮助你

mysql临时表的创建表语句 mysql临时表生存周期

gba模拟器游戏速度太快 GBA模拟器速度太快的解决办法

乐器有哪些音乐家有哪些

miui12壁纸提取操作方法

小风扇可以带上高铁吗便携小风扇能带上高铁吗

广州市越秀区有哪些学校呢

t10781.1是什么酒

游戏时磁盘占用100%怎么解决游戏时磁盘占用100%怎么办

人保和平安车险哪个好平安和人保哪个好

DNF主播狂人增幅戒指,垫子意外增幅上18,网友欲用5个增幅15的换,合适吗？

如何对云服务器进行磁盘分区？云服务器怎么磁盘分区

沈阳有几个区沈阳哪个稽查局感，税务局稽查局干嘛的

白木耳炖瘦肉白木耳炖瘦肉的功效与作用

oled|12月手机别瞎买：既要销量高，又要口碑好，这三款别错过

坐飞机必须关机吗

天津违章车辆查询网，天津违章车辆查询官网