【cf美化源码】【历史频率指标源码】【淘宝抢购程序源码】vb.net opengl 源码

2024-11-25 02:27:36 来源:macd日线公式源码 分类:时尚

1.用vb 的OpenGL 在picture中画一个三角形。
2.想学VB和CAD的二次开发,看什么好?

vb.net opengl 源码

用vb 的OpenGL 在picture中画一个三角形。

       è¦æƒ³åœ¨VB6.0中使用OpenGL绘图,必须先下载一个SDK,名字叫vbogl.tlb。

       ä¸‹è½½è¯¥æ–‡ä»¶åŽï¼Œç›´æŽ¥åœ¨VB6.0“工程”-“引用”里面引用

       1、在form中加入一个PictureBox控件

       2、要在Windows里面使用OpenGL,必须先进行像素格式设置,函数代码如下

       Dim hRC As Long’全局变量

        '启用OGL

       Sub EnableOpenGL(ghDC As Long)

       On Error GoTo Err

       Dim pfd As PIXELFORMATDESCRIPTOR 'pfd像素格式设置.

        ZeroMemory pfd, Len(pfd)

        pfd.nSize = Len(pfd) '大小

        pfd.nVersion = 1 '版本

        pfd.dwFlags = PFD_DRAW_TO_WINDOW Or PFD_SUPPORT_OPENGL Or PFD_DOUBLEBUFFER '标志

        pfd.iPixelType = PFD_TYPE_RGBA '像素类型

        pfd.cColorBits = '颜色位数

        pfd.cDepthBits = '位宽

        pfd.iLayerType = PFD_MAIN_PLANE '图层类型

        Dim PixFormat As Long

        PixFormat = ChoosePixelFormat(ghDC, pfd) '选择设备中最匹配我们所设置的像素

        SetPixelFormat ghDC, PixFormat, pfd '设置成当前的像素

        hRC = wglCreateContext(ghDC) '建立翻译描述表

        wglMakeCurrent ghDC, hRC '将建立的翻译描述表设置为当前

        Exit Sub

       Err:

       MsgBox "Can't create OpenGL context!", vbCritical, "Error"

        End

       End Sub

       åœ¨å·¥ç¨‹çš„FORM的load中加入调用代码

       Call EnableOpenGL(Picture1.hDC)

       3、与启用对应的禁用

       '禁用OGL

       Sub DisableOpenGL()

        wglMakeCurrent 0, 0

        wglDeleteContext hRC

       End Sub

       åœ¨å·¥ç¨‹çš„form的unload中加入禁用代码

       Call DisableOpenGL

       4、绘图

       Private Sub Display()

        glClearColor 0#, 0#, 1#, 0# '清空颜色缓存的RGBA颜色值

        glClear clrColorBufferBit '为绘下帧曲面清除缓冲区

        glColor3f 0.8, 0.3, 0.5 '设置显示的字体颜色

        glPushMatrix '依据当前模式(模式-视图矩阵)使矩阵入栈

        glBegin glBeginModeConstants.bmPolygon '开始绘图,绘制一个三角形

        glVertex2f -0.5, -0.5 '三角形的3个顶点

        glVertex2f -0.5, 0.5

        glVertex2f 0.5, -0.5

        glEnd

        glPopMatrix '依据当前模式(模式-视图矩阵)使矩阵出栈

        SwapBuffers Picture1.hDC '切换缓存

       End Sub

       5、在PictureBox1的PAINT事件,调用显示的函数

       Display

想学VB和CAD的二次开发,看什么好?

       还是建议你买书来看,要舍得投入。cf美化源码

        不知道你的基础如何,根据情况可以选择C++或者VB。历史频率指标源码当前AutoCAD的二次开发工具主要有VisualLisp、VBA、ObjectARX和.NET API等。其中,VisualLisp与VBA较为简单,特别是VBA,使用方便且开发速度较快,淘宝抢购程序源码但其功能相比ObjectARX有所不足,尤其是对面向对象的功能支持不好。而ObjectARX基于VC平台,公众号排班源码在C++的支持下,其功能非常强大,可以很好地运用各种面向对象技术,华为liteos内核源码但其缺点是发开速度比较慢,同时对开发人员的能力要求较高。

更多资讯请点击:时尚

热门资讯

洪江源码建站_洪江官网

2024-11-25 01:402426人浏览

书屋项目源码PHP_web书城项目源码

2024-11-25 01:031453人浏览

yosys源码分析

2024-11-25 00:39943人浏览

织梦源码如何导入

2024-11-25 00:002053人浏览

推荐资讯

社交直播交友app源码_社交直播交友app源码下载

1.SNS源码SNS源码诞生SNS源码SNS源码诞生 SNS源码的诞生是社会需求与技术发展的产物。起初,人们为了扩展真实的人脉网络,开始借助网络的力量,但早期的交友网站因虚拟性难以转化为真实的人脉

mac源码阅读器

1.3款MacBook端的阅读器推荐2.kindle for mac电子阅读器下载3.mac上有什么好的pdf阅读器么?4....mac下有没有好用的代码阅读器,像windows下的sourceins