تعويض اتوماتيك background

[mehdiyg]

سلام دوستان
برنامه اي هست كه بتونه تصوير بكگراند ويندوز رو سر يه زمان مشخص (هر 5 دقيقه) عوض كنه

[ashkan]

يه نمونه تو سايت آپلود شده ميتوني استفاده كني.
http://iranvig.com/3031.html

[mehdiyg]

ممنون آقا اشكان . من برنامه شما رو ديدم خيلي عالي بود ولي من يه سورسي ميخواستم كه كاربر خودش دايركتوري انتخاب نكنه يعني من به عنوان برنامه نويس 20 تصوير رو تو سورس برنامه بزارم و هر وقط برنامه اجرا شد فقط از اين 20 تصوير انتخاب بشه و تو زمان مشخصي اونارو عوض كنه ممنون ميشم اگر كمكم كنيد .

[مهمان]

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

با اجازا اشکان خان من یکم توضیح می دم :
این خط کد همونی که آدرس فایل تصویری رو داره

کد:

FileName = fil.Path & "\" & fil.FileName

پس شما می تونی اینو به هر شکلی که دوست داری تغییر بدی
مثلا اگه تصیرات از یک پوشه در هارد هستنن از این کد استفاده کن :

کد:

FileName = app.path & "\نام فایل تصویری"

[ashkan]

آقا حامد ممنون و به اين يه سر بزني راجب about ميخوني :
http://iranvig.com/3000.html

[mehdiyg]

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

با اجازا اشکان خان من یکم توضیح می دم :
این خط کد همونی که آدرس فایل تصویری رو داره

کد:

FileName = fil.Path & "\" & fil.FileName

پس شما می تونی اینو به هر شکلی که دوست داری تغییر بدی
مثلا اگه تصیرات از یک پوشه در هارد هستنن از این کد استفاده کن :

کد:

FileName = app.path & "\نام فایل تصویری"

من برنامه رو تغيير دادم و آدرس 10 تصوير رو بهش دادم ولي يه مشكلي هست وقتي 10 تصوير رو نمايش ميده ديگه برنميگرده دوباره اين 10 تصوير رو از اول نشون بده و روي آخرين عكس ميمونه چيكار ميتونم بكنم؟

[مهمان]

با سلام
دوست عزيز من منظورتو درست و حسابي نفهميدم ولي فكر كنم كه شما يك به يك آدرس عكس هارو تو برنامه نوشتي

ولي بهتره كه اين كارو بكني :

کد:

Dim X as integer
Randomize timer
x=int(rnd*5) ' با فرض اينكه شما 6 تا عكس داري كه اسمشون از 0 تا 5 هستن
FileName = fil.Path & "\" & x & ".jpg" 'با فرض اينكه فرمت عكسات jpg هستن

خوب حالا مقدار ' FileName ' شده آدرس عكسي كه كنار برنامت هستن مثلا مثل زير :
C:\New Folder\4.jpg
خوب حالا بازم موشكول داري ؟ :wink: :wink:

[mehdiyg]

جناب hamed_Arfaee عزيز لطف كرديد و جواب رو داديد ولي به علت مبتدي بودن متوجه نشدم
اين كدي كه گفتيد كجا بايد كپي كنم . اصلا نميشه اين برنامه آقا اشكان رو با تمام زيباييش كنار بزاريم ( چون يكم برام سنگينه ) ويه برنامه ساده تر تو چند خط بنويسيم كه همين كار رو بكنه كه من ميخوام ؟ يعني 5 عكس رو با يه آدرس كاملا مشخص به فاصله زماني 10 ثانيه رو بكگراند بياره ؟
ممنون