vb openGL 可以用鼠标旋转的立方体源码.docVIP

=================================================================== Dim hRC As Long 全局变量 Dim LEFT_MOUSE_DOWN As Boolean, RIGHT_MOUSE_DOWN As Boolean Dim PICT_OLD_X As Integer, PICT_OLD_Y As Integer, PICT_OLD_Z As Integer Dim rQuadX As GLfloat, rQuadY As GLfloat, rQuadZ As GLfloat Dim mQuadX As GLfloat, mQuadY As GLfloat, mQuadZ As GLfloat Dim RGB_R As Integer, RGB_G As Integer, RBG_B As Integer Dim R_voul As Single Private Sub RGB_TO(INDEX_COLOR As Long) RGB_R = INDEX_COLOR And 255 RGB_G = ((INDEX_COLOR - RGB_R) / 256) And 255 RGB_B = ((INDEX_COLOR - RGB_R - RGB_G) / 256) / 256 End Sub Private Sub backcolor_menu_Click() CommonDialog1.CancelError = True 将 Cancel 设置成 True。 CommonDialog1.Flags = cdlCCRGBInit 设置 Flags 属性。 CommonDialog1.ShowColor 显示颜色对话框。 RGB_TO CommonDialog1.Color 将窗体的背景颜色设置成选定的颜色。 Display End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As MSComCtlLib.Button) On Error Resume Next Select Case Button.Key Case 按钮 应做:添加 按钮 按钮代码。 MsgBox 添加 按钮 按钮代码。 End Select End Sub Private Sub exit_menu_Click() Unload Form1 End Sub Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = vbRightButton Then RIGHT_MOUSE_DOWN = True PICT_OLD_X = x PICT_OLD_Y = y End If End Sub Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) If RIGHT_MOUSE_DOWN Then Dim XX As Single, YY As Single XX = (x - PICT_OLD_X) / 10 YY = (y - PICT_OLD_Y) / 10 PICT_OLD_X = x PICT_OLD_Y = y rQuadX = rQuadX - YY Display rQuadY = rQuadY - XX Display End If End Sub Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)