من این برنامه رو با توجه به کد های شما نوشتم و کاملا ساده و برای همه قابل فهمه و مشکلی نداره.. ولی می شد همین برنامه رو یکم با سلیقه تر درستش کرد..
اول از همه کل کد ها رو می زارم(بر خلاف میلم این کار رو می کنم چون که این برنامه ها باعث میشه که کسی که سوال رو می پرسه به جا اینکه خودش یاد بگیره فقط به دنبال یک جواب حاضر آماده سوق پیدا می کنه که این خیلی بده اما به هر حال ...)
1- یک تکس باکس باید اضافه کنید
2- یک باتون اضافه کنید و عنوان اون رو Start انتخاب کنید
کد:
برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
یک نکته ای هست که معمولا تازه کار ها خیلی با اون مشکل دارند اونم اینکه برای برنامه نویسی چند ریسمانی در .net 2 امکان تغییر راحت و سالم رو نداریم برای اطلاعات بیشتر به لینک زیر مراجعه کنید
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
که اونم با اضافه کردن کلمه ی کلیدی Delegate می تونید مشکل رو حل کنید
Delegate در مواقعی که قبل از کامپایل, عملیاتی که رو داده های باید انجام بشه رو نمی دونید (به معنای وکیل گرفتن یا حواله کردن)
نحوه ی استفاده کردن اونم مثل datatype می مونه چیز خاصی نداره
یک نکته دیگه ای هم که هست SetTextCallback فقط اسمی که برای dekegate گذاشتیم نه یک تابع یا متغییر بلکه متغیر داخل این تغریف میشه
توضیح اینکه چرا از این استفاده شده مفصل هست ..
دوستانی هم که با #.C این مشکل رو دارند می تونند معادل این خط رو استفاده کنند
کد:
برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
--------------
اما برای برنامه نوسی thread ها یک قالب کلی و ساده هست که اگر اونو توی ذهن داشته باشید دیگه برنامه های پیچیده ش رو خیلی را می فهمید
1-اونم اینه که اول باید thearding رو به برنامه اضافه کنید
Imports System.Threading
2- متغیر از نوع ریسمان درست کنید
Private trd As Thread
3- داخل یک سابوتین کد های مورد نظر رو بنویسد
کد:
برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
4- سابوتین رو به به متغیر ریسمان اتصاب بین
کد:
برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
5-اونو راه اندازی کنید
کد:
برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
6- اونو خاموش کنید
کد:
برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
این چار و چوب خیلی ساده رو همشه به یاد داشته باشید بعد در هر برنامه ای حلی برنامه های حرفه ای هم این چار چوب راعایت می شه برای این کار..
ولی من کاربرد درست حسابی ای جز اون موردی که در پست قبلی گفتم پیدا نکردم
گفتم شاید سوالی پیش بیاد :
دستور
TextBox1.SelectionStart = TextBox1.TextLength
برای اینه که به انهای خط نشانگر بره کل طول متن رو یک عددیه و نقطه ی شروع هم به اون نقطه پاس میشه
دستور
name = LCase(Me.TextBox1.Text)
برای کوجک کردن تمام متن هست که مشکلی با visual Visual یا ViSual نباشه
پروژه رو برای دانلود می زارم