bonjour;
j'ai mon formulaire qui a 20 activeX media player(vignette image) + 1 central qui me permet de visionner des videos(les 20 sont pour visionner des images jpg) et 1 bouton play .ce que j'aimerai faire c'est de pouvoir lire la video apres un click sur 1 vignette image et 1 click sur le bouton play(image correspondant a la video)
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 Private Sub AxWindowsMediaPlayer1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxWindowsMediaPlayer1.Enter Dim cmd As OleDbCommand = cn.CreateCommand Dim titre As String = "titre : " Dim i As Integer Dim Xwmp As IWMPMedia cmd.CommandText = "SELECT clip FROM testa WHERE [n°] =1" Dim LectureLignejpg As OleDbDataReader = cmd.ExecuteReader While LectureLignejpg.Read() i = 1 Xwmp = DirectCast(Me.Controls("AxWindowsMediaPlayer" & i), AxWindowsMediaPlayer).newMedia(LectureLignejpg(0)) DirectCast(Me.Controls("AxWindowsMediaPlayer" & i), AxWindowsMediaPlayer).currentPlaylist.insertItem(0, Xwmp) DirectCast(Me.Controls("AxWindowsMediaPlayer" & i), AxWindowsMediaPlayer).Ctlcontrols.play() DirectCast(Me.Controls("AxWindowsMediaPlayer" & i), AxWindowsMediaPlayer).Ctlcontrols.pause() End While End Sub
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 Private Sub Play_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Play.Click Dim cmd As OleDbCommand = cn.CreateCommand Dim Xwmp As IWMPMedia Dim i As Integer cmd.CommandText = "SELECT clip FROM test WHERE [n°] =" & i Dim LectureLigne As OleDbDataReader = cmd.ExecuteReader While LectureLigne.Read() Xwmp = AxWindowsMediaPlayer3000.newMedia(LectureLigne(0)) AxWindowsMediaPlayer3000.currentPlaylist.insertItem(0, Xwmp) AxWindowsMediaPlayer3000.Ctlcontrols.play() AxWindowsMediaPlayer3000.Ctlcontrols.pause() Me.Label2.Text = titre & "lecture de " & System.IO.Path.GetFileNameWithoutExtension(LectureLigne(0)) End While LectureLigne.Close() End Sub
Partager