Private Sub Timer1_Timer()
On Error GoTo ListBaşı
List1.ListIndex =
List3.ListIndex + 1
Exit Sub
ListBaşı: List1.ListIndex = -1
End
Sub
Private Sub Check5_Click()
If Check5.value = 1
Then
Timer1.Enabled = True
Else
Timer1.Enabled = False
End If
End
Sub
List1 >>> Asas Skillerinin Olduğu Liste
Timer1
>>> Herhangi Br Timer ( Bu ListeDeki Tek bir Skile Deil Aşşa İnerek
Hepsini Tek Tek vurmasını sağlıyor )
---------- Post added at 07:25 PM ---------- Previous post was at 07:24
PM ----------
pardon arkadaslar
kodları düzeltiyorum
:S
Buyrun::
Private Sub Timer1_Timer()
On Error GoTo
ListBaşı
List1.ListIndex = List1.ListIndex + 1
Exit Sub
ListBaşı:
List1.ListIndex = -1
End Sub
Private Sub Check5_Click()
If
Check5.value = 1 Then
Timer1.Enabled = True
Else
Timer1.Enabled =
False
End If
End Sub
List1 >>> Asas Skillerinin Olduğu
Liste
Timer1 >>> Herhangi Br Timer ( Bu ListeDeki Tek bir Skile Deil
Aşşa İnerek Hepsini Tek Tek vurmasını sağlıyor )
On Error GoTo ListBaşı
List1.ListIndex =
List3.ListIndex + 1
Exit Sub
ListBaşı: List1.ListIndex = -1
End
Sub
Private Sub Check5_Click()
If Check5.value = 1
Then
Timer1.Enabled = True
Else
Timer1.Enabled = False
End If
End
Sub
List1 >>> Asas Skillerinin Olduğu Liste
Timer1
>>> Herhangi Br Timer ( Bu ListeDeki Tek bir Skile Deil Aşşa İnerek
Hepsini Tek Tek vurmasını sağlıyor )
---------- Post added at 07:25 PM ---------- Previous post was at 07:24
PM ----------
pardon arkadaslar
kodları düzeltiyorum
:S
Buyrun::
Private Sub Timer1_Timer()
On Error GoTo
ListBaşı
List1.ListIndex = List1.ListIndex + 1
Exit Sub
ListBaşı:
List1.ListIndex = -1
End Sub
Private Sub Check5_Click()
If
Check5.value = 1 Then
Timer1.Enabled = True
Else
Timer1.Enabled =
False
End If
End Sub
List1 >>> Asas Skillerinin Olduğu
Liste
Timer1 >>> Herhangi Br Timer ( Bu ListeDeki Tek bir Skile Deil
Aşşa İnerek Hepsini Tek Tek vurmasını sağlıyor )