نمایش تصاویر متوالی در یک ایمیج ویو

[سیدمحمد 248]

دوستان طاعاتتون قبول.

اگر بخوایم توی یک ایمیج ویو برای مثال ده تا عکس رو به صورت متوالی نمایش بدیم چطور میشه انجام داد؟

مثلا هر عکس 3 ثانیه مکس کنه و عکس بعدی بیاد.

پیشاپیش ممنون از راهنماییتون.

[hadi666 28]

به نظرم باید یه راه خیلی ساده تر ار این چیزی که میخام بگم باشه اما الان  ساعت هفت صبحه و دیشب رو کلا نخابیدم از مغز ادم توقعی نیست

نظر من اینه که شما به تعداد عکسایی که میخای لود کنی تایمر بساز بعد مثلا تو تایمر اولی عکس اولیتو لود کن تایمر اولو غیرفعال کن و  تایمر دومو فعال کن بعد دوباره تو رویداد تایمر دومی عکس دومو لود کن و تایمر سومو فعال کن   

[مجید آرتا 5,874]

سلام

 

این متغییر هارو داخل Global  تعریف کنید »

Dim index As Int = 0
Dim imageNames As List
Dim t As Timer

این کدهارو داخل رویداد Activity_Create  قرار بدید »

imageNames.Initialize
imageNames.AddAll(Array As String("majid.png","arta.jpg","answercenter.png"))
t.Initialize("timer",3000)
t.Enabeld = True

کد تایمر هم  همچین کدی میشه »

Sub timer_Tick
 If index < imageNames.Size Then
   ImageView.Bitmap = LoadBitmap(File.DirAssets,imageNames.Get(index))
   index = index + 1
  Else
   index = 0  
 End If
End Sub

خب این تیکه کد واسه این هستش که شما کلا متوجه بشی چیکار باید بکنی

راه های مختلفی میشه انجام داد

توی این کد ما اسامی عکس هارو داخل لیست قرار میدیم و یک متغییر از نوع عدد تعریف می کنیم که هر 3 ثانیه یکی به مقدارش اضافه بشه و عکس مورد نظر رو بگیر و نمایش بده.

[hadi666 28]

دوستان طاعاتتون قبول.

اگر بخوایم توی یک ایمیج ویو برای مثال ده تا عکس رو به صورت متوالی نمایش بدیم چطور میشه انجام داد؟

مثلا هر عکس 3 ثانیه مکس کنه و عکس بعدی بیاد.

پیشاپیش ممنون از راهنماییتون.

 

 

سلامی دوباره دوست عزیز دیروزو کلن خوابیدم و حالا مغزم کار میکنه 

قبلا یه تیکه کد توسط استاد خوبمون kazem forghani داده شده بود گفتم واست بذارم مشکلت حل بشه

تیکه کد خیلی خوب و کاربردی هست

 

 

 

شاید خواسته باشید بین اجرای دو دستور فاصله بیاندازید. به عنوان مثال بخواهید ابتدا متن Button1 را abc کنید و بعد از 5 ثانیه متن Button2 را 123 کنید.

برای این عمل ساب زیر را به پروژه اضافه کنید:

Sub Wait(MilliSecond As Int)
    Dim Time As Long
    Time = DateTime.Now + MilliSecond
    Do While DateTime.Now < Time
        DoEvents
    Loop
End Sub 

ساب بالا یک پارامتر دارد که باید مقدار فاصله ای که قرار است بین دو دستور بیفتد را بنویسید. (واحد میلی ثانیه 1 ثانیه = 1000 میلی ثانیه)

یک مثال:

Button1.Text = "abc"
Wait(5000)
Button2.Text = "123"

موفق باشید