Discussion :

[XpFive]

Donc je suis en train de réaliser un logiciel, et dans ce logiciel il y a un WindowsMediaPlayer1 & une ProgressBar1 & un Label1.

Le label1 récupère le status de WindowsMediaPlayer1 sur la musique en cour (Connexion au média, Mise en mémoire tampon....), est donc j'aimerai savoir comment prendre dans Label1 que le nombre au moment de mise en mémoire tampon pour qu'ensuite ce nombre puisse faire avancer la ProgressBar1 jusqu'à 100%

Voila merci à ce qui me réponde =D

[Cravis]

Si tu pouvais mettre un exemple du genre de ligne que contiens ton label ça aiderais à te donner une réponse plus précise, mais de toute façon le but va être je pense d'extraire la partie concernée à l'aide de l'instruction Mid$.

[ucfoutu]

Bonjour,

ta question n'est en effet pas suffisamment précise, Xpfive !

voilà toutefois un exemple, juste pour le cas où il y aurait un espace avant ton "nombre" et que le dit nombre serait entier ou décimal séparé par un point ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Command1_Click()
 Dim tonnombre As String, titi As String, i As Integer, toto
  titi = "blabla blablabla 123.27blabla blabla"
  toto = Split(titi, " ")
  For i = 0 To UBound(toto)
    If IsNumeric(Left(toto(i), 1)) Then
      tonnombre = Val(toto(i))
      Exit For
    End If
  Next
  MsgBox tonnombre
End Sub

où titi est ce que tu as dans ton label

[XpFive]

Dans label4 il y a le status de la musique en cour donc sa change, il y a ecrit dessus donc plusieurs texte mais moi je veut le nombre au moment ou le texte est : "Mise en mémoire tampon xx %" le xx est le nombre qui change tout le temps, mais je voudrait avoir que le nombre.

[ucfoutu]

Dans label4 il y a le status de la musique en cour donc sa change, il y a ecrit dessus donc plusieurs texte mais moi je veut le nombre au moment ou le texte est : "Mise en mémoire tampon xx %" le xx est le nombre qui change tout le temps, mais je voudrait avoir que le nombre.

Alors tu as ta solution, non ? (voir mon code).

[XpFive]

Oui merci sa marche =)

[ucfoutu]

Bon...
et si ton chiffre vient toujours après le mot tampon, tu as plus simple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Command1_Click()
  toto = "Mise en mémoire tampon 35 %"
  MsgBox Val(Mid(toto, InStr(toto, "tampon") + Len("tampon")))
End Sub