دانلودکنید:TextBox با توانایی کار با تاریخ فارسی با کاربرد آسان

لینک دانلود
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

هم من هم شما مطمئنن با چند کامپونینت فارسی کار کردیم که همه شون تاریخ رو درست تبدیل میکنند ولی من تا حالا با یک کامپونینت فارسی کار نکردم که User friendly یا کاربر پسندی تو کار کردن داشته باشه و از اکثر اونا که استفاده کردم کاربرهای برنامه ام از نحوی وارد کردن تاریخ گله مند بودند بنابراین سعی کردم که یک TextBox که توانایی کار با تاریخ هجری شمسی داشته باشه و خیلی هم بشه باهاش راحت کار کرد روطراحی کنم.
اسم این کامپونینت رو FarsiDate.dll گذاشتم که با VB.NET 2008 نوشته شده است.
تواناییها:
1-با کلید Space تاریخ حال سیستم محاسبه و در داخل Textbox نوشته میشود
2-با کلید Delete تاریخ پاک میشود
3-با کلید Home چهار رقم سال انتخاب میشود
4-با کلید End دو رقم روز انتخاب میشود
5-با کلیدهای Left ,Right مکانمای صفحه کلید حالت انتخاب از سال به ماه و از ماه به روز و از روز به سال و برعکس عوض میشود
6- با کلیدUp اگر روز انتخاب شده باشد 1 روز جلوتر و اگر ماه انتخاب شده باشد 1 ماه جلوتر و اگر سال انتخاب شده باشد 1 سال جلوتر میرود
7- با کلیدDown اگر روز انتخاب شده باشد 1 روز عقب تر و اگر ماه انتخاب شده باشد 1 ماه عقب تر و اگر سال انتخاب شده باشد 1 سال عقب تر میرود
8-با کلید page Up اگر روز انتخاب شده باشد 10 روز جلوتر و اگر ماه انتخاب شده باشد 3 ماه جلوتر و اگر سال انتخاب شده باشد 2 سال جلوتر میرود
9-با کلید page Down اگر روز انتخاب شده باشد 10 روز عقب تر و ماه انتخاب شده باشد 3 ماه عقب تر و اگر سال انتخاب شده باشد 2 سال عقب تر میرود
10-اگر روی Textbox کلیک سمت چپ کنید در هر کجا باشد آن قسمت انتخاب میشود
11-با DoubleClick سال انتخاب میشود
12-میتوانید تاریخ را با صفحه کلید تایپ کنید به این صورت که در هر قسمت از تاریخ باشید مثلا روز ، ماه یا سال تایپ از آنجا شروع میشود به اینصورت که هر عددی فشار میدهید بعد از صحت آن در جای مناسب قرار گرفته و مکانما به طرف عدد بعدی حرکت می کند
13-مقدار تاریخ را میتوانید با تابع GetValue()و یا ThisText بخوایند مثلا MessageBox.Show(FarsiDate1.Getvalue()) یا MessageBox.Show(FarsiDate1.ThisText())
14-مقدار تاریخ را میتوانید با تابع SetValue(strDate) یا ThisText تغییر دهید مثلاFarsiDate1.Setvalue(“1388/05/07”) و یا FarsiDate1.ThisText="1388/05/07"
15-در رویداد KeyDowned میتونید کلید را گرفته و عملیات لازم مثل فوکوس شدن را انجام دهید
16-تابع About هم مشخصات منو داره :31: MessageBox.Show(FarsiDate1.About())
لطفا دانلود کنید و امتحان کنید و اگر عیبی ، پیشنهادی ، بگی داره بگید تا اصلاح بشه
نظر هم یادتون نره

چيز جالبي بود (البته هنوز كامل نگاش نكردم)
ممنون
ولي اگه سورسش رو ميزاشتي بد نبود ، شايد بچه ها كمك ميكردن كامل تر شه

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

نقل قول:

---

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

---

2-با کلید Escape تاریخ پاک میشود

سورسش رو نمیزاری ؟؟ :D

لینک بالا آپدیت شد.

اینم از سورسش
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

دو تا تغییر اضافه شده
1-حذف تاریخ از Escape به Delete تغییر داده شد
2-در رویداد KeyDowned میتونید کلید را گرفته و عملیات لازم مثل فوکوس شدن را انجام دهید



اما من یک مشکلی داشتم این که رویدادهای DeyDown ,Keypress ,textChange بعد از تبدیل کنترل به یک فایل DLL دیگه جوابگو نیست

علتش اینه که حالتهای فوق در دو حالت یکی برای TextBox و یکی برای UserControl وجود داره که تو طراحی از رویدادهای TextBox استفاده شده و وقتی تبدیل به یک فایل میشه رویدادهای فوق برای UserControl محاسبه میشه برای همینه که هیچ عکس العملی در رویدادهای فوق بعد طراحی دیده نمیشه
(اگه متوجه نشدید میتونید یه برنامه کوچک بنویسید که وقتی تاریخ عوض شد یک پیغام بده میبینی که عمل نمیکنه)


چطور میشه این مشکل حل کرد

سلام دوست عزیز...ممنون از سورس برنامه...
Event رو امتحان کردم کار کرد....موقع تغییر متن..
شما باید یک Event برای کنترل خود بسازید....
من نمیدونم شما چطور اسم اینو گذاشتین کنترل نمیخوام بد بگم ولی شما اصلاً حتی یه متغیر برای متنش هم تعریف نکردین...
اینم نمونه:
کدهای زیر رو به کنترل اضافه کن:

کد:

---

    Dim TXT As String
    Public Property ThisText() As String
        Get
            Return TXT
        End Get
        Set(ByVal value As String)
            TxtDate.Text = value
        End Set
    End Property
    ' Declare the delegate (if using non-generic pattern).
    Public Delegate Sub TextChang(ByVal sender As Object, ByVal e As String)

    ' Declare the event.
    Public Event TextChanging As TextChang

    ' Wrap the event in a protected virtual method
    ' to enable derived classes to raise the event.
    Protected Overridable Sub RaiseSampleEvent()
        ' Raise the event by using the () operator.
        TXT = TxtDate.Text
        RaiseEvent TextChanging(Me, TXT)
    End Sub

---

حالا کد زیر رو هم تو قسمت TxtDate_TextChanged اضافه کن:

کد:

---

RaiseSampleEvent()

---

حالا یک Event به نام TextChanging و یک خاصیت متن ThisText به کنترل اضافه شد...
با TextChanging میتونی بفهمی که آیا متن تغییر کرده یا نه....
و با ThisText میتونی متن رو فراخوانی و تغییر بدی.
توضیح کد خواستی در خدمتیم...
موفق باشید و سربلند....

با این تغیرات جدید ، نسخه بعدیشو آپ نمی کنید ؟؟

راستی ، اگه یه راهنما هم واسش بزارین خوبه ، یه چیزی که وقتی فکوس اومد روی کنترل ، بگه که هر دکمه ای چه کاری انجام میده و بعد از این که کنترل فکوس رو از دست داد محو بشه .

لینک بالا آپدیت شد

کد:

---

DLL_FarsiDate.rar : [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
FarsiDate.dll  : [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

---

نقل قول:

---

با این تغیرات جدید ، نسخه بعدیشو آپ نمی کنید ؟؟

راستی ، اگه یه راهنما هم واسش بزارین خوبه ، یه چیزی که وقتی فکوس اومد روی کنترل ، بگه که هر دکمه ای چه کاری انجام میده و بعد از این که کنترل فکوس رو از دست داد محو بشه .

---

چرا که نه البته خود شما هم میتونید این کار رو با گذاشتن toolTip انجام بدید

نقل قول:

---

Public Delegate Sub TextChang(ByVal sender As Object, ByVal e As String)

Public Event TextChanging As TextChang

Protected Overridable Sub RaiseSampleEvent()
TXT = TxtDate.Text
RaiseEvent TextChanging(Me, TXT)
End Sub

---

با تشکار از hamishebahar برای راهنمایی خیلی عالی بود
اگه میشه این کد رو یکم توضیح بدی ممنون

سلام دوستان ببخشید دیر شد سرم شلوغه عجیب و غریب....

نقل قول:

---

Public Delegate Sub TextChang(ByVal sender As Object, ByVal e As String)

---

در این خط ما یک رویداد یا یک Event برای کنترلمون تعریف کردیم.مثل رویداد Click که در بیشتر کنترل ها هست...
ما میخوایم این رویداد موقعی اجرا بشه که متن داخل تکست تغییر کنه...
برای همین کد RaiseSampleEvent() رو داخل Changeمتن گذاشتیم.
به خط زیر دقت کنید:

نقل قول:

---

Set(ByVal value As String)
TxtDate.Text = value
End Set

---

وقتی ما متغیر ThisText رو تغییر میدیم متن تکست عوض میشه و دوباره رویداد به وسیله کد RaiseSampleEvent() اجرا میشه.

نقل قول:

---

Public Event TextChanging As TextChang

---

این خط هم که ما یک رویداد تعریف کردین که موقع تغییر متن رویداد TextChanging صدا زده میشه...

نقل قول:

---

TXT = TxtDate.Text

---

متغیر TXT همون متن داخل تکست هست که در این متغیر ذخیره میشه که موقع فراخوانی ازش استفاده میشه....

نقل قول:

---

RaiseEvent TextChanging(Me, TXT)

---

این خط هم موقعی که رویداد صدا زده شد عمل میکنه که Me کنترل هست و TXT هم متن.
موفق باشید و سربلند.