The OpenGL Extension Library for VB.NET by translate glew.h using VB6
Simply using VB6 to open the project, run it, or compile and run. Then you will get the file named GL_API.vb, which is the product.
Currently this library only runs in Windows. It's basically translated from the original glew.c source code.
When you get GL_API.vb, add it to your VB.NET project, then you have access to OpenGL function and constant definitions.
The usage of GL_API.vb is very similar to GLEW: The OpenGL Extension Wrangler Library. Make an OpenGL context, call GLAPI_Init(), then use the extensions just like using GLEW.
First we need an OpenGL Context which should be created by calling SetPixelFormat() on a HDC then call wglCreateContext() to create the context, then call wglMakeCurrent() to use it. Check out the tutorial of how to create the OpenGL context
Then call GLAPI_Init(), just like using GLEW and call glewInit().
GL_API.vb provides a Boolean variable for all the extensions which indicates the availability of the extension. Check the variable when you need it.
For example:
Function CompileShader(ByVal VS_code As String, ByVal FS_code As String) As Long
Dim VS_code_Array(0) As String
Dim FS_code_Array(0) As String
VS_code_Array(0) = VS_code
FS_code_Array(0) = FS_code
Dim name_VS As UInt32
Dim name_FS As UInt32
Dim ShaderProgram As UInt32
If GL_VERSION_2_0 Then 'HERE! Check the variable to know the extension is available or not
name_VS = glCreateShader(GL_VERTEX_SHADER)
name_FS = glCreateShader(GL_FRAGMENT_SHADER)
glShaderSource(name_VS, 1, VS_code_Array, Len(VS_code))
glShaderSource(name_FS, 1, FS_code_Array, Len(FS_code))
glCompileShader(name_VS)
glCompileShader(name_FS)
ShaderProgram = glCreateProgram()
glAttachShader(ShaderProgram, name_VS)
glAttachShader(ShaderProgram, name_FS)
glLinkProgram(ShaderProgram)
glDeleteShader(name_VS)
glDeleteShader(name_FS)
Return ShaderProgram
Else
Return 0
End If
End Function