急求解决.vb+opengl问题:做拾取的时候,为什么会出现 byref ar

wszly

刚开始用vb+opengl,做拾取的时候总是出现 byref argument type dismatch 的错误.哪位老大能帮俺看一看,不胜感激!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
源码是:
Private Sub Form_MouseDown(button As Integer, Shift As Integer, x As Single, y As Single)
Const BUFSIZE = 512
Dim selectbuf(BUFSIZE) As GLuint
Dim viewport(4) As GLint

glGetIntegerv GL_VIEWPORT, viewport
glSelectBuffer BUFSIZE, selectbuf
glRenderMode GL_SELECT

glInitNames
glPushName 0

glMatrixMode GL_PROJECTION
glPushMatrix
glLoadIdentity

gluPickMatrix x, viewport(3) - y, 0.5, 0.5, viewport
gluOrtho2D 0#, 0.5, 0#, 0.5
glMatrixMode GL_PROJECTION

glPopMatrix
glFlush
End Sub

wszly

对了,忘了说了,错时出在
glGetIntegerv GL_VIEWPORT, viewport
glSelectBuffer BUFSIZE, selectbuf
这两句的viewport和selectbuf
上.

wszly

有没有人能帮帮我啊.

bigbook2000

类型不匹配呀

比如 glGetIntegerv 的第二个参数原型是一个指针类型（实际上就是数组第一个元素的地址），viewport 在VB6中是数组类型，当然不匹配了，改为

glGetIntegerv GL_VIEWPORT, viewport(0)

试试