PDA

View Full Version : خبر: کامپوننت تکس باکس پیشرفته با کلی امکانات - دانلود کنید



sagggad
جمعه 20 دی 1392, 15:34 عصر
سلام دوستان.
به تازگی یک کامپوننت تکس باکس نوشتم که امکانات متفاوت و جالبی داره....
حالا با اجازه ی مدیران محترم این کامپوننت و توضیحاتش رو برای شما میذارم تا دانلود کنید و نظر بدید تا بهتر بشه:
توضیحات:
امکانات:
1-با استفاده از خصوصیت Dismember میتوانید تکس باکس را به یک حالتی قرار دهید که اعداد را به صورت سه رقم سه رقم جداکند(جهت نمایش مقادیر پولی)
2-برای این تکس باکس میتوانید BorderColor تعیین کنید...
به شکل زیر:
http://barnamenevis.org/attachment.php?attachmentid=115138&d=1389356464
3-میتوانید تکس باکس را بوسیله ی خصوصیت TXTCharacters به دریافت فقط اعداد یا فقط حروف محدود کنید...
اگر داخل این خصوصیت کلمه ی only number را تایپ کنید تکس باکس فقط اعداد را دریافت میکند و اگر کلمه ی only char را تایپ کنید فقط حروف انگلیسی و فارسی را دریافت میکند اگر هم کلمه ی all را وارد کنید تمامی مقادیر را دریافت میکند...
4-در صورتی که خصوصیت Warning را برابر True قرار دهید اگر کاربر تکس باکس را خالی قرار دهد و فاکوس از روی آن برداشته شود شروع به چشمک زدن میکند وکاربر را متوجه می نماید...

لینک دانلود:115146

عاجزانه از شما تقاضا میکنم نظرات خود را بازگو کنید....

اگر امکانی به نظرتان میرسد در همین تاپیک اعلام کنید تا انشاالله اضافه کنم

موفق باشید:لبخند:

farhad85
جمعه 20 دی 1392, 15:52 عصر
عالیه !جلوی خیلی از کد تویسی اضافه رو میگیره ممنون

Ali_Fallah
جمعه 20 دی 1392, 16:56 عصر
خیلی عالیه دستت درد نکنه
اگه میشه سورسش رو هم بذار تا هم بقیه یادبگیرن و در پیشرفتش کمک کنن.
--
اگه بشه تاریخ فارسی رو با پیغام مناسب (در صورت ثبت تاریخ اشتباهتوسط کاربر) در تکس باکس گنجاند به نظرم خیلی خوبه

sagggad
جمعه 20 دی 1392, 16:59 عصر
بفرمایید درسته که خیلی براش وقت گذاشتم و زورم میاد بذارم ولی خسیس نیستم:
این هم سورس:115182

Ali_Fallah
جمعه 20 دی 1392, 17:11 عصر
در مورد تاریخ فارسی هم روی کامپوننت کارکن...

sagggad
جمعه 20 دی 1392, 17:13 عصر
متوجه منظورتون نشدم میشه بیشتر توضیح بدید؟

Ali_Fallah
جمعه 20 دی 1392, 18:43 عصر
یعنی بشه تاریخ فارسی رو هم وارد کرد بصورت 20/10/1392 و در صورت درج تاریخ اشتباه ، پیغام خطا نیز نشون داده بشه
یک تکست چند منظوره
---
قبلا یکی از کاربران همین کار رو کرد ولی از ارائه سورس برنامه خودداری کرد

sagggad
جمعه 20 دی 1392, 23:13 عصر
باشه ولی الان مگه تاریخ شمسی دریافت نمیکنه؟

Hossis
شنبه 21 دی 1392, 09:12 صبح
یک حالت دیگه هم که خوبه اضافه بشه، اضافه کردن دو خصوصیت رنگ برای دریافت فوکس و از دست دادن فوکس هست به این صورت که وقتی فوکس رو دریافت کرد، رنگش مثلا سفید بشه و وقتی فوکس رو از دست داد، زرد کمرنگ بشه این خاصیت در جایی که از چندین تکست باکس در فرم استفاده شده، برای زیبایی فرم و تشخیص تکست باکس فعال کمک می کنه.

Hossis
شنبه 21 دی 1392, 09:14 صبح
و نیز خصوصیت تایپ فارسی و لاتین هم چیز خوبیه یعنی وقتی فوکس رو گرفت زبان برنامه فارسی بشه یا انگلیسی( به انتخاب کاربر)

sagggad
شنبه 21 دی 1392, 09:48 صبح
ممنونم از پیشنهاداتون حتما اضافش میکنم(زیاد سخت نیست...:چشمک:)

jafarpalideh
شنبه 21 دی 1392, 10:07 صبح
من نمیتونم سورس رو دانلود کنم یعنی میگه لینک وجود نداره

sagggad
شنبه 21 دی 1392, 10:09 صبح
اصلاح شد...

sagggad
شنبه 21 دی 1392, 18:23 عصر
خوب الان دیگه انقدر بهش امکانات اضافه کردم کهکف میکنید تو لینک زیر:
http://barnamenevis.org/showthread.php?435913-%DA%A9%D8%A7%D9%85%D9%BE%D9%88%D9%86%D9%86%D8%AA-%D8%AA%DA%A9%D8%B3-%D8%A8%D8%A7%DA%A9%D8%B3-%D9%BE%DB%8C%D8%B4%D8%B1%D9%81%D8%AA%D9%87-%D8%A8%D8%A7-%DA%A9%D9%84%DB%8C-%D8%A7%D9%85%DA%A9%D8%A7%D9%86%D8%A7%D8%AA-%D8%AF%D8%A7%D9%86%D9%84%D9%88%D8%AF-%DA%A9%D9%86%DB%8C%D8%AF&p=1950549&viewfull=1#post1950549

lovecity7
یک شنبه 22 دی 1392, 07:23 صبح
سلام اینطور کامپوننتی دیده بودم ولی انصافاً بااینکه اونا شرکتیه کارت حرف نداره.
ممنون

Hossis
یک شنبه 22 دی 1392, 08:54 صبح
خوب الان دیگه انقدر بهش امکانات اضافه کردم کهکف میکنید تو لینک زیر:

در مورد سایر کنترل ها هم همین کار رو بکنید تا یک مجموعه مثل تلریک یا دوو کامپوننت بشه مثل:
netProgram.sajad.TextBox

sagggad
یک شنبه 22 دی 1392, 14:51 عصر
با تشکر از دوستان
7 امکان دیگر افزوده شد
در لینک زیر نسخه 4.0.0 رادانلود کنید
http://barnamenevis.org/showthread.php?435913-%DA%A9%D8%A7%D9%85%D9%BE%D9%88%D9%86%D9%86%D8%AA-%D8%AA%DA%A9%D8%B3-%D8%A8%D8%A7%DA%A9%D8%B3-%D9%BE%DB%8C%D8%B4%D8%B1%D9%81%D8%AA%D9%87-%D8%A8%D8%A7-%DA%A9%D9%84%DB%8C-%D8%A7%D9%85%DA%A9%D8%A7%D9%86%D8%A7%D8%AA-%D8%AF%D8%A7%D9%86%D9%84%D9%88%D8%AF-%DA%A9%D9%86%DB%8C%D8%AF&p=1950549&viewfull=1#post1950549

swallow.pa
یک شنبه 22 دی 1392, 15:43 عصر
خب دوست من يك خصوصيت ديگه رو بهش اضافه كن . فكركن مميز مي خوايم بديم
1,325,364.72
مثلا مثل اين نوشته كه رو رقم مميز داره
و شايد اصلا مميز هم نداشته باشه
1,325,364
منظور از شايد ورودي كاربره مي خوام بدونم براي مميز چيكار مي كني
ممنون

sagggad
یک شنبه 22 دی 1392, 16:36 عصر
با سلام
لطفا بیشتر راجع به این موضوع توضیح بدید
میخواین با ممیز چه کاری انجام داده شه؟

sagggad
یک شنبه 22 دی 1392, 22:47 عصر
من از جناب Ali_Fallah عذر میخوام بابت این که این امکان رو که فرمودن فراموش کردم...
انشاالله به زودی اضافه میکنم

swallow.pa
دوشنبه 23 دی 1392, 06:26 صبح
با سلام
لطفا بیشتر راجع به این موضوع توضیح بدید
میخواین با ممیز چه کاری انجام داده شه؟

مثلا براي برنامه انبار داري كه توي نرخ و في مميز اهميت داره

gilsoft
دوشنبه 23 دی 1392, 08:36 صبح
سلام دوست عزیز

اگه برات امکان داره سورس پراپرتی TXTBorderThickness و BorderColor رو بذار .. ببینیم چیکار کردی ؟ :متفکر:

ممنونم ....

sagggad
دوشنبه 23 دی 1392, 09:34 صبح
من که سورس رو بالا گذاشتم

نسرین2000
دوشنبه 23 دی 1392, 10:02 صبح
آقا سجاد من یه بار این کامپوننت رو اضافه کردم و تونستم ازش استفاده کنم
حالا دو تا مشکل :
1- این تکس باکس و کامپوننت رو پاک کردم و دوباره نسخه بعدی رو اضافه کردم ولی پیغام می ده که این کامپوننت در پروژه موجود است و دیگه اجازه نمی ده اضافه کنم به فرم در حالی که من قبلی رو پاک کردم ؟
2- همون طور که یکی از دوستان گفتن اعداد داخل تکس باکس رو نمی تونم پاک کنم ؟

sagggad
دوشنبه 23 دی 1392, 10:21 صبح
با سلام
برای سوال اولتون:
اون های قبلی رو از داخل تولباکس Remove کنید...
سپس ویژوال استودیو رو ببرید و دوباره بیارید حالا میتونید به راحتی اضافه کنید
سوال 2:
راستش من تنها از شما دو نفر این مشکل رو شنیدم و از بقیه هم پرسیدم مشکلی تو این مورد نداشتن
شما دقت داشته باشید که نسخه 4.0.0 رو دانلود کرده باشید
موفق باشید

نسرین2000
دوشنبه 23 دی 1392, 10:22 صبح
یه ارور دیگه هم می ده :
می گه txtperfetional در فضای نام کتابخانه ناآشناست
آیا باید جایی در فضای کتابخانه ای تعریفش کنم تا بتونم ازش استفاده کنم ؟

sagggad
دوشنبه 23 دی 1392, 10:22 صبح
نه اصلا همچین چیزی نیست
اون های قبلی رو از داخل تولباکس Remove کنید...
سپس ویژوال استودیو رو ببرید و دوباره بیارید حالا میتونید به راحتی اضافه کنید

نسرین2000
دوشنبه 23 دی 1392, 11:58 صبح
آقا سجاد وقتی عدد توی تکس باکس می نویسم با back space پاک نمی شه بلکه باید همه متن رو های لایت کنم و بعد با دکمه delپاکش کنم .
به نظرت مشکل کجاست که یک عدد یک عدد پاک نمی شه ؟

نسرین2000
دوشنبه 23 دی 1392, 12:01 عصر
این اشکال فقط برای only number هست یعنی زمانی که all یا only character رو انتخاب می کنیم این مشکل وجود نداره فقط برای اعداد این جوریه .
خودت یه تستی بکن ببین .

sagggad
دوشنبه 23 دی 1392, 12:57 عصر
به پیر ، به پیغمبر برا خودم درستـــــــــــــــــــــ ـــــــــــــــــــــــــ ــــــــــــــــــه

sagggad
دوشنبه 23 دی 1392, 13:13 عصر
خوب به دستور دوستان در این نسخه برای تاریخ هم یه فکری شده:
امکانات:
1-خصوصیت DateMask :
این خصوصیت رو به دستور آقای Ali_Fallah اضافه کردم
اگر این خصوصیت برابر NULL باشد تکس باکس به حالت عادی است
اما اگر در حالت DateMask قرار گیرد به شکل تاریخ در میاید
در صورتی که کاربر تاریخ را اشتباه وارد کند تاریخ به طور اتومات تصحیح شده و به کاربر اخطار داده میشود...

در این نسخه یک بدی نیز وجود دارد که من پیشنهاد میکنم اگر برایتان تاریخ زیاد مهم نیست این نسخه را به نسخه 4.0.0 ترجیح نـــــــــــــــــــدهید:
1-امکان مولتی لاین شدن وجود ندارد
لینک دانلود نسخه ی 5.0.0:

TextBoxPerffosional.rar (http://barnamenevis.org/attachment.php?attachmentid=115303&d=1389607657)

این کدهای تاریخ هست گفتم بذارم شاید دوستان لازم

داشته باشن:


If Me.TXTDateMask = Dateing.DateMask Then
Dim str() As String = Split(MaskedTextBox1.Text, "/", -1)
Dim str2 As String = str(1)
If str(1) <> " " Then
If str(1) = " 2" Or str(1) = " 3" Or str(1) = " 4" Or str(1) = " 5" Or str(1) = " 6" Or str(1) = " 7" Or str(1) = " 8" Or str(1) = " 9" Then
str2 = "0" & Trim(str(1))
MaskedTextBox1.Text = str(0) & str2 & str(2)
End If
If str(1) > 12 Then
MsgBox(str(1) & "از تعداد ماه های سال بزرگتر است")
str2 = "12"
MaskedTextBox1.Text = str(0) & str2 & str(2)
End If
End If
If str(2) <> "" Then
If str(1) <= 6 Then
If str(2) > 31 Then
MsgBox(str(2) & "از تعداد روزهای ماه بزرگتر است")
MaskedTextBox1.Text = str(0) & str2 & "31"
End If
ElseIf str(1) > 6 Then
If str(2) > 30 Then
MsgBox(str(2) & "از تعداد روزهای ماه بزرگتر است")
MaskedTextBox1.Text = str(0) & str2 & "30"
End If
End If
End If
End If

gilsoft
دوشنبه 23 دی 1392, 15:12 عصر
من که سورس رو بالا گذاشتم

توی اون سورس‌ پست 4# این دوتا پروپرتی وجود نداره !

sagggad
دوشنبه 23 دی 1392, 15:18 عصر
بفرمایید اون تکس باکس شما رو هم دیدم خوب بود (یه وقت تقلب نکنی...!!!:شیطان:)
115317

swallow.pa
سه شنبه 24 دی 1392, 19:18 عصر
دوست گرامي درباره مميز هم فكري كردي؟
به هر حال ممنون

sagggad
سه شنبه 24 دی 1392, 22:14 عصر
راستش چند وقی بود سراغ برنامه نرفتم باز هم اگر لطف کنی و توضیح بیشتر بدی حتما....

gilsoft
چهارشنبه 25 دی 1392, 07:15 صبح
(یه وقت تقلب نکنی...!!!:شیطان:)
115317

سلام دوست عزیز

شما این کنترل رو بصورت UserControl نوشتی ... اما من بصورت Component ....

تو کامپوننت با استفاده از WindProc نمیشه حاشیه رو رنگی کرد ( البته اگه پروژه‌ی کامپوننت رو به پروژه‌ی اصلی برنامه Add کنی مشکلی نیست .... ولی اگه بصورت DLL (مستقل)‌ به برنامه‌ات‌ Add کنی ، WindProc کار نمی‌کنه ! .... روی همین مسئله میخواستم بدونم که شما چگونه حاشیه‌ی کنترل رو رنگی کردی ... یه نگاهی به این پست بیاندازی بد نیست : چطور میشه رنگ حاشیه textbox رو تعیین کرد؟ (http://barnamenevis.org/showthread.php?435542-%DA%86%D8%B7%D9%88%D8%B1-%D9%85%DB%8C%D8%B4%D9%87-%D8%B1%D9%86%DA%AF-%D8%AD%D8%A7%D8%B4%DB%8C%D9%87-textbox-%D8%B1%D9%88-%D8%AA%D8%B9%DB%8C%DB%8C%D9%86-%DA%A9%D8%B1%D8%AF%D8%9F&p=1948737&viewfull=1#post1948737)

در هر صورت موفق باشی دوست من ....

sagggad
چهارشنبه 25 دی 1392, 07:19 صبح
شوخی کردم دلخور نشید...
من یه کلکی زدم که باید دقت کنید(برای رنگ اطراف تکس باکس)...

swallow.pa
چهارشنبه 25 دی 1392, 16:37 عصر
راستش چند وقی بود سراغ برنامه نرفتم باز هم اگر لطف کنی و توضیح بیشتر بدی حتما....

دوست گرامي اگه اعداد با مميز بخواي بزاري و سه رقم سه رقم جدا شه چيكار ميكني