PDA

View Full Version : عکس رندوم در MDI Form



mohsen_iceman2000
شنبه 16 دی 1391, 21:55 عصر
سلام آیا راهی هست که مثلا یک تایمر یا یه دستوری که روی سرعت سیستم تاثیر نذاره

که بره از یه پوشه که درونش چند تا عکسه به صورت رندوم هر 20 دقیقه عکس ها رو عوض کنه و بزاره Background
فرم MDI ???!

Hashemvp
شنبه 16 دی 1391, 23:25 عصر
اره میشه فقط کافیه که Interval تایمر رو با مقدار دقیقه ای ک میخوای تنظیم کنی

1000 = 1 ثانیه
اگر میخوای 20 دقیقه باشه باید اینطوری به دستش بیاری

3600*20=72000
ک Interval تایمر رو باید بذاری 7200

دستور هات هم تیو تایمر بنویسی هم اینکه از سی پی یو زیاد کار نمیکشه هم اینکه هر 20 دقیقه یا هر چند دقیقه ای ک مد نظرت باشه این عمل تکرار میشه

موفق باشی

mohsen_iceman2000
یک شنبه 17 دی 1391, 00:13 صبح
نمونه کد می خواستم

Hashemvp
یک شنبه 17 دی 1391, 10:48 صبح
دوست عزیز این هم ی نمونه کد من توی ی فرم درستش کردم دیگه تو با شرایط و چیز هایی ک خودت میخوای بهش اضافه کن.

مثلا بررسی اینکه فایل هایی ک داخل پوشه هستن عکس هستن یا نه و .........

ی فرم باز کن و ی timer و ی filebox ب فرمت اضافه کن بعد این دستور ها کپی کن اونطرف و نگاه کن ببین چطور این عمل انجام میشه من پیش فرض گذاشتم روی نیم ثانیه

Dim HvP As Long
Private Sub Form_Load()
File1.Path = "مسیر پوشه عکس ها"
Timer1.Interval = 500
HvP = 0
End Sub

Private Sub Timer1_Timer()
Me.Picture = LoadPicture(File1.Path & "\" & File1.List(HvP))
HvP = HvP + Val(1)
End Sub


موفق باشی