[ADD-IN] COMPLÉMENT VB6 POUR CALCULER LE TEMPS D'EXÉCUTION DU CODE

Commentaire de waluigii le 10/06/2007 03:44:07

Slt,

Très intéressant tout ça! Qu'est-ce qui t'a incité pour mettre le pied dans ce projet?

Bravo!

Commentaire de Renfield le 11/06/2007 09:02:56 administrateur CS

pas très pratiques, ce MsgBox,

sinon, c'est une bonne idée, à creuser...

on pourrais se passer des menus Start et End, en se branchant aux evenemenements liés à l'execution (EnterRunMode et EnterDesignMode) :


Private WithEvents moIDEEvents As VBBuildEvents

Private Sub AddinInstance_OnConnection(ByVal Application As Object, ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, ByVal AddInInst As Object, custom() As Variant)
Dim oEvents2 As Events2
Dim oNewMenu As Office.CommandBarPopup
    Set VBInstance = Application
    Set PrjHandler = VBInstance.Events.VBProjectsEvents
    Set CmpHandler = VBInstance.Events.VBComponentsEvents(Nothing)
    Set oEvents2 = VBInstance.Events
    Set moIDEEvents = oEvents2.VBBuildEvents
        
    On Error GoTo AddToAddInCommandBarErr
    Set oNewMenu = VBInstance.CommandBars.FindControl(Id:=30038)
    If Not oNewMenu Is Nothing Then
        Set MenuItem = oNewMenu.Controls.Add(msoControlButton, temporary:=True)
        With MenuItem
            .Caption = "Temps d'execution..."
            .BeginGroup = True
        End With
        Set moRapport = VBInstance.Events.CommandBarEvents(MenuItem)
    End If
Exit Sub
    
AddToAddInCommandBarErr:
MsgBox "erreur dans la création du CommandBar"
End Sub

'Private Sub moMenuEnd_Click(ByVal CommandBarControl As Object, handled As Boolean, CancelDefault As Boolean)
'    EndTimer
'End Sub
'
'Private Sub moMenuStart_Click(ByVal CommandBarControl As Object, handled As Boolean, CancelDefault As Boolean)
'    StartTimer
'End Sub

Private Sub moIDEEvents_EnterDesignMode()
    EndTimer
End Sub

Private Sub moIDEEvents_EnterRunMode()
    StartTimer
End Sub

Commentaire de mortalino le 12/06/2007 20:38:55

Arf, j'obtiens des résultats surprenant..
Bien que l'exécution d'une appli dure plusieurs secondes, le résutat n'excède pas 0.400.
Ce te le fait aussi ?