لینکدونی-
مطالب جالب و خواندنی از سراسر وب
- منظومه شمسی سه بعدی در مرورگر شما - 598 کلیک
- یک نگاتیو را فقط با مغزتان ظاهر کنید! - 588 کلیک
- ساخت هتل 30 طبقه در 15 روز در چین ! - 471 کلیک
- گزارش وضعیت مصرف انرژی در ویندوز 7 و ویندوز سرور 2008 - 332 کلیک
- تهدید سازنده شبیهترین مجسمه به استیو جابز از سوی اپل! - 576 کلیک
برنامه نویسی ویژوال بیسیک 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
» نحوه استفاده مانند مثال اول ؛ نام درایو یا پوشه مربوطه را داخل “” و پرانتز قرار دهید.
منتظر مقالات جدید باشید.
مربوط به آموزش برنامه نويسي | ۲۶ نظر »
- صفحه کلید ژله ای
- شارژر خورشیدی موبایل و دستگاههای الکترونیکی !
- بازی Need For Speed RUN
- خرید بازی Call Of Duty Modern Warfare 3 – ندای وظیفه 8
- بازی PES 2012 – نسخه نهایی
- بازی FIFA 12 – نسخه نهایی
- شارژر همه کاره لوازم الکترونیکی و تلفنهای همراه
- اسپیکر همراه همه کاره مدل YD S002A
- هدفون SONY MDR-Q140 (سونی اوریجینال) با کیفیت فوقالعاده
- بازی Need for Speed Hot Pursuit
۲۶ نظر
مربوط به مطلب [برنامه نویسی ویژوال بیسیک 6 ( قسمت چهاردهم )]
آيا مي دانستيد كه :
یک سوسک میتواند 10 روز بدون سرش زندگی کند
ارسال شده توسط مهدي ايزدي
در ۲۹ خرداد ۱۳۸۶
عالیه
پاسخ به اين نظر
ارسال شده توسط ماریا
در ۱۲ تیر ۱۳۸۶
خیلی عالیه ،خسته نباشید
پاسخ به اين نظر
ارسال شده توسط زهره
در ۲۰ تیر ۱۳۸۶
سلام
خسته نباشید
راستش من تازه میخوام برنامه نویسی ویژوال بیسیک رو یاد بگیرم لطفا منو راهنمایی کنید
پاسخ به اين نظر
مهرشاد
به اين نظر پاسخ داد در ۲۳ شهریور ماه ۱۳۸۸ ۶:۲۶ ب.ظ:
@زهره, می تونی از همین سایت نسخه 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 سیو کنم اگه میشه چطوری و یا راه دیگه ای هست.
فقط من خیلی اجله دارم.
پاسخ به اين نظر
ارسال شده توسط موسی
در ۱۴ بهمن ۱۳۸۹
سلام دوست عزیز
من به بچه های فنی حرفه ای و کار و دانش در زمینه برنامه سازی کمک می کنم.
اگه شما هم در کمک کردن به اونا می خوای سهیم باشی بیا با هم تبادل لینک کنیم.
شما منو با نام “آموزش کنکوری ویژوال بیسیک ۶″لینک کن و بعد به هر نامی که دوست داری بگو ما هم شما را لینک کنیم.
در ضمن سایت مفیدی هم داری.
موفق باشی
پاسخ به اين نظر