السلام عليكم ورحمة الله وبركاته
كيف أجعل TextBox لا يقبل إلا الأرقام
هذا سؤال
السؤال الثاني :
كيف أجعل Command يعطي مسج بوكس طالما مربع النص فارغ حتى مع المسافة
أرجو المساعدة وجزاكم الله خير .
TextBox
مغلق
تفضل
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = IIf(InStr("0123456789.-+" & Chr$(8), Chr$(KeyAscii)), KeyAscii, Empty)
End Subالمحلة الكبري - كلية الطب جامعة الأزهر بدمياط
من مواضيعي
برنامج تحويل mp3,wav,wma إلى exe والكود موجود
أداة تصميم الفورم على شكل صورة مع الكود
واحدة من أحدث الشفرات بمناسبة إنتهاء الإمتحانات
أفضل الإختصارات لكود برنامج خفي السواقات(الدرايفات
مؤثر عرض على مجموعة من الجمل تشبة المنتديات
إليكم أداة شاشة العرض مع الكود
برنامج تحويل exe,dll إلى Ico مع الكود
من المواضيع التي شاركت فيها
كيف يتم تصدير محتويات الفورم على شكل صورة؟
كيفية إعادة تسمية المجلدات Folders
Colored List Box Control with Horizontal Scroll
وهناك الجديد إن شاء الله
Private Sub Computer_Think()
On Error Tray Again
If You = "Real Computer" Then
DoIt("By Your Self")
Else
Kick("Your Self")
End If
End Subالسلام عليكم ورحمة الله وبركاته
بالنسبة للسؤال الاول فجرب هذا الكود
Private Sub Text1_Change()
Dim Counter As Integer,curChar As String,F As String
Counter=1
Do While Counter<=Len(Text1.Text)
DoEvents
curChar=Mid(Text1.Text,Counter,1)
If IsNumeric(curChar) Then F = F & curChar
Counter=Counter+1
Loop
Text1.Text=F
Text1.SetFocus
SendKeys "{end}"
End Subوبالنسبة للسؤال الثانى فهذا هو الكود
Private Sub Command1_Click() If Trim(Text1.Text)=""Then MsgBox "Please Fill The Text",vbCritical,"Example" End Sub
ملحوظة : كود الاخ بلال حمدى افضل من الكود الذى كتبته لكنى كتبته كزيادة معلومات ليس الا :rolleyes:
ملحوظة : لقد كتبت هذا الكود دون ان اجربه لان جهازى معطل فأرجو ان تخبرنى بالنتائج :rolleyes:
تم تعديل هذه المشاركة بواسطة GHOST2010 في 20 مايو 2005 في 18:25
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
أشكركم إخواني GHOST2010 ، بلال حمدي
شكراً على المساعدة
اقتباسملحوظة : كود الاخ بلال حمدى افضل من الكود الذى كتبته لكنى كتبته كزيادة معلومات ليس الا
لاأفضل ولا حاجة
إختلفت الأكواد والهدف واحد
تم تعديل هذه المشاركة بواسطة بلال حمدي في 22 مايو 2005 في 06:16
المحلة الكبري - كلية الطب جامعة الأزهر بدمياط
من مواضيعي
برنامج تحويل mp3,wav,wma إلى exe والكود موجود
أداة تصميم الفورم على شكل صورة مع الكود
واحدة من أحدث الشفرات بمناسبة إنتهاء الإمتحانات
أفضل الإختصارات لكود برنامج خفي السواقات(الدرايفات
مؤثر عرض على مجموعة من الجمل تشبة المنتديات
إليكم أداة شاشة العرض مع الكود
برنامج تحويل exe,dll إلى Ico مع الكود
من المواضيع التي شاركت فيها
كيف يتم تصدير محتويات الفورم على شكل صورة؟
كيفية إعادة تسمية المجلدات Folders
Colored List Box Control with Horizontal Scroll
وهناك الجديد إن شاء الله
Private Sub Computer_Think()
On Error Tray Again
If You = "Real Computer" Then
DoIt("By Your Self")
Else
Kick("Your Self")
End If
End Subبالنسبة للسؤال الثانى :
if len(text1.text)=0 then msgbox "Enter the name please"
1- لا خير في حسن الجسوم وطولها إن لم يزن حسن الجسوم عقول
2- لا تنظر إلى صغر الخطيئة .. ولكن انظر إلى عظم من عصيت
3- قد يجمع المال غير آكله . . ويأكل المال غير من جمعه
4- من وثق بالله أغناه ومن توكل عليه كفاه ومن خافه قلت مخافته ومن عرفه تمت معرفته
5- أن تضيء شمعة صغيرة خير لك من أن تنفق عمرك تلعن الظلام
6- لا يحزنك إنك فشلت مادمت تحاول الوقوف على قدميك من جديد
7- صديقك من يصارحك بأخطائك لا من يجملها ليكسب رضاءك
8 - الابتسامة كلمة طيبة بغير حروف
9- لا داعى للخوف من صوت الرصاص .. فالرصاصة التى تقتلك لن تسمع صوتها
10 -- يستطيع الناس أن يعيشوا بلا هواء بضع دقائق وبلا ماء أسبوعين وبلا
طعام حوالى شهرين وبلا أفكار سنوات لا حصر لها
من مواضيعى :
--------------
دروس تعلم كيف تصحح أخطائك بنفسك
برنامج الحائط النارى العربى ---- جديد
برنامج ساعة بالعقارب ------ جديد
غير نظرتك لل picturebox وانظر ماذا فعلت بها
حمل ملف فلاش على الفورم بكل سهولة
مكتبة تحتوى على 50000 كتاب مجانى معظمها عن الكمبيوتر و البرمجة
بعد اذن الاخ vb6-rocket فى اجابتك اهملت هذه الجزئية وهى ان تكون هناك مسافات فى بداية او نهاية النص لذلك يجب استخدام الامر Trim.اقتباسحتى مع المسافة
تم تعديل هذه المشاركة بواسطة GHOST2010 في 22 مايو 2005 في 11:27
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
عندك حق يا ghost انا لم أخذ بالى من انه لايريد مسافات أيضا الا بعد ان نبهتنى :)
1- لا خير في حسن الجسوم وطولها إن لم يزن حسن الجسوم عقول
2- لا تنظر إلى صغر الخطيئة .. ولكن انظر إلى عظم من عصيت
3- قد يجمع المال غير آكله . . ويأكل المال غير من جمعه
4- من وثق بالله أغناه ومن توكل عليه كفاه ومن خافه قلت مخافته ومن عرفه تمت معرفته
5- أن تضيء شمعة صغيرة خير لك من أن تنفق عمرك تلعن الظلام
6- لا يحزنك إنك فشلت مادمت تحاول الوقوف على قدميك من جديد
7- صديقك من يصارحك بأخطائك لا من يجملها ليكسب رضاءك
8 - الابتسامة كلمة طيبة بغير حروف
9- لا داعى للخوف من صوت الرصاص .. فالرصاصة التى تقتلك لن تسمع صوتها
10 -- يستطيع الناس أن يعيشوا بلا هواء بضع دقائق وبلا ماء أسبوعين وبلا
طعام حوالى شهرين وبلا أفكار سنوات لا حصر لها
من مواضيعى :
--------------
دروس تعلم كيف تصحح أخطائك بنفسك
برنامج الحائط النارى العربى ---- جديد
برنامج ساعة بالعقارب ------ جديد
غير نظرتك لل picturebox وانظر ماذا فعلت بها
حمل ملف فلاش على الفورم بكل سهولة
مكتبة تحتوى على 50000 كتاب مجانى معظمها عن الكمبيوتر و البرمجة
هذا الموضوع مغلق.