mdigp3.frm

A good aplication to see some components like better button and vertical menu. Works with GP3 to con

      Begin VB.Menu mnuReinicar 
         Caption         =   "&Reinicar"
      End
      Begin VB.Menu mnuSair 
         Caption         =   "&Sair"
      End
   End
   Begin VB.Menu mnuCadastros 
      Caption         =   "&Cadastros"
      Visible         =   0   'False
      Begin VB.Menu mnuVoltas 
         Caption         =   "&Voltas"
      End
      Begin VB.Menu mnuCorridas 
         Caption         =   "&Corridas"
      End
      Begin VB.Menu mnuSep2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuPilotos 
         Caption         =   "&Pilotos"
      End
      Begin VB.Menu mnuEquipes 
         Caption         =   "&Equipes"
      End
      Begin VB.Menu mnuPistas 
         Caption         =   "P&istas"
      End
   End
   Begin VB.Menu mnuTempos 
      Caption         =   "&Tempos"
      Visible         =   0   'False
      Begin VB.Menu mnuTreino 
         Caption         =   "&Treino"
      End
      Begin VB.Menu mnuCorrida 
         Caption         =   "&Corrida"
      End
      Begin VB.Menu mnuSep3 
         Caption         =   "-"
      End
      Begin VB.Menu mnuRecordes 
         Caption         =   "Recordes"
      End
   End
   Begin VB.Menu mnuExibir 
      Caption         =   "&Exibir"
      Begin VB.Menu mnuBarraAtalhos 
         Caption         =   "Barra de &Atalhos"
         Checked         =   -1  'True
      End
      Begin VB.Menu mnuBarraStatus 
         Caption         =   "Barra de &Status"
         Checked         =   -1  'True
      End
   End
   Begin VB.Menu mnuFerramentas 
      Caption         =   "&Ferramentas"
      Visible         =   0   'False
      Begin VB.Menu mnuImportarTextos 
         Caption         =   "Importar &Textos"
      End
      Begin VB.Menu mnuSep4 
         Caption         =   "-"
      End
      Begin VB.Menu mnuVerImportados 
         Caption         =   "Ver &Importados"
      End
      Begin VB.Menu mnuVerLog 
         Caption         =   "Ver &Log"
      End
   End
   Begin VB.Menu mnuLinguagem 
      Caption         =   "&Linguagem"
      Visible         =   0   'False
      Begin VB.Menu mnuPortugues 
         Caption         =   "&Portugu阺"
      End
      Begin VB.Menu mnuEnglish 
         Caption         =   "&English"
      End
      Begin VB.Menu mnuEspanol 
         Caption         =   "E&spa駉l"
      End
   End
   Begin VB.Menu mnuOutros 
      Caption         =   "&Outros"
      Visible         =   0   'False
      Begin VB.Menu mnuClassPilotos 
         Caption         =   "Classifica玢o por &Pilotos"
      End
      Begin VB.Menu mnuClassEquipes 
         Caption         =   "Classifica玢o por &Equipes"
      End
      Begin VB.Menu mnuSep5 
         Caption         =   "-"
      End
      Begin VB.Menu mnuNumeros 
         Caption         =   "&N鷐eros"
      End
   End
   Begin VB.Menu mnuAtalhos 
      Caption         =   "&Atalhos"
      Visible         =   0   'False
      Begin VB.Menu mnuAtalho1 
         Caption         =   "&Novo Atalho"
      End
      Begin VB.Menu mnuAtalho2 
         Caption         =   "&Novo Atalho"
         Visible         =   0   'False
      End
      Begin VB.Menu mnuAtalho3 
         Caption         =   "&Novo Atalho"
         Visible         =   0   'False
      End
      Begin VB.Menu mnuAtalho4 
         Caption         =   "&Novo Atalho"
         Visible         =   0   'False
      End
      Begin VB.Menu mnuAtalho5 
         Caption         =   "&Novo Atalho"
         Visible         =   0   'False
      End
      Begin VB.Menu mnuAtalho6 
         Caption         =   "&Novo Atalho"
         Visible         =   0   'False
      End
   End
   Begin VB.Menu mnuajuda 
      Caption         =   "A&juda"
      Begin VB.Menu mnuConteudo 
         Caption         =   "&Conte鷇o"
      End
      Begin VB.Menu mnuSep6 
         Caption         =   "-"
      End
      Begin VB.Menu mnuSobre 
         Caption         =   "&Sobre..."
      End
   End
End
Attribute VB_Name = "MDIGP3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function SetWindowLong Lib "user32" _
Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal _
nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function GetWindowLong Lib "user32" _
Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal _
nIndex As Long) As Long

Const WS_MINIMIZEBOX = &H20000
Const WS_MAXIMIZEBOX = &H10000
Const GWL_STYLE = (-16)

Private Sub cmdCorrida_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)

    mnuCorrida_Click

End Sub

Private Sub cmdEquipes_Click()

    mnuClassEquipes_Click

End Sub

Private Sub cmdPilotos_Click()

    mnuClassPilotos_Click

End Sub

Private Sub cmdTreino_Click()

    mnuTreino_Click

End Sub

Private Sub teste()

    Inet1.Document = "index.htm"
    Inet1.UserName = "cassioveras"
    Inet1.Password = "251047"
'   Inet1.GetHeader
    MsgBox Inet1.hInternet
    If Inet1.StillExecuting = False Then
    Inet1.Execute
    End If
    MsgBox Inet1.ResponseInfo
    Inet1.OpenURL ("www.portalvirtualnet.hpg.ig.com.br")
    MsgBox Inet1.StillExecuting

End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)
    
    MsgBox State

End Sub


Private Sub MDIForm_Load()
Dim lWnd As Long
    

    stbStatus.Panels(2).Text = "Carregando sistema..."
    stbStatus.Refresh
    lWnd = GetWindowLong(Me.hwnd, GWL_STYLE)
    lWnd = lWnd And Not (WS_MINIMIZEBOX)
    lWnd = lWnd And Not (WS_MAXIMIZEBOX)
    lWnd = SetWindowLong(Me.hwnd, GWL_STYLE, lWnd)

    stbStatus.Panels(2).Text = "Abrindo banco de dados..."
    stbStatus.Refresh
    Call AbreBanco
    stbStatus.Panels(2).Text = "Verificando atalhos..."
    stbStatus.Refresh
    Set rsAuxiliar = DBGP3.OpenRecordset("Atalhos")
    Do Until rsAuxiliar.EOF
        vtmMenu.MenuCur = 3
        vtmMenu.MenuItemCur = rsAuxiliar("Codigo")
        vtmMenu.MenuItemCaption = rsAuxiliar("NomeAtalho")
        'vtmMenu.MenuItemIcon = LoadPicture(rsAuxiliar("Icone"))
        rsAuxiliar.MoveNext
    Loop
    rsAuxiliar.Close
    stbStatus.Panels(2).Text = "Pronto..."
    
End Sub

Private Sub MDIForm_Resize()
    
    MDIGP3.WindowState = 0
    MDIGP3.Width = 10800
    MDIGP3.Height = 6630
    cmdAjuda.Left = MDIGP3.Width - 1450
    
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)

    stbStatus.Panels(2).Text = "Finalizando..."
    If MsgBox("Deseja sair do GP3 Manager?", vbYesNo + vbQuestion) = vbNo Then
        Cancel = True
    End If
    DBGP3.Close
    stbStatus.Panels(2).Text = "Pronto..."

End Sub

Private Sub mnuBarraAtalhos_Click()

    If mnuBarraAtalhos.Checked = True Then
        picAtalhos.Visible = False
        mnuBarraAtalhos.Checked = False
        vtmMenu.Height = vtmMenu.Height + picAtalhos.Height
    Else
        picAtalhos.Visible = True
        mnuBarraAtalhos.Checked = True
        vtmMenu.Height = vtmMenu.Height - picAtalhos.Height
    End If
    
End Sub

Private Sub mnuBarraStatus_Click()

    If mnuBarraStatus.Checked = True Then
        stbStatus.Visible = False
        mnuBarraStatus.Checked = False
        vtmMenu.Height = vtmMenu.Height + stbStatus.Height
    Else
        stbStatus.Visible = True
        mnuBarraStatus.Checked = True
        vtmMenu.Height = vtmMenu.Height - stbStatus.Height
    End If

End Sub

Private Sub mnuCorrida_Click()

    Me.MousePointer = 11
    frmCorrida.Show
    frmCorrida.WindowState = 2
    Me.MousePointer = 0

End Sub

Private Sub mnuRecordes_Click()

    frmRecords.Show

End Sub

Private Sub mnuReinicar_Click()

    Unload Me
    MDIGP3.Show

End Sub

Private Sub mnuSair_Click()

    Unload Me

End Sub


Private Sub SysInfo1_SysColorsChanged()

    stbStatus.Panels(2).Text = "Foram detectadas mudan鏰s no sistema operacional..."
    MsgBox "As cores do sistema operacional foram alteradas. Isso pode afetar as cores do GP3 manager.", vbExclamation
    stbStatus.Panels(2).Text = "Pronto..."

End Sub

Private Sub Timer1_Timer()

    Call MDIForm_Load
    Timer1.Enabled = False

End Sub

Private Sub vtmMenu_MenuItemClick(MenuNumber As Long, MenuItem As Long)

    mValorMenu = Trim(Str(MenuNumber)) & Trim(Str(MenuItem))
    Select Case mValorMenu
    Case "11"
        
    Case "12"
        Call mnuCorrida_Click
    Case "13"
        Call mnuRecordes_Click
    Case "21"
    
    Case "22"
    
    Case "23"
    
    Case "31", "32", "33"
        Set rsAuxiliar = DBGP3.OpenRecordset("Atalhos")
        rsAuxiliar.Index = "PrimaryKey"
        rsAuxiliar.Seek "=", MenuItem
        If rsAuxiliar.NoMatch Then
            stbStatus.Panels(2).Text = "Preparando atalhos..."
            frmAtalhos.Show
            frmAtalhos.Caption = frmAtalhos.Caption & " (" & MenuItem & ")"
            stbStatus.Panels(2).Text = "Pronto..."
        Else
            stbStatus.Panels(2).Text = "Executando programa..."
            stbStatus.Refresh
            x = Shell(rsAuxiliar("Programa"), vbNormalFocus)
            stbStatus.Panels(2).Text = "Pronto..."
        End If
        rsAuxiliar.Close
    Case "41"
    
    Case "42"
    
    Case "43"
    
    End Select
    Exit Sub
    
End Sub