Un lecteur de .wav

Commenter

Contenu du snippet

1ere page form1
lecteur et animation (mmcontrol,4 shapes:tête du bonhomme,buste et yeux, 7 lines bras pieds bouche et antenne, 8 timers)
2eme page form2
ouverture du fichier souhaiter filelist box dirlistbox drivelistbox

Source / Exemple : 


'form1
Private Sub Form_Load()
MMControl1.AutoEnable = False
MMControl1.PlayEnabled = True
MMControl1.PlayVisible = True
End Sub

Private Sub MMControl1_PlayClick(Cancel As Integer)
MMControl1.Command = "close"
MMControl1.Command = "open"
MMControl1.Command = "play"
End Sub

Private Sub MMControl1_StopClick(Cancel As Integer)
MMControl1.Command = "stop"
MMControl1.Command = "close"

End Sub

Private Sub ouv_Click()
Load Form2
Form2.Show
End Sub

Private Sub quit_Click()
End
End Sub

Private Sub Timer1_Timer()
Timer2.Enabled = True
Timer1.Enabled = False
If Line3.Y2 > 0 Then
Line3.Y2 = Line3.Y2 + 500
Line4.Y2 = Line4.Y2 + 500
Else: Line3.Y2 = 2520
Line4.Y2 = 2520
End If
End Sub

Private Sub Timer2_Timer()
Timer1.Enabled = True
Timer2.Enabled = False
If Line3.Y2 > 0 Then
Line3.Y2 = Line3.Y2 - 1000
Line4.Y2 = Line4.Y2 - 1000
Else: Line3.Y2 = 2520
Line4.Y2 = 2520
End If
End Sub

Private Sub Timer3_Timer()
Timer4.Enabled = True
Timer3.Enabled = False
If Line2.X2 > 1200 Then
Line1.X2 = Line1.X2 + 200
Line2.X2 = Line2.X2 + 200
Else: Line2.X2 = 1920
Line1.X2 = 4320
End If
End Sub

Private Sub Timer4_Timer()
Timer3.Enabled = True
Timer4.Enabled = False
If Line2.X2 > 1200 Then
Line1.X2 = Line1.X2 - 300
Line2.X2 = Line2.X2 - 300
Else: Line2.X2 = 1920
Line1.X2 = 4320
End If
End Sub

Private Sub Timer5_Timer()
Timer6.Enabled = True
Timer5.Enabled = False
Shape3.Left = 2640
Shape4.Left = 3240
End Sub

Private Sub Timer6_Timer()
Timer5.Enabled = True
Timer6.Enabled = False
Shape3.Left = 2160
Shape4.Left = 3720
End Sub

Private Sub Timer7_Timer()
Timer8.Enabled = True
Timer7.Enabled = False
Line6.BorderColor = RGB(250, 0, 0)
Line7.BorderColor = RGB(0, 250, 0)
If Line5.BorderColor = &H80000008 Then
Line5.BorderColor = RGB(250, 0, 0)
Else
If Line5.BorderColor = RGB(250, 0, 0) Then
Line5.BorderColor = RGB(0, 250, 0)
Else
If Line5.BorderColor = RGB(0, 250, 0) Then
Line5.BorderColor = RGB(0, 0, 250)
Else
If Line5.BorderColor = RGB(0, 0, 250) Then
Line5.BorderColor = RGB(250, 0, 0)
End If
End If
End If
End If
End Sub

Private Sub Timer8_Timer()
Timer7.Enabled = True
Timer8.Enabled = False
Line6.BorderColor = RGB(0, 250, 0)
Line7.BorderColor = RGB(250, 0, 0)
If Line5.BorderColor = &H80000008 Then
Line5.BorderColor = RGB(250, 0, 0)
Else
If Line5.BorderColor = RGB(250, 0, 0) Then
Line5.BorderColor = RGB(0, 250, 0)
Else
If Line5.BorderColor = RGB(0, 250, 0) Then
Line5.BorderColor = RGB(0, 0, 250)
Else
If Line5.BorderColor = RGB(0, 0, 250) Then
Line5.BorderColor = RGB(250, 0, 0)
End If
End If
End If
End If

End Sub
'form2
Private Sub Command1_Click()
Dim v
v = Drive1.Drive
a = Left(v, 2)
If File1.Path = a + "\" Then
Form1.MMControl1.FileName = File1.Path + File1.FileName
Else
Form1.MMControl1.FileName = File1.Path + "\" + File1.FileName
End If
Unload Me
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dim v
v = Drive1.Drive
Dir1.Path = v + "\"

End Sub

Conclusion :


conradjai@yahoo.fr

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_jaidane)