RIPPER ENCODEUR MP3

Commentaire de luz le 27/08/2007 22:17:26

salut fredvlvcec
il doit manquer quelques fichiers ocx :
msdxm.ocx
ProgressBar.ocx
dans ton zip car impossible de l'excuter.
merci de les rajouter, ou alors j' ais quelque soucis.

Commentaire de BLUEBIBUBBLE le 30/08/2007 18:21:04

zip incomplet, impossible d'excuter le code. Dommage!

Commentaire de fredvlvcec le 04/09/2007 01:38:05

J'ai ajouté les ocx que vous avez demandés et qui manquaient. ProgressBar.ocx et msdxm.ocx qui doivent donc être installés dans c:\windows\system32. Cependant msdxm devrait déjà s'y trouver puisque c'est le lecteur Windows media player que l'on doit inclure au projet dans la fenêtre Composants. Si d'autres problèmes subsistent, merci de me le faire savoir.

Commentaire de fredvlvcec le 05/09/2007 23:25:19

Bein si les barres de progression de l'extracteur et de l'encodeur fonctionnent sans ProgressBar.ocx, je dois dire que je n'y comprends rien.
Une fois installé dans system32, cet ocx doit être coché dans la liste des composants de l'appli où il apparaît sous le nom ProgressBar2. Il apparaît dans la fenêtre d'outils sous le nom CpvProgressBar.
A quoi sert-il ? En fait il possède deux propriétés picture. Une fois qu'on a défini sa propriété Max, on peut faire recouvrir l'image de fond par l'autre image en modifiant la propriété Value (de 0 à Max). C'est super parce qu'on peut faire tous les types de barres de progression que l'on veut.
Alors je ne comprends pas comment les progress bar peuvent fonctionner chez toi sans l'ocx ?

Commentaire de boursicotteur le 07/09/2007 19:28:21

Bon! J'ai regardé cela d'un peu plus près et il me faut reconnaître que je me suis gouré...  Désolé!

Cependant, j'aimerais faire le commentaire suivant au sujet de tes progressbars:

Étant donné que tu les as fait identiques au "contrôle progressbar", il me semble qu'il aurait été plus simple d'utiliser ce contrôle déjà offert par Microsoft.

Personnellement, je n'utilise JAMAIS ce contrôle car il n'est pas flexible concernant les couleurs entre autres raisons...

J'utilise donc un picturebox que je colore à l'aide d'une sub que j'appelle au gré des besoins.

Dans ton cas tu utilises un ocx "maison" qui ne fait probablement rien de plus que ma petite sub.
Alors pourquoi se compliquer la vie avec un ocx maison?

VOICI MA SUB (ici elle contrôle 12 progressbars indexés 1 à 12 avec progression verticale)
'----------------------------------------------------
Public Sub UpdatePictProgress(ID, vCount, Optional vAction As String)
'ID(1 à 12), vCount, Opt vAction("SetUp")

    'Choisir l'orientation du PictProgress
    Orientation = "Vertical"   'Orientation("Vertical", "Horisontal")
    
    Select Case Orientation
    Case "Horisontal"
        'Initialise la "PictProgress"
        If vAction = "SetUp" Then
            frmMain.PictProgress(ID).ForeColor = cBleu
            frmMain.PictProgress(ID).BackColor = cRougeClair
            frmMain.PictProgress(ID).ScaleWidth = LenMaxDocFile 'CInt(frmMain.lblTotal.Caption)
        End If
        
        'Dimension du rectangle bleu
        X1 = 0
        Y1 = 0
        X2 = vCount ''CInt(frmMain.lblTerminé.Caption)
        Y2 = frmMain.PictProgress(ID).ScaleHeight
    
    Case "Vertical"
        'Initialise la "PictProgress"
        If vAction = "SetUp" Then
            frmMain.PictProgress(ID).ForeColor = cBleu
            frmMain.PictProgress(ID).BackColor = cRougeClair
            frmMain.PictProgress(ID).ScaleHeight = LenMaxDocFile 'CInt(frmMain.lblTotal.Caption)
        End If
        
        'Dimension du rectangle bleu
        X1 = 0
        Y1 = frmMain.PictProgress(ID).ScaleHeight - vCount ''CInt(frmMain.lblTerminé.Caption)
        X2 = frmMain.PictProgress(ID).ScaleWidth
        Y2 = frmMain.PictProgress(ID).ScaleHeight
    End Select

    frmMain.PictProgress(ID).Cls
    frmMain.PictProgress(ID).Line (X1, Y1)-(X2, Y2), , BF
    frmMain.PictProgress(ID).Refresh
End Sub
'----------------------------------------------------


VOICI LES COMMANDES "SetUp" ET "Update"
'----------------------------------------------------  
    'SetUp le PictProgress
    Call UpdatePictProgress(Val(txtIDP.Text), 0, "SetUp")
        'ID(1 à 12), vCount, Opt vAction("SetUp")

    'Update le PictProgress
    Call UpdatePictProgress(Val(txtIDP.Text), Len(DocFile))
        'ID(1 à 12), vCount, Opt vAction("SetUp")
'----------------------------------------------------  
    

Commentaire de boursicotteur le 07/09/2007 20:02:16

Je viens de voir que tu utilises un contrôle cpvProgressBar et non un pictureBox comme je viens d'affirmer.

Ma confusion vient du fait que lors du réenrégistrement de ton code (mentionné dans un de mes messages), il semblerait que mon logiciel VB a transformé tes contrôles cpvProgressBar en contrôles PictureBox...
SVP Ne me demande pas d'expliquer cette transformation!

Désolé pour toutes les faussetés que j'ai dites!

MaisÀcoulePas