Soyez le premier à donner votre avis sur cette source.
Snippet vu 3 215 fois - Téléchargée 49 fois
'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
20 janv. 2002 à 14:17
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.