کامبوباکس انتخاب رنگ ورژن 1.2 (ColorComboBox V1.2)

این هم ورژن 1.2 کامپونت ColorComboBox با امکاناتی متفاوت 

از جمله اضافه کردن رنگهای دلخواه برنامه نویس به این صورت که برنامه نویس میتونه Items های این کامپونت رو حذف کنه و رنگهایی که خودش فقط نیاز داره رو اضافه کنه و یا میتونه رنگهای خودش رو هم آخر کار اضافه کنه 

 عکس زیر که میبینید تمام رنگ ها پاک شده و 4 تا رنگی که من میخواستم رو اضافه کردم 

  

راستی این رو بگم که برای برگرداندن رنگ انتخابی باید بصورت زیر عمل کنید 

Label1.ForeColor = ColorComboBox1.SelectedColor 

 

برای دانلود کامپونت اینجا کلیک کنید 

نسخه 1.1 کامپونت MaskNumber

 این هم نسخه 1.1 از کامپونت MaskNumber ولی با تفاوت خیلی زیاد

مهمترین تفاوتش اینه که تمام مطالبش مثل textBox معمولی هست و علاوه بر Property های textbox یک عدد property بهش اضافه شده به نام MouseWheelChangeNumber که با تعیین مقدار اون اگر کلید وسط موس رو (Wheel) رو بالا یا پایین کنید مقدار MaskNumber تغییر میکنه

 علاوه بر ان به کاربر اجازه میده که اعداد  منفی رو نیز اضافه کنه

برای دانلود اینجا کلیک کنید

کامپونت جدا کننده اعداد (MaskTextBox)

این هم ورژن اول کامپونت جدا کننده اعداد (MaskTextBox)  

امکاناتش عبارتست از :  

1- جدا شدن اعداد بصورت 3 رقم 3رقم
2- فقط عدد میگیره فقط backSpace , Delete, Enter روش فعال هست
3- هنگام Focus به آخر متن میره
4- برگردادندن مقدار عدد متن
5- داشتن امکان Decimal 

دارم روی این کامپونت فعلا کار میکنم تا ورژن 2 اون رو با امکانات جدیدتر و کاملتری  آماده کنم 

خوشحال میشم دوستان توی ساخت کامپونت کمکم کنن 

برای گرفتن مقدار عددی باید از قابلیت GetNumber استفاده کنید
برای گرفتن مقدار خود MaskTextBox میتونید از قابلیت TextBoxText یا GetText استفاده کنید

برای تغییر Font کامپونت از (Property) قابلیت TextBoxFont استفاده کنید
برای تغییر رنگ(BackColor) پس زمینه TextBoxBackColor استفاده کنید
برای تغییر رنگ(ForeColor) خود متن TextBoxForeColor استفاده کنید

برای دانلود اینجا کلیک کنید

Color ComboBox حرفه ای

این هم ColorComboBox حرفه ای برای کلیه دوستان

البته سورسش هم هست اگه کسی خواست بگه تا واسش بزارم

برای دانلود اینحا کلید کنید

طریقه استفاده :

Label1.ForeColor = Me.ColorCombobox1.SelectColor

مقایسه دو تاریخ شمسی با یکدیگر (شمسی DataDiff)

 کد مقایسه دو تاریخ شمسی با یکدیگر (شمسی DataDiff) 

Public Function ShamsiDateDiff(ByVal Date1 As String, ByVal Date2 As String, Optional ByVal Seperator As String = "/") As Integer

        Dim pc As New Globalization.PersianCalendar

        Dim da1 = Date1.Split(Seperator)

        Dim da2 = Date2.Split(Seperator)

        Dim dt1 = pc.ToDateTime(da1(0), da1(1), da1(2), 0, 0, 0, 0)

        Dim dt2 = pc.ToDateTime(da2(0), da2(1), da2(2), 0, 0, 0, 0)

        Return DateDiff(DateInterval.Day, dt1, dt2)

    End Function 

طریقه استفاده از کد 

Msgbox(ShamsiDateDiff(“1389/07/09” , ”1389/09/23” , ”/”))