绘制文本

        ' 生成位图字体显示列表
        base = glGenLists(256)
        wglUseFontBitmaps(hDC, 0, 255, base)

        ' 生成轮廓字体显示列表
        base = glGenLists(256)
        Dim gmf(255) As GLYPHMETRICSFLOAT
        wglUseFontOutlines(hDC, 0, 255, base, deviation, extrusion, WGL_FONT_LINES, gmf)

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Gl.glClear(Gl.GL_COLOR_BUFFER_BIT Or Gl.GL_DEPTH_BUFFER_BIT)
        Dim s As String = "Abc-文本测试"
        Dim listNum As Integer
        Dim hfont As Integer
        hfont = Gdi.CreateFont(-30, 0, 0, 0, Gdi.FW_BOLD, 0, 0, 0, Gdi.ANSI_CHARSET, Gdi.OUT_TT_PRECIS, _
                                   Gdi.CLIP_DEFAULT_PRECIS, Gdi.ANTIALIASED_QUALITY, Gdi.FF_DONTCARE Or Gdi.DEFAULT_PITCH, "黑体")
        SelectObject(User.GetDC(SimpleOpenGlControl1.Handle), hfont)
        Gl.glPushMatrix()
        Gl.glColor3d(1.0#, 0.0#, 0.0#)
        '此函数不能放在着色函数前面，否则出错
        Gl.glRasterPos3f(0, 0, 0)
        Dim b As Boolean
        If Len(s) > 0 Then
            listNum = Gl.glGenLists(1)
            For i = 1 To Len(s)
                b = Wgl.wglUseFontBitmapsW(User.GetDC(SimpleOpenGlControl1.Handle), Convert.ToInt32(s(i - 1)), 1, listNum)
                If b = False Then
                    i = i - 1
                Else
                    Gl.glCallList(listNum)
                End If
            Next i
            Gl.glDeleteLists(listNum, 1)
        End If
        Gl.glPopMatrix()
        Gl.glFinish()
        SimpleOpenGlControl1.SwapBuffers()
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Dispose()
    End Sub