السلام عليكم
عندي textbox لا اريد ان يكتب 0 (صفر) في البداية
تم تعديل هذه المشاركة بواسطة hanysaad في 28 ديسمبر 2005 في 01:13
قبورنا تبنى ونحن ما تبنا **** يا ليتنا تبنا من قبل ان تبنى
عندي textbox لا اريد ان يكتب 0 (صفر) في البداية
مغلق
on presskey in text
if e=0 then e=""
حسب تزكري للغة لاني ليس عندي الان VS6
سبحانه الله وبحمده سبحانه الله العظيم
if (You Love ArabTeam2000 ) MessageBox.Show("All ArabTeam2000 Love You"); else MessageBox.Show("go to your mama"); Make it run, make it right, make it fast, make it small
normalize your data and don't make it look like excel sheet
الأبداع في الرأس والعلم في الكراس
روابط مفيدة
[دروس] تجاهل الwhere
طريقة الاضافة للجدولين مرتبطين مرة واحدة
قراءة صوره من مسار
حل مشكلة الارقام العربي في الكريستال ريبورت
حل مشكلة تصدير OLE Object الي Physical File مرة أخري
كود عمل نسخة يومية من قاعدة البيانات بتاريخ مع حذف النسخة السابقة من 30 يوم مضي
معظم دوال التعامل مع string
Change Data Capture
SQL Course
string-format-datetime
LINQ to SQL in C#
Sum-of-previous-row-values-in-SqlServer
alarm-for-stop-agent-service
SQL Server CTE
هذا الكود يقوم بعمل ذلك
Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 48 Then KeyAscii = 0 End Sub
28 ديسمبر 2005
شكرا اخ yasserstars ولكن بهذا الكود لا استطيع كتابة 0 في كل التكست
انا لا اريد كتابة صفر فقط في البداية مثلا لا اريد كتابة 01234 ولكن استطيع 101234
قبورنا تبنى ونحن ما تبنا **** يا ليتنا تبنا من قبل ان تبنى
السلام عليكم
Private Sub Text1_KeyPress(KeyAscii As Integer) If Len(Text1.Text) < 1 Then If KeyAscii = 48 Then KeyAscii = 0 End If End If End Sub
اعتقد ان اخي المتميز قدملك الحل
كود الاخ المتميز متميز وهو اعتقد صحيح
ولكنك اخي al_amwaj لم تقم بالرد ليتم معرفة هل انتهى مطلوبك ام لا
هناك فرق بين أن تكبر بالعمر
، و أن تكبر بالعقل
فالأولى ، إجباري
، والثانية اختياري .."
فالأولى ، إجباري
، والثانية اختياري .."
بعض الاضافة على كود الاخى المتميز
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Len(Trim(Text1.Text)) < 1 Then
If KeyAscii = 48 Then
KeyAscii = 0
End If
End If
End Sub
نعم الكود صحيح ولكن إذا ظللت الكتابة وكتبت صفر يكتب ولكن لا بأس بالكود
قبورنا تبنى ونحن ما تبنا **** يا ليتنا تبنا من قبل ان تبنى
أخي al_amwaj
تحية طيبة وكل عام انت بخير والامة العربية والاسلامية بخير وسعادة
وهذا الكوداللي سيقوم بما تريد ان تفعله
[code)
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Text1.SelStart = 0 Then
If KeyAscii = 48 Then
KeyAscii = 0
End If
End If
End Sub
بسم الله الرحمن الرحيم
السلام عليكم و رحمة الله و بركاته
حلول جميلة بالفعل و للاختصار يمكن إستخدام شفرة مثل :
Private Sub Text1_Change() If Left(Text1, 1) = "0" Then Text1 = Mid(Text1, 2) End Sub
وهي ستعمل مع التظليل و كذلك اذا تم الكتابة في خارج النص ثم اللصق مباشرة الى مربع النص او اثناء الكتابة المباشرةبإذن الله تعالى و الله سبحانه و تعالى اعلى و اعلم
السلام عليكم و رحمة الله و بركاته
تم تعديل هذه المشاركة بواسطة رغيد الطيب في 12 يناير 2006 في 15:42
مواضيع برمجية تقنية جديدة
----------------------------------------------------------------------------------------------------------------------------------------------
• إستغلال خدمة الـ RSS في برامجنا ومواقعنا ! (VB.NET)
----------------------------------------------------------------------------------------------------------------------------------------------
• برنامج للبحث في الملفات ومحتواياتها (VB.NET)
----------------------------------------------------------------------------------------------------------------------------------------------
• فئة للتراسل بين برنامجين في جهاز واحد ! (VB.NET)
----------------------------------------------------------------------------------------------------------------------------------------------
مواضيع برمجية تقنية قديمة
----------------------------------------------------------------------------------------------------------------------------------------------
• إستغلال رسائل البالونات Balloons في الوينذوز أكس بي(VB.NET)
----------------------------------------------------------------------------------------------------------------------------------------------
• مقالة : لماذا يجب ان نعتني بشفرات برامجنا !؟- (VB6.0)
----------------------------------------------------------------------------------------------------------------------------------------------
• لمطوري البرامج و مواقع الويب - برنامج تركيب ألوان - (VB6.0)
----------------------------------------------------------------------------------------------------------------------------------------------
• برنامج : بسيط للتحكم بالنظام, عن طريق الريجستري - (VB6.0)
----------------------------------------------------------------------------------------------------------------------------------------------
• برنامج : لتقييد و منع تشغيل البرامج الاخرى - (VB6.0)
----------------------------------------------------------------------------------------------------------------------------------------------
• النوافذ المنبثقة و طريقة لإستغلالها في برامجنا -(VB.NET)
----------------------------------------------------------------------------------------------------------------------------------------------
• تقنية الإستدعاء الذاتي - (VB.NET , VB6.0)
----------------------------------------------------------------------------------------------------------------------------------------------
• مصفوفات الأدوات Control Arrays افكار وتلميحات ! - (VB.NET)
----------------------------------------------------------------------------------------------------------------------------------------------
• أفكار و تلميحات[ المعنى الحقيقي للـ True و False ] - أمثلة (VB.NETVB6.0)
----------------------------------------------------------------------------------------------------------------------------------------------
• دوال الـ APIs و مايقابلها في الدوت نت ! - (VB.NET)
----------------------------------------------------------------------------------------------------------------------------------------------
شكرا لكم جميعا جربت الطرق وقد نجح الامر
قبورنا تبنى ونحن ما تبنا **** يا ليتنا تبنا من قبل ان تبنى
اقتباسPrivate Sub Text1_Change() If Left(Text1, 1) = "0" Then Text1 = Mid(Text1, 2) End Sub
ماذا لو كتبت 000050000
ستظهر هكذا 00050000
اعتقد ان هذا الكود هو الابسط والافضل
Private Sub Text1_Change() text1.text=val(text1.text) End Sub
تم تعديل هذه المشاركة بواسطة newhotta في 13 يناير 2006 في 00:50
الاخ newhotta كودك للأسف لن يعمل بالشكل المطلوب لانه اولا لا يريد كتابة اي اصفار في البداية ثانيا عند تجربة كودك تجد انه عندما تضغط backspace فانه يضع صفر غير قابل للازالة و هذا عقد المشكلة بدلا من ان يحلها أعتقد ان كود الاخ رغيد الطيب حل المشكلة فعلا
و من الممكن ايضا استخدام هذا الكود
Private Sub Text1_Change() If Left(Text1.Text, 1) = "0" Then Text1.SelStart = 0 Text1.SelLength = 1 Text1.SelText = "" Beep End If End Sub
Oracle 10G Certified Professional Developer.
عودة بعد 3 سنوات غياب، ان شاء الله سوف اتكلم معكم قريبا احبائي
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim strvalid As String
strvalid = "123456789."
If KeyAscii > 26 Then
If InStr(strvalid, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End If
End Sub
اقتباسPrivate Sub Text1_KeyPress(KeyAscii As Integer)Dim strvalid As String
strvalid = "123456789."
If KeyAscii > 26 Then
If InStr(strvalid, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End If
End Sub
و ماذا لو قام المستخدم بعمل copy و paste و كان بها قيمة اولها 0؟ :D
الحلول السابقة هي أفضل حلول و تحل المشكلة
Oracle 10G Certified Professional Developer.
عودة بعد 3 سنوات غياب، ان شاء الله سوف اتكلم معكم قريبا احبائي
هذا الموضوع مغلق.