تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كود يسمحلي اختار ضمن range معين من الارقام
#1
يعطيكم العافيه 

> بدي كود بانه يكون اختيار الارقام بين 1 الى 100 فقط اي رقم خارج هاد ال range يترك النتيجه متل ما كانت أول ..

> شغله تانيه : اذا عندي 2form ، ال form  الاول هو ال main الرئيسي وال form التاني هو فرعي ، 
بدي كود انه بس اسكر ال form الرئيسي ، تسسكر معه كل ال forms الفرعيه .. 

شكرااا
الرد
تم الشكر بواسطة:
#2
السلام عليكم

.rar   Mera.VB4ARB.rar (الحجم : 3.53 ك ب / التحميلات : 38)
الرد
تم الشكر بواسطة: mera , Ahmed_Mansoor , rnmr , rnmr
#3
يسلمـــــــــــــــــــــــــــــــو كتــــــــــــــــــــــــــــير ، فعلأ رائع ومميز Smile

بالنسبه ل range اذا فرضنا انه عندي واحد text1.text وبدي يكون range ادخال الارقام من 1 الى 100 كيف ممكن اسويها ؟
الرد
تم الشكر بواسطة: Amir_Alzubidy
#4
السلام عليكم
في المرفقات

.rar   Mera2.VB4ARB.rar (الحجم : 3.5 ك ب / التحميلات : 42)
الرد
تم الشكر بواسطة: mera , Ahmed_Mansoor , السيد الغالي , rnmr
#5
السلام عليكم
تقدر تكتب في الحدث :Textbox1_TextChanged (يعني بعد النقر مرتين على صندوق النص أكتب التالي)

If TextBox1.Text > 100 Then
TextBox1.Text = TextBox1.Text.Remove(TextBox1.Text.Length - 1, 1)
TextBox1.Select(TextBox1.Text.Length, 0)
End If
السطر الاول يقول اذا كان العدد اكبر من مئة
السطر الثاني يقول امسح الحرف الاخير الذي تمت كتابته توّا
السطر الثالث يجعل القلم في نهاية النص

وبالنسبة لاغلاق الفورم الاول عند اغلاق الثاني
فيمكنك كتابة الكود التالي في الحدث :Form2_FormClosed
Form1.close

وشكرا
الرد
تم الشكر بواسطة: Amir_Alzubidy , mera , Ahmed_Mansoor , السيد الغالي
#6
Dim Text1Text As String
Const Text1Max As Long = 100
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Text1Text = Text1.Text
End Sub
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If Val(Text1.Text) > Text1Max Then
Text1.Text = Val(Text1Text)
Text1.SelStart = Len(Text1.Text)
End If
End Sub
الرد
تم الشكر بواسطة: Amir_Alzubidy , mera , Ahmed_Mansoor , Fantastico
#7
شككككرا لكم جميعا ـ أبدعتوا Smile
الرد
تم الشكر بواسطة: Amir_Alzubidy


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  بحث عن رقم معين في اكثر من حقل في الجدول mustafa mohamed 4 115 01-08-19, 03:28 PM
آخر رد: mustafa mohamed
  كيف يتم الحفاظ على تسلسل الارقام في حالة اجراء البحث gonm64 9 311 08-07-19, 06:42 AM
آخر رد: gonm64
  تحويل الارقام من الانجليزية للعربية dr.mostashar 7 464 22-02-19, 09:57 PM
آخر رد: AL_BRNS
  [vb6.0] طريقه عمل مجاميل لصنف معين بالجدول Ashraf Elafify 5 410 26-11-18, 10:46 PM
آخر رد: Ashraf Elafify
  احتاج كود ليعرض معلومات من قاعدة بيانات اكسس لتاريخ معين حسن الغزي 7 594 18-08-18, 03:42 AM
آخر رد: عبدالله الصافي
  اريد حساب checksum شيك سوم لسطر معين wolf1120 1 387 19-02-18, 11:23 PM
آخر رد: wolf1120
  كيف يفتح برنامجى ملف عند الضغط على (فتح) ملف ذو امتداد معين مبرمج مصرى 3 490 11-11-17, 10:51 PM
آخر رد: مبرمج مصرى
  من لديه طريقه الطباعه على مكان معين من ورقه الستيكر a4 المجزئه الي 33 جزء scsi7000 2 692 30-07-17, 07:03 PM
آخر رد: scsi7000
  سؤال حول تجميع عامود فى قاعدة البيانات بشرط معين المبرمج العتيق 5 669 07-07-17, 03:09 AM
آخر رد: Ahmed_Mansoor
  تغيير لون تاكست بوكس عند سن معين بوزوينة علي 1 522 04-07-17, 02:06 AM
آخر رد: Ahmed_Mansoor

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم