لينكدوني-
مطالب جالب و خواندنی از سراسر وب
- وبلاگ نویس ایرانی: از زاهدان تا لندن - 83 كليك
- فيلمهاي شبكه سه سيما در نوروز 89 - 356 كليك
- آرم جمهوری اسلامی را چه کسی طراحی کرد؟ - 531 كليك
- نسل جدید آی تی نویسان وارد می شوند - 149 كليك
- گزارش اسپم یک سایت به گوگل - 195 كليك
برنامه نویسی ویژوال بیسیک 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
» نحوه استفاده مانند مثال اول ؛ نام درایو یا پوشه مربوطه را داخل “” و پرانتز قرار دهید.
منتظر مقالات جدید باشید.
مربوط به آموزش برنامه نويسي | ۲۴ نظر »
- مستند ایران من
- مستند حیات وحش پارک ملی YellowStone با زیرنویس فارسی
- مجموعه به یادماندنی لورل و هاردی
- « پردیس » – مجموعه بینظیر از طرحهای اسلیمی و فونت های کمیاب فارسی
- مجموعه کامل نرم افزارهای مهندسی عمران 2009
- خرید اینترنتی ویندوز 7 نسخه نهایی 22 اکتبر 2009 – Windows 7 Ultimate Final
- آفیس 2007 سرویس پک 2 به همراه فارسی ساز و غلط یاب فارسی !
- FIFA Soccer 10 – فوتبال فیفا 2010
- مجموعه انیمیشنهای بیاد ماندنی و زیبای ِ آقای خط – La Linea
- بازی Need for Speed Shift – نیاز به سرعت 15 : تغییر
۲۴ نظر
مربوط به مطلب [برنامه نویسی ویژوال بیسیک 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
بچه ها خیلی عجله دارم مرسی
پاسخ به اين نظر