[پنام]

سلام
واقعا دستتون درد نکنه !
امروز رفتم یک ویژوال بیسیک 6 گرفتم و نصب کردم اما بازم چیزی سر در نیاوردم . حتی پروژه های شما راهم با هاش باز کردم تا شاید چیزی بفهمم ولی باز هم بی فایده بود . ولی خسته نمی شم شما هم کمکم کنید راه می افتیم انشاالله !
آخه از خود تعریف کردنی نباشه من پسر خیلی خیلی باهوشیم .
شما یک کتاب واقعا خوب که یک آدم کاملا مبتدی که هیچ چیزی از ویژوال سر در نمی یاره و تازه می خواد یاد بگیره سراغ دارین تا من بخرم .
دستورتون را تو وی بی نوشتم کار کرد ممنون !
حالا اگه بخوام دو تا فایل را به ترتیب باز کنه چی جور می شه؟
مثال :
اول بابیلون را اجرا کنه بعد داخل فرم یک دکمه open باشه که اگر فشار داد winrar را اجرا کنه؟
C:\Program Files\Babylon\Babylon-Pro\Babylon.exe
C:\Program Files\WinRAR\WinRAR.exe


البته به تر تیب نه هم زمان

---

خیلی خوشحالم
گفتم به شما که دوستی با شما برای من یک افتخاره
اولین برنامه موفق وی بی عمرم را همین الان با کمک شما نوشتم
باور کنید خیلی خوشحالم
همون سوالی را که از شما پرسیدم خودم نوشتم (البته با کمک شما)
خدا شما را حفظ کنه .
براتون همین الان دعا کردم .

[Amin_Mansouri]

درود
برای اموزش ویژوال بیسیک به لینک زیر سر بزنید :
http://parsicoders.com/showthread.php?tid=1125

یه باتن روی فرم بزارید و 2 کلیک کنید و این دستورات رو بنویسید :

کد:

Shell ("C:\Program Files\Babylon\Babylon-Pro\Babylon.exe"), vbNormalFocus
Shell ("C:\Program Files\WinRAR\WinRAR.exe"), vbNormalFocus

[پنام]

از اینکه قبول زحمت کردین و استادبنده شدین خیلی ممنون و سپاس گذارم من هم قول می دهم که مطالبی که از شما یاد می گیرم در راه خوب و خدا پسندانه استفاده کنم تا شما هم از صوابش بهره مند شوید .

حالا یه سوال دیگه :
اگه بخوام با زدن یک باتن فقط درایو یا فلش H باز بشه ، دستورش چطوری می شه ؟

البته تورو خدا از اینکه خرد خرد سوال می پرسم از دستم کلافه نشید ها
چون می خوام خوردم یاد بگیرم .
لطفا کمی حوصله کنید
همانطوری که تا الان حوصله کردید .
من یک کتاب ایبوک آموزش اولیه وی بی 6 را خوندم بنا براین با اصول اولیه یه کوچولو آشنا شدم.!

[Amin_Mansouri]

سلام
یه باتن بزار روی فرم این کدها رو بنویسید :

کد:

Private Sub Command1_Click()
Drive = "H:"
Shell ("explorer " + Drive), vbNormalFocus
End Sub

[پنام]

باز نکرد ظاهرا مشکل داره ؟
یه بار خودتون امتحان کنید!

---

نمی دونم فرق کنه یا نه
ویندوز من سون است 7
اگه نوع ویندوز فرق بکنه یه کدی باشه که به نوع ویندوز حساس نباشه !

[Amin_Mansouri]

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

کد:

Private Sub Form_Load()
Drive = "H:"
Shell ("explorer " + Drive), vbNormalFocus
End Sub

پایه برنامه نویسیتون رو قوی کنید.

[پنام]

باز امتحان کردم ولی باز نشد .
البته درایو نیست ها یک فلشه که به USB وصل کردم به اسم H میشناسه !
به هنگام اجرای فرم از وی بی این پیغام را می ده :
compile error
variable not defined

---

وی بی خودش این قسمت را زرد می کنه :
Private Sub Form_Load()
و این کلمه را آبی رنگ می کنه rive

[Amin_Mansouri]

میگه براش متغییر تعریف نکردی
اینجوری میشه :

کد:

Private Sub Form_Load()
Dim Drive As String
Drive = "H:"
Shell ("explorer " + Drive), vbNormalFocus
End Sub

[پنام]

دستت درد نکنه ؟
انشالله خدا عمر با عزت بشما بده!
کار کرد !
و مهمتر از اون اشکال کارم را فهمیدم!
فکر کنم دیر وقته
از اینکه تا این موقع شب مزاحمتون شدم معذرت می خوام و ازتون ممنونم!
شبتون بخیر!

[پنام]

سلام صبح جمعه زیباتون بخیر
یک سوال دیگه :
اگه بخوام یه فایلی را با پسوند EXE.* را مثلا با آدرس زیر پاک کنم دستوری را در وی بی باید به چه شکلی بنویسم .
H:\*.exe
و اگه بخوام یک فایل دیگه برای مثال با inf.* را بعد از اجرای دستور بالا هم پاک کنه
(یکی بشکل به ترتیب و یکی بشکل همزمان)
ممنونم!

---

اتفاقا من همون کتاب آموزشی آقا میثم .م را خوندم که قبلا داشتم .