یه سورس تو ويرژال بيسيك

[pouya_server]

سلام 2نبال یه سورس میگردم که کار زیرو برام بکنه
وقتی روش کلیک کردی یه پنجره ی ساده با یک دکمه ی ساده بیاره و وقتی رو دکمه کلیک کردی
مثلا" فولدر زیر رو برات باز کنه
D:/demo

اگه کسی داشت بذاره ممنون میشم
=======================
Øالا این یکی یه سورس دیگه میخوام Ú©Ù‡ این کارو بکنه وقتی روش کلیک کردی شروع کنه به پخش demo.mp3 بعد Ú©Ù‡ روی دکمه کلیک کردی همزمان Ú©Ù‡ داره پخش میکنه demo.exe رو هم باز کنه این دفعه دیگه پوشه نمیخوام باشه Ú©Ù‡ مسیر بده این دفعه فایل ها بغلش قرار دارن
امید وارم منظورمو درست رسونده باشم

===============
Øالا اگه بخوام فولدر باز شه Ú†ÛŒ ØŸ
مثلا رو demo.exe که میزنی 2 تا دکمه باشه وقتی رو دکمه ی run1 میزنی f1 باز شه یعنی خوده فولدر ؟

[!l@]

این تابع این کارو میکنه

shell("explorer.exe d:\demo")

[h27]

نه مثلا wav سخت نيست خيلي
ولي mp3 سخت هست
البته activex هست
بگردي چيزهاي خوبي پيدا مي كني
ولي مشكل استفاده از اين ها اينه كه اØتياج به setup دارن Ùˆ درد سر
دوستان كه با تجربه تر هستن كامل كنن

http://www.vb-helper.com/howto_play_mp3.html

http://www.geocities.com/smigman.geo/mci/mid.html

[takfanar]

http://www.Planet-Source-Code.com/vb/

[!l@]

این یه سورس جمع و جور ولی با wav
عدد 1 آخر تابع sndPlaySound رو به 9 تغییر بدید ، تا زمان بستن فرم موزیک تکرار خواهد شد

[h27]

Øالا اگه بخوام فولدر باز شه Ú†ÛŒ ØŸ
مثلا رو demo.exe که میزنی 2 تا دکمه باشه وقتی رو دکمه ی run1 میزنی f1 باز شه یعنی خوده فولدر ؟

path="c:\windows"
shell("explorer.exe "+path)

شايد هم اين بهتره كه جوري بنويسي كه path تو "" قرار بگيره
واسه مسير هاي space دار

[B-Kas]

پيشنهاد ميكنم اينو يه نگاه بنداز و دانلود كن (api viewer)، دستت واسه هر كاري بازه ! اجرا ، پاك كردن ،پخش ، ساختن فايل ، رفتن به يه

دايركتوري ... فقط ممنون ميشم ÙˆØ§Ø¶Ø ØªØ± بگي سوالت رو ...

http://allapi.mentalis.org/agnet/apiguide.shtml

[B-Kas]

خوب الوعده وفا اینم راهنمایی واسه کاری که می خوای انجام بدی ... اول این کارو بکن

از منوی project\refrences بعد مثل این عکس

گزینه رو بزار ... Øالا برنامه زیر رو دانلود Ú©Ù† Ú©Ù‡ کلا یه خط بیشتر نیست !!

[B-Kas]

دوست خوب نکنه منظورت اینه , ها ؟



مثلا وقتی بالای دکمه ی n2 زدی , پوشه کنار این فایل که n2 هست رو باز کنه , آره ؟

راستی از اینم خیلی می تونی کمک بگیری که خیلی توپه ... https://shabgard.org/forums/showthread.php?t=10463

[h27]

Public Function AppPath() As String
    
    Dim sAns As String
    sAns = App.Path
    If Right(App.Path, 1) <> "\" Then sAns = sAns & "\"
    AppPath = sAns

End Function

path=AppPath+"n2"
shell("explorer.exe "+path)

[h27]

هيچي
هر جا برنامه اصلي باشه
و شاخه اي به نام n2 توش باشه
با اين دستور ها مي شه بازش كرد
اون تابع مسير برنامه در Øال اجرا رو مي ده
يعني برنامه خودت

بله اگر هم از اول ÙˆØ§Ø¶Ø Ùˆ روشن بگي مي خواي Ú†Ù‡ كار كني
خيلي بهتره

[B-Kas]

این کد هیچ مشکلی نداره !

دیگه اگه بگی این مشکل داره شاکی میشم ها !؟

[majj]

این تابع این کارو میکنه

shell("explorer.exe d:\demo")

Shell ("explorer.exe d:\191"), vbNormalFocus
این یک کم بهتره