vb中安装调用opengl(转载)

dongdonggege

OpenGL（全写Open Graphics Library）是指定义了一个跨编程语言、跨平台的编程接口规格的专业的图形程序接口。它用于三维图像（二维的亦可），是一个功能强大，调用方便的底层图形库。
OpenGL 是行业领域中最为广泛接纳的 2D/3D 图形 API，其自诞生至今已催生了各种计算机平台及设备上的数千优秀应用程序。OpenGL 是独立于视窗操作系统或其它操作系统的，亦是网络透明的。在包含CAD、内容创作、能源、娱乐、游戏开发、制造业、制药业及虚拟现实等行业领域中，OpenGL 帮助程序员实现在 PC、工作站、超级计算机等硬件设备上的高性能、极具冲击力的高视觉表现力图形处理软件的开发。

下面是我从网上找来的内容，附件仅适用于opengl—1.2版本。
见vb中安装调用opengl https://zhidao.baidu.com/question/536207478.html
1、先下载 vbogl.tlb，放在"C:\Windows\System32\"下，注意vbogl.tlb与 glut32.dll等文件位于同一个文件夹。

2、注册。运行：regsvr32 "C:\Windows\System32\vbogl.tlb"。在VB“工程”-“引用”中就可以使用 VB Opengl API 1.2了。
测试代码：

1. Private Sub Form_Resize()
   
2.     InvalidateRect Form1.hWnd, 0, 1 '
   
3.     UpdateWindow Form1.hWnd '
   
4. End Sub
   
5. 
   
6. Function glInit(hWnd As Long)
   
7. 
   
8.     Dim pdf As PIXELFORMATDESCRIPTOR  'addr = VarPtr(pfd)
   
9.     Id = DescribePixelFormat(Form1.hDC, 1, 40, pdf) '
   
10.     pdf.dwFlags = pdf.dwFlags + PFD_DOUBLEBUFFER
    
11.     Id = ChoosePixelFormat(Form1.hDC, pdf) '
    
12.     SetPixelFormat Form1.hDC, Id, pdf '
    
13.     g_hRC = wglCreateContext(Form1.hDC) '
    
14.     wglMakeCurrent Form1.hDC, g_hRC '
    
15.     w = Form1.Width * 0.067: h = Form1.Height * 0.067 ' px
    
16.     glViewport 0, 0, w, h
    
17.     glMatrixMode mmProjection
    
18.     glLoadIdentity
    
19.     gluPerspective 60#, w / h, 1.5, 2000#
    
20.     glMatrixMode mmModelView
    
21.     gluLookAt 10, 5, 10, 0, 0, 0, 0, 1, 0
    
22. 
    
23. End Function
    
24. 
    
25. Private Sub Form_Paint()
    
26.     glClearColor 0, 0, 1, 1 ' 必须在 glClear之前glClear clrColorBufferBit
    
27.     glColor3f 1, 1, 1
    
28.     glPointSize 15
    
29.     glBegin bmPoints
    
30.     glVertex3f 0, 0, 0
    
31.     glEnd
    
32.      
    
33.     SwapBuffers Form1.hDC '
    
34. End Sub

复制代码

遗憾的是，现在的opengl都是2点几和3点几的版本了，因这个附件是1.2版本的，所以附件并不适用于现在的opengl版本了，要是vbogl.tlb有合适的版本就好了。
vb 与vba有很多相近的功能，要是vba也能调用opengl，那绘图方面就强大的多了。
另
VB6不用vbogl.tlb玩OpenGL（转载）https://www.0xaa55.com/thread-852-1-1.html
程序比较长，还不知道怎么使用。
我是抛砖引玉，哪位高手有这方面的经验的，欢迎介绍下。

dongdonggege

成功了，我的第一个VB6.0-OpenGL程序！刚才无意中在工程-引用vbogl.tlb，终于能引用VB OpenGL API 1.2 (ANSI)成功。前几天在家中的机器出现模块注册不成功，引用也不成功，今天在幼儿园一样的系统，模块注册不成功，引用竟然成功了，欣喜若狂。在32位机上，我是把vbogl.tlb文件放到C:\Windows\System32里，在工具——引用，找到刚才的位置，可以调用。
在64位机上，我是把vbogl.tlb文件C:\Program Files (x86)\Microsoft Office\OFFICE11里，在工具——引用，找到刚才的位置，可以调用。
好像是我把glew.h和wglew.h放进了vc6\VC98\Include文件夹，两个dll文件放进了C:\Windows\System32文件夹。窗体代码：

1. Private Declare Function GetForegroundWindow Lib "user32" () As Long
   
2. Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
   
3. Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
   
4. 
   
5. Dim hRC As Long '全局变量
   
6. Private Sub CommandButton1_Click()
   
7.     hwnd& = FindWindow(vbNullString, Me.Caption)
   
8.     hdc& = GetDC(hwnd)
   
9.     Call EnableOpenGL(hdc&)
   
10.     Display
    
11. End Sub
    
12. 
    
13. Sub EnableOpenGL(ghDC As Long)
    
14.     On Error GoTo Err
    
15.     Dim pfd As PIXELFORMATDESCRIPTOR                'pfd像素格式设置.
    
16.         ZeroMemory pfd, Len(pfd)
    
17.         pfd.nSize = Len(pfd)                        '大小
    
18.         pfd.nVersion = 1                            '版本
    
19.         pfd.dwFlags = PFD_DRAW_TO_WINDOW Or PFD_SUPPORT_OPENGL Or PFD_DOUBLEBUFFER '标志
    
20.         pfd.iPixelType = PFD_TYPE_RGBA              '像素类型
    
21.         pfd.cColorBits = 24                         '颜色位数
    
22.         pfd.cDepthBits = 32                         '位宽
    
23.         pfd.iLayerType = PFD_MAIN_PLANE             '图层类型
    
24.       
    
25.         Dim PixFormat As Long
    
26.         PixFormat = ChoosePixelFormat(ghDC, pfd)    '选择设备中最匹配我们所设置的像素
    
27.         SetPixelFormat ghDC, PixFormat, pfd         '设置成当前的像素
    
28.         hRC = wglCreateContext(ghDC)                '建立翻译描述表
    
29.         wglMakeCurrent ghDC, hRC                    '将建立的翻译描述表设置为当前
    
30.         Exit Sub
    
31. Err:
    
32.     MsgBox "Can't   create   OpenGL   context!", vbCritical, "Error"
    
33.               End
    
34. End Sub
    
35. 
    
36. Private Sub Display()
    
37.     hwnd& = FindWindow(vbNullString, Me.Caption)
    
38.     hdc& = GetDC(hwnd)
    
39.     glClearColor 0#, 0#, 1#, 0#   '清空颜色缓存的RGBA颜色值
    
40.     glClear clrColorBufferBit     '为绘下帧曲面清除缓冲区
    
41.     glColor3f 0.8, 0.3, 0.5       '设置显示的字体颜色
    
42.    
    
43.     glPushMatrix                  '依据当前模式（模式-视图矩阵）使矩阵入栈
    
44.    
    
45.     glBegin glBeginModeConstants.bmPolygon '开始绘图，绘制一个四边形
    
46.         glVertex2f -0.5, -0.5     '四边形的4个顶点
    
47.         glVertex2f -0.5, 0.5
    
48.         glVertex2f 0.5, 0.5
    
49.         glVertex2f 0.5, -0.5
    
50.     glEnd
    
51.     glPopMatrix                           '依据当前模式（模式-视图矩阵）使矩阵出栈
    
52.     SwapBuffers hdc             '切换缓存
    
53.       
    
54. End Sub
    
55. 
    
56. Sub DisableOpenGL()
    
57.     wglMakeCurrent 0, 0
    
58.     wglDeleteContext hRC
    
59. End Sub

复制代码

glew-2.1.0-win32.zip文件太大，无法上传。

doul123

支持。就是牛。

dongdonggege

glut32，今天想起来，说不定还需要这个文件上传，以备不测。
这个项目一直没有进展，3D一直做不出来。三年了，VB的，就是做不出来。

lss001

dongdonggege 发表于 2021-2-7 16:22
glut32，今天想起来，说不定还需要这个文件上传，以备不测。
这个项目一直没有进展，3D一直做不出来。三年 ...

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,

dongdonggege

lss001 发表于 2021-5-15 10:47
附件解压后先注册glut.dll,glut32.dll
//打开excel 点击按钮即可注册
然后引用vbogl.tib

谢谢，你的2D3D图形，好像都偏到上面去了，不在中间。

dongdonggege

lss001 发表于 2021-5-15 10:47
附件解压后先注册glut.dll,glut32.dll
//打开excel 点击按钮即可注册
然后引用vbogl.tib

我的图是这样的，没有英文和汉语。

lss001

dongdonggege 发表于 2021-5-15 17:05
我的图是这样的，没有英文和汉语。

显示器分辨率因素
2D视图矩阵glViewpore 第二参数150改小(即减小y轴，下同）
2D文字TextOut  第三参数100改大
3D视图矩阵glViewpore 第二参数150改小
3D文字glViewpore  第二参数100改小

dongdonggege

lss001 发表于 2021-5-16 08:06
显示器分辨率因素，视图矩阵y轴150改小即可！

汉字“中国”，一闪就没，你截图，我看看。

lss001

dongdonggege 发表于 2021-5-16 08:16
汉字“中国”，一闪就没，你截图，我看看。

、、、、、、、、、、、、、、、、、、、、、、、、、、、、