Sub Timer_Tick
Try
Cr2.Position = Cr3pos
If Mp.Position <= Cr2.GetInt("scroll") Then
Lv.SmoothScrollToPosition(Cr3pos)
Cr3pos = Cr3pos+1
End If
Catch
Log(LastException)
End Try
End Sub
اینام معرفی متغیر ها
Dim Lv As Hitex_LayoutView
Dim Mp As MediaPlayer
Dim Cr2 As Cursor
Dim Cr3pos As Int
سوال
siroos12 14
سلام.
دوستان این کدمه نمیدوم مشکل کجاست؟!
Sub Timer_Tick Try Cr2.Position = Cr3pos If Mp.Position <= Cr2.GetInt("scroll") Then Lv.SmoothScrollToPosition(Cr3pos) Cr3pos = Cr3pos+1 End If Catch Log(LastException) End Try End Sub
اینام معرفی متغیر ها
Dim Lv As Hitex_LayoutView Dim Mp As MediaPlayer Dim Cr2 As Cursor Dim Cr3pos As Int
مشکلش چیه؟؟؟؟؟؟؟؟
لینک ارسال
به اشتراک گذاری در سایت های دیگر
1 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.