第一步 窗体加载的时候
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
以上代码错在哪里？
