لینکدونی-
مطالب جالب و خواندنی از سراسر وب
- تختی سرش را برای انداختن مدال، جلوی شاه خم نمی کند - 125 کلیک
- دریافت تصاویر Wallpaper اوبونتو 10.10 - 161 کلیک
- اساماسهای پاک شده گوشی خود را برگردانید ! - 442 کلیک
- اینترنت ملی یا تیر خلاص به اینترنت؟ - 207 کلیک
- پشت پرده صفحه جدید فـیلـترینـ ـگ در ایران - 324 کلیک
برنامه نویسی ویژوال بیسیک 6 ( قسمت چهاردهم )
ارسال شده توسط احمد محمد علیزاده در ۱۷ خرداد, ۱۳۸۶ ساعت ۲۰:۳۴از اینکه بین این پست یا پست قبلی تاخیر چند ماهه افتاد عذر خواهی می کنم.
برنامه نویسی را از این قسمت به شکل حرفه ای تری دنبال می کنیم. در این قسمت در باره ی اشیای FileListBox ، DirectoryListBox و DriveListBox صحبت می کنیم. این سه شی به ترتیب جعبه لیست های فایل و فهرست و درایو می باشند. البته هیچ کدام به تنهایی کاربرد ندارند و باید میان آن ها ارتباط برقرار کرد و آن ها را به هم پیوند زد.
طرز ارتباط این سه شی :
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
دستور اول پیوند فهرست به درایو مربوطه و دستور دوم نسبت دهی فایل انتخابی به فولدری که فایل در آن قرار دارد می باشد.
خواص مهم FileListBox :
-
FileName : نام فایل انتخاب شده در جعبه فایل
-
Path : مسیر فایل انتخابی
-
Pattern : الگو فایل را در جعبه فایل تعین می کند. مثال :
File1.Pattern = “*.bmp” - Format BMP
مفهم : جعبه فایل صرفاً با فایل های bmp سر و کار دارد و آن ها را نمایش می دهد.
فرامین کار با این سه شی :
فرمان تعین درایو جاری : chdrive(“e”) – Drive E
فرمان حذف فایل : kill
فرمان تغیر فهرست : chdir
» نحوه استفاده مانند مثال اول ؛ نام درایو یا پوشه مربوطه را داخل “” و پرانتز قرار دهید.
منتظر مقالات جدید باشید.
مربوط به آموزش برنامه نويسي | ۲۵ نظر »
- محافظ صفحه کلید لپ تاپ
- USB HUB هاب فوقالعاده کوچک – با چهار خروجی USB
- فن خنک کننده لپ تاپ
- هدفون SONY MDR-Q140 (سونی اوریجینال) با کیفیت فوقالعاده
- بازی فوق العاده زیبای Mafia II – مافیا 2
- بلوتوث بند انگشتی
- شارژر خورشیدی موبایل و دستگاههای الکترونیکی !
- مجموعه آفیس 2010 نسخه نهایی – (نسخه 15 ژوئن 2010)
- مستند Life – مجموعهی بی نظیر حیات وحش با زیرنویس فارسی
- مجموعه نرم افزارهای ادوبی با پشتیبانی از زبان فارسی – Adobe CS5 Standard Design ME
۲۵ نظر
مربوط به مطلب [برنامه نویسی ویژوال بیسیک 6 ( قسمت چهاردهم )]
آيا مي دانستيد كه :
پارچه کتان در زمان خیس بودن، سختتر و مقاومتر است
ارسال شده توسط مهدي ايزدي
در ۲۹ خرداد ۱۳۸۶
عالیه
پاسخ به اين نظر
ارسال شده توسط ماریا
در ۱۲ تیر ۱۳۸۶
خیلی عالیه ،خسته نباشید
پاسخ به اين نظر
ارسال شده توسط زهره
در ۲۰ تیر ۱۳۸۶
سلام
خسته نباشید
راستش من تازه میخوام برنامه نویسی ویژوال بیسیک رو یاد بگیرم لطفا منو راهنمایی کنید
پاسخ به اين نظر
مهرشاد
به اين نظر پاسخ داد در ۲۳ شهریور ماه ۱۳۸۸ ۶:۲۶ ب.ظ:
@زهره, می تونی از همین سایت نسخه Portable رو دانلود کنی و نصب کنی روی کامپیوترت یا هم از بیرون تهیه کنی کار باهاش خیلی ساده است ولی نیاز به یادگیری هستش راستی مطالب این سایت از جلسه اول تا ۱۴ عالی بوده البته اگه ادامه داشته باشه فکر کنم تو خیلی سریع بتونی ویژوال رو یاد بگیری البته اگه دوست داشته باشی و نیاز به تمرین و کار کردن با کامپیوتر هستش نه فقط همین مثال ها اگه کمک خواستی درباره ی یادگیری!!!!!!!!!!!!OK
پاسخ به اين نظر
ارسال شده توسط زهره
در ۲۰ تیر ۱۳۸۶
هرگاه خداوند تو را به لبه ی پرتگاه هدایت کرد به خدا اطمینان کن.چون یا تو را از پشت خواهد گرفت یا به تو پرواز کردن خواهد آموخت
پاسخ به اين نظر
ارسال شده توسط دوم مرد خاطره های طلایی جهان
در ۳۰ آذر ۱۳۸۶
کارت خیلی عالیه . اگه یه پیوند از وبلاگم بزاری خیلی ممنون میشم .برای اموزش کدهای ساده .فرصتی نیست تا براتان از خودم خاطره رها کنم.
پاسخ به اين نظر
ارسال شده توسط ا
در ۲۵ دی ۱۳۸۶
Tanx
پاسخ به اين نظر
ارسال شده توسط ali
در ۱۸ بهمن ۱۳۸۶
لطفا مطالب ویژوال بیسیک را زود تر در سایت قرار دهید.
دستت طلا
پاسخ به اين نظر
ارسال شده توسط مريم
در ۲۴ بهمن ۱۳۸۶
سلام لطفآ ادامه مطلب رابنویسید اهتیاج شدید دارم باتشکر ازشما
پاسخ به اين نظر
ارسال شده توسط morteza
در ۱ اسفند ۱۳۸۶
salam ba tashakor az shoma
پاسخ به اين نظر
ارسال شده توسط morteza
در ۱ اسفند ۱۳۸۶
افرین به زهره خانم
به عات درج مطلب بسیار عالی درقسمت نظرات
پاسخ به اين نظر
ارسال شده توسط اشئهي
در ۲۷ اردیبهشت ۱۳۸۷
لطفا در بار مسائل پیشرفته تر بگویید
پاسخ به اين نظر
ارسال شده توسط majid
در ۲۰ مهر ۱۳۸۷
از اینکه قسمتی از سایت رو به آموزش برنامه نویسی اختصاص دادید ممنون
پاسخ به اين نظر
ارسال شده توسط محمدعلی
در ۵ دی ۱۳۸۷
سلام خسته نباشن
من یه فرم با نه دکمه(کامند) و یک text دارم به ترتیب دکمها از ۰ تا ۹ عنوانگذاری(Caption) شده اند حالا می خواهم با کلیک بر روی هر دکمه عنوان مورد نظر را به text اضافه کنم اما مشکل اینجاست که با کلیک به روی دکمه ی دیگر عنوان قبل پاک شده و عنوان دیگر نمایش داده می شود .درکل می خواهم که شماره ها در text جایگزین نشوند بلکه اضافه شوند.لطفا منو توی حل این مشکل کمک کنید .لطفا
پاسخ به اين نظر
مهرشاد
به اين نظر پاسخ داد در ۲۳ شهریور ماه ۱۳۸۸ ۶:۳۱ ب.ظ:
@محمدعلی, فکر کنم تو میخوای یه ماشین حساب طراحی کنی و این کار نیاز به دستورهای دیگه هستش اگه جواب میخوای دوباره توی نظراتت بگذار تا جواب بدم
پاسخ به اين نظر
هادی
به اين نظر پاسخ داد در ۱۰ آذر ماه ۱۳۸۸ ۸:۱۹ ب.ظ:
@محمدعلی,
محمد علی جان اگه می خوای که مثلا با زدن دکمه “۱″ عدد “۱″ در textbox نمایش داده شود و بازدن دکمه “۲″ عدد “۲″ کنار عدد “۱″ بیاید اون وقت از این کد برای همه دکمه ها استفاده کن :
“۱″+ text1.text= text1.text
در دکمه های بعد عدد “۱″ رو به عدد ۲ و ۳ و … تبدیل کن تا کار کنه
پاسخ به اين نظر
هادی
به اين نظر پاسخ داد در ۱۰ آذر ماه ۱۳۸۸ ۸:۱۹ ب.ظ:
@محمدعلی,
محمد علی جان اگه می خوای که مثلا با زدن دکمه “۱″ عدد “۱″ در textbox نمایش داده شود و بازدن دکمه “۲″ عدد “۲″ کنار عدد “۱″ بیاید اون وقت از این کد برای همه دکمه ها استفاده کن :
“۱″+ text1.text= text1.text
پاسخ به اين نظر
هادی
به اين نظر پاسخ داد در ۱۰ آذر ماه ۱۳۸۸ ۸:۲۲ ب.ظ:
@هادی,
راستی یه بخشش موند :
اون کد مال دکمه “۱″ بود واسه بقیه دکمه ها به جای عدد “۱″ عدد مورد نظر رو بنویس مثلا
“۲″ + text1.text = text1.text
و …
پاسخ به اين نظر
ارسال شده توسط sajedeh
در ۲۸ دی ۱۳۸۷
سلام
من می خولم بدونم برای اضافه کردن کنترل common dialog , ساختن کادر محاوره ای open , save چه کار باید بکنم .
عبارتی که باید از داخل components از منوی project اضافه کنم چیه ؟
خیلی خیلی عجله دارم اگه بتونید منو یاری بدید یک دنیا ممنونم
پاسخ به اين نظر
مهرشاد
به اين نظر پاسخ داد در ۲۳ شهریور ماه ۱۳۸۸ ۶:۲۲ ب.ظ:
@sajedeh, برای این کار از منوی Project گزینه Components رو انتخاب کن بعدش تیک کنار گزینه Microsoft Command Dialog control 6 رو بزن تا در Tool boxت اضافه بشه راستی کار باهاش رو بلدی
پاسخ به اين نظر
مهرشاد
به اين نظر پاسخ داد در ۲۳ شهریور ماه ۱۳۸۸ ۶:۲۹ ب.ظ:
@مهرشاد, راستی می تونی یک فرم اضافه درست کنی و کادر محاوره ای مربوط به Open و Save رو اضافه کنی که باید با دستورهای Hide و Show فرمت رو نشان بدی و یا در صورت Close اون رو Hide کنی
پاسخ به اين نظر
هادی
به اين نظر پاسخ داد در ۱۰ آذر ماه ۱۳۸۸ ۸:۳۴ ب.ظ:
@sajedeh,
ببینید همون راهی که آقای مهرشاد گفت البته microsoft common dialog 6 رو تیک بزن ، کمی هم من روش اضافه میکنم ولی نه کامل چون خودم هم اشکال دارم :
بعد از گذاشتن common dialog در فرم دو تا دکمه بذار و واسه دکمه open این کد رو بنویس :
CommonDialog1.showopen
و واسه دکمه Save هم این کد رو بذار :
CommonDialog1.showsave
تا منو های مربوط به هرکدام باز شوند .
واسه دادن فرمت هم از این کد استفاده کن :
CommonDialog1.Filter = “text Filse (*.txt)|*.txt”
واسه گذاشتن (|)از دکمه های Shift+\ استفاده کن . خودم هم تا همینجا میدونم کاش می تونستم بدونم چه جوری فرم رو ذخیره کنم یا بازکنم .
پاسخ به اين نظر
ارسال شده توسط مهرشاد
در ۲۳ شهریور ۱۳۸۸
سلام از مطالب آموزشیتون خیلی ممنوم ولی نمی دونم سرتون شلوغ هستش یا نه اما خیلی دوست دارم که این کار رو ادامه بدید چون همه تعداد بازدید ها بیشتر می شه و هم کسان بیشتری به ویژوال آشنا می شوند
پاسخ به اين نظر
ارسال شده توسط سمیرا
در ۳ بهمن ۱۳۸۸
سلام
من برنامه زیرو برای کادر محاورهای save نوشتم، فقط نمیدونم بعد از then چی بنویسم
Private Sub Command2_Click()
Dim a As String
a = CommonDialog1.FileName
CommonDialog1.ShowSave
If a = CommonDialog1.FileName Then
End If
End Sub
بچه ها خیلی عجله دارم مرسی
پاسخ به اين نظر
ارسال شده توسط مهدي
در ۳۰ اردیبهشت ۱۳۸۹
سلام من الن یه برنامه نوشتم ولی وقتی می خوام بدم به دوستم که امتحانش کنه چون برنامه ی وی بی رو نداره نمی تونه اجراش کنه اگه می شه بگید که می شه فایل ها مو با فرمت exe سیو کنم اگه میشه چطوری و یا راه دیگه ای هست.
فقط من خیلی اجله دارم.
پاسخ به اين نظر