VB.NET使用glut的glutMouseFunc函数问题 100C

第一步 窗体加载的时候
Tao.FreeGlut.Glut.glutMouseFunc(Tao.FreeGlut.Glut.MouseCallback.Combine)
第二步
Sub mymouse(ByVal button As Integer, ByVal state As Integer, ByVal x As Integer, ByVal y As Integer)

    Debug.Write(button)

End Sub

第三步
Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove

    Tao.FreeGlut.Glut.glutMouseFunc(AddressOf mymouse)

end
以上代码错在哪里?

Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
立即提问