تقييم الموضوع :
  • 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 ك ب / التحميلات : 41)
الرد }}}
تم الشكر بواسطة: mera , Ahmed_Mansoor , rnmr , rnmr
#3
يسلمـــــــــــــــــــــــــــــــو كتــــــــــــــــــــــــــــير ، فعلأ رائع ومميز Smile

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

.rar   Mera2.VB4ARB.rar (الحجم : 3.5 ك ب / التحميلات : 46)
الرد }}}
تم الشكر بواسطة: 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] تغيير نوع الخط فى عمود معين داخل الdatagrid haitham Muhammed 6 363 20-12-23, 01:11 PM
آخر رد: mhareek
Question [vb6.0] عندي مشكلة في هذا الكود حيث انه لا يقبل الا رقم فقط اريد ان يقبل الارقام والاحرف ؟ Microformt 1 269 25-10-23, 04:10 PM
آخر رد: Amir_Alzubidy
Lightbulb [سؤال] إظهار قيمة خلية محددة عند النقر على صف معين في DataGrid1 أبو خالد الشكري 4 326 13-09-23, 09:52 PM
آخر رد: أبو خالد الشكري
Information [vb6.0] كيف اجعل الارقم في التقرير باء الغه الانجليزية حتى لو كان نظام الارقام في الويندوز Microformt 0 180 16-08-23, 10:41 AM
آخر رد: Microformt
  [vb6.0] طلب : كود إيجاد أقل قيمة في عمود معين بجدول من قاعدة بيانات أكسس hamada salah90 2 1,048 12-12-21, 11:12 PM
آخر رد: hamada salah90
  [vb6.0] أريد تنفيذ أمر معين يتم تنفيذه عند الضغط على مفتاح معين من لوحة المفاتيح hamada salah90 0 974 28-07-21, 11:32 PM
آخر رد: hamada salah90
  طلب كوداتصال بقاعدة في مسار معين ahmed201 2 1,147 03-02-21, 07:49 AM
آخر رد: ahmed201
  [vb6.0] كيف يمكن التمييز لاصناف بلون مميز حسب شرط معين mshflexgrid mhqom2020 2 1,425 21-12-20, 11:56 PM
آخر رد: mhqom2020
Thumbs Up [كود] مشكله فى كود تفقيط الارقام الى حروف eng_elsawy 17 12,832 17-12-19, 03:01 AM
آخر رد: حامد محمد
  كيف يمكن تغير لون خط حقل في جدول وفق شرط معين gonm64 6 3,051 11-09-19, 11:18 PM
آخر رد: gonm64

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


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