Discussion :

[choupinou22]

bonjour ,
étant débutant j'aimerai savoir comment faire pour aligner un bouton( qui est reduit a la largeur de la progressbar) sur la barre de la progressbar?
j'ai essayé ce qui suit mais cela ne fonctionne pas,le label se deplace a partir du bord de la form est non a partir de sa position

Code :

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

label1.Location = New Point(400, 276)

Code :

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

1
2
3
4
Private Sub progressbar_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs)
AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = Me.ProgressBar1.Value
label1.left = Me.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition
End Sub

merci pour votre aide

[hacker59]

bonjour,
donne nous plus explication pars que là,on ne comprend pas ce que tu veut dire.

[choupinou22]

en fait j'ai une progressbar et dessus j'ai mis un label.
ce que j'aimerai c'est lors de ma lecture mon label avance en même temps que mon progressbar.
pour le moment tout ce que j'obtient c'est que lors de la lecture mon label se positionne automatiquement au bord du formulaire et se deplace au même rythme que mon progressbar.ce que j'aimerai c'est la même chose mais a l'endroit ou se situe la barre de ma progressbar

[hacker59]

bonjour, si j'ai bien compris ton label te donne % par rapport a ton progressbar
les codes:

Code :

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

1
2
ProgressBar1.Increment(1)
        Label1.Text = ProgressBar1.Value.ToString + "%"

voici en image dans pièce joints:

[choupinou22]

en fait mon label sert de curseur,j'aurrai pu mettre egalement a la place un bouton que j' aurrai réduit a la largeur du progressbar

[hacker59]

pourrais-tu me donner en image ton projet, pour mieux comprendre ton probleme.

[choupinou22]

voici 2 images dont le curseur se trouve completement a gauche

[hacker59]

OK,voici la solution a ton probleme.
mes codes:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Try
            OpenFileDialog1.ShowDialog()
            AxWindowsMediaPlayer1.URL = OpenFileDialog1.FileName
            AxWindowsMediaPlayer1.Ctlcontrols.stop()
           OpenFileDialog1.Filter = "Supported Media (avi, mid, mp3, mpg, mpeg, mp4, wav, wma, wmv)|*.avi;*.mid;*.mp3; *.mpg; *.mpeg;*.mp4;*.wav;*.wma;*.wmv|Audio Media (*.mid, *.mp3, *.wav, *.wma|*.mid;*.mp3;*.wav;*.wma|Video Media (*.avi, *.mpg, *.mpeg, *.wmv)|*.avi;*.mpg;*.mpeg;*.wmv"
        Catch ex As Exception
            MessageBox.Show("Une erreur se produit ne peut pas lire le fichier", "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub
 
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        AxWindowsMediaPlayer1.Ctlcontrols.play()
        Timer1.Start()
    End Sub
 
    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        Label1.Text = AxWindowsMediaPlayer1.Ctlcontrols.currentPositionString
        Label2.Text = AxWindowsMediaPlayer1.currentMedia.durationString
        ProgressBar1.Value = AxWindowsMediaPlayer1.Ctlcontrols.currentPosition
        HScrollBar1.Value = ProgressBar1.Value
    End Sub
 
    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        AxWindowsMediaPlayer1.Ctlcontrols.stop()
        Timer1.Stop()
    End Sub

voici en image:

[choupinou22]

Merci,petite question est ce que dans le hsscroll on ne peut pas avoir derrière de curseur une couleur ce qui m éviterai de surcharger l interface avec en plus le progressbar?