HALF-LIFE : L'ORDINATEUR DE GMAN

Commentaire de vegetalain le 24/01/2007 13:03:50

bon, j'ai pas le temps d'en mettre plus mais la lecture video et la lecture de mp3 plantent parce que j'ai oublié et effacé des trucs par mégarde :S

Pour les boutons de pause et de lecture, remplacez le code existant par celui là :

'------------- B3 PAUSE
Private Sub Bouton3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
B3.Picture = Stock.pitiB3.Picture
sndPlaySound App.Path & "\Complexe\Sons\Bruits\lightswitch2.wav", SND_ASYNC Or SND_NODEFAULT
Bouton3.Enabled = False: Bouton4.Enabled = True
End Sub
Private Sub Bouton3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
B3.Picture = Stock.pitiB1.Picture
WMPLay.Pause
End Sub
Private Sub Bouton3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
B3.Picture = Stock.pitiB2.Picture
End Sub

'------------- B4 LECTURE
Private Sub Bouton4_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
B4.Picture = Stock.pitiB3.Picture
sndPlaySound App.Path & "\Complexe\Sons\Bruits\lightswitch2.wav", SND_ASYNC Or SND_NODEFAULT
End Sub
Private Sub Bouton4_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
B4.Picture = Stock.pitiB1.Picture
WMPLay.Play
Bouton3.Enabled = True: Bouton4.Enabled = False
End Sub
Private Sub Bouton4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
B4.Picture = Stock.pitiB2.Picture
End Sub

ensuite créez un label "chemin"
sur la form video et la form audio, puis dans la procédure de ListviewSrch_Click rempalcez le code existant par :

SelectFile = ListviewSrch.SelectedItem.Text
RechercheClm = True
chemin.Caption = ListviewSrch.SelectedItem.SubItems(1) + ListviewSrch.SelectedItem.Text
WMPLay.FileName = chemin.Caption
Bouton3.Enabled = True

voilà, dsl pour cette disfonction, mais j'ai 1000 trucs sur les bras, je peux pas faire plus pour le moment hihihi.... à plus tout le monde !