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 使用appFace美化窗体,按钮有灰色设置backColor属性为“TransParent”试试看 。不过我不认为这是个好办法 。
appFace不是一个专用于VB.NET/C#的控件,建议还是用其他的.NET控件好了 。譬如Devexpress的相关控件 。
VB.NET 在编写阶段存到程序里,需要的时候再显示在图片控件上,该如何实现?点击菜单--项目--WindowsApplication属性(工程属性),在打开的属性窗口,选择”资源“页,点击菜单--添加资源--添加现有文件 , 将硬盘上图片文件添加进资源文件,文件名自动变为资源名 。
在代码中,需要改变按钮图像时,用:
Button1.Image = My.Resources.FACE01'FACE01是我的资源文件名,你要改成你自己的
【包含vb.netface的词条】vb.netface的介绍就聊到这里吧,感谢你花时间阅读本站内容,更多关于、vb.netface的信息别忘了在本站进行查找喔 。
推荐阅读
- 腾讯云服务器怎么用,腾讯云服务器怎么用手机远程桌面
- 手机上chatgpt注册,chatroulette怎么注册
- ps5动作游戏前10,ps5十大必玩游戏
- 无人直播带货直播间视频,无人直播带货是怎么操作的
- vb.net怎么搞wcf vbnet c
- oracle创建表和添加数据,Oracle导出表数据
- 重庆网站制作公司,重庆做网站的公司
- mysql列名怎么设置 十代i5处理器哪个型号好
- 传统媒体如何经营新媒体,新媒体对传统媒体的冲击和影响