VB OpenGL绘图
最近在使用和研究OpenGL绘图，遇到不少问题。网上查阅资料的时候，发现大部分资料都是C语言，和C++写的，VB这方面的资料太少了，VB6.0的就更少，现在都流行dotnet。自己买了本OpenGL书是也是C语言版的。这个博客也开了2年多了，都没写点东东上来。趁晚上睡不着，上来写点。
一、什么是OpenGL？
OpenGL是Open Graphics Lib的缩写，是一套三维图形处理库，也是该领域的工业标准。计算机三维图形是指将用数据描述的三维空间通过计算转换成二维图像并显示或打印出来的技术。
OpenGL被设计成独立于硬件，独立于窗口系统的，在运行各种操作系统的各种计算机上都可用，并能在网络环境下以客户/服务器模式工作，是专业图形处理、科学计算等高端应用领域的标准图形库。
OpenGL是一组绘图命令的API集合。利用这些API能够方便地描述二维和三维几何物体，并控制这些物体按某种方式绘制到显示缓冲区中。OpenGL的API集提供了物体描述、平移、旋转、缩放、光照、纹理、材质、象素、位图、文字、交互以及提高显示性能等方面的功能，基本涵盖了开发二、三维图形程序所需的各个方面。
二、 OpenGL特点
① 跨平台：
OpenGL能够在几乎所有的主流操作系统上运行，包括UNIX、Mac OS、OS/2、Windows NT、Windows9x、Linux等。NEHE的第二课 基本涵盖了世界上所有的编程语言和操作系统。
该教程网址如下
http://nehe.gamedev.net/data/lessons/lesson.asp?lesson=02
② 高质量和高性能
无论是在CAD/CAM、三维动画还是可视化仿真等领域，OpenGL高质量和高效率的图形生成能力都能得到充分的体现。开发人员可以利用OpenGL制作出效果逼真的二、三维图象来。
特点很多，就不多介绍了。
三、 OpenGL和DirectX的比较
关于OpenGL和D3D的比较，大家可以看这篇文章，讲的挺详细的。
http://bbs.bccn.net/thread-224560-1-1.html
四、 OpenGL在线教程
网络上比较有名的NEHE在线教程：http://nehe.gamedev.net/
上面的全英文的，外语有点差的朋友看下面的，这个是对应的中文的翻译版网站
NEHE在线教程对应的中文翻译教程：http://www.owlei.com/DancingWind/
相关文档：
Option Explicit
Private rsMain As ADODB.Recordset
Private rsTerm As ADODB.Recordset
Private strSql As String
Private Sub cmdAbout_Click()
frmAbout.Show
End Sub
Private Sub cmdAddObject_Click() '程序段
......
开始使用vb的时候喜欢用手画出那个控件的位置.然后一个一个的拖动,一点一点的移动.直到感觉满意了为止.如果是控件多了这个就很麻烦了
一不小心可能会将谋个控件拖到一边去
所以,我们在以后的作品中
尽量使用代码来定义控件位置,,要灵活的掌握坐标位置.,可以使用自定义坐标.使用像素来更好的来分区显示控件.
& ......
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Const EWX_LOGOFF = 0
Private Const EWX_SHUTDOWN = 1
Private Const EWX_REBOOT = 2
Private Const EWX_FORCE = 4
Private closeTime As String
Sub AdjustTokenPrivilegesForNT()
......
添加2个text，一个command，一个 WebBrowser
Dim vDoc, vTag
Dim i As Integer
Private Sub Command1_Click()
Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.length - 1
If UCase(vDoc.All(i).tagName) = "INPUT" Then
Set vTag = vDoc.All(i)
If vTag.Type = "text" Then
Select Case vTag.Nam ......
Option Explicit
Public Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Public Declare Function RegCreateKey Lib "advapi32.dll" Alias ......
