+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [سؤال] كود يسمحلي اختار ضمن range معين من الارقام (/showthread.php?tid=12374)
كود يسمحلي اختار ضمن range معين من الارقام - mera - 27-05-15
يعطيكم العافيه
> بدي كود بانه يكون اختيار الارقام بين 1 الى 100 فقط اي رقم خارج هاد ال range يترك النتيجه متل ما كانت أول ..
> شغله تانيه : اذا عندي 2form ، ال form الاول هو ال main الرئيسي وال form التاني هو فرعي ،
بدي كود انه بس اسكر ال form الرئيسي ، تسسكر معه كل ال forms الفرعيه ..
شكرااا
RE: كود يسمحلي اختار ضمن range معين من الارقام - Amir_Alzubidy - 27-05-15
السلام عليكم
[attachment=7149]
RE: كود يسمحلي اختار ضمن range معين من الارقام - mera - 27-05-15
يسلمـــــــــــــــــــــــــــــــو كتــــــــــــــــــــــــــــير ، فعلأ رائع ومميز
بالنسبه ل range اذا فرضنا انه عندي واحد text1.text وبدي يكون range ادخال الارقام من 1 الى 100 كيف ممكن اسويها ؟
RE: كود يسمحلي اختار ضمن range معين من الارقام - Amir_Alzubidy - 28-05-15
السلام عليكم
في المرفقات
[attachment=7150]
RE: كود يسمحلي اختار ضمن range معين من الارقام - Fantastico - 28-05-15
السلام عليكم
تقدر تكتب في الحدث :Textbox1_TextChanged (يعني بعد النقر مرتين على صندوق النص أكتب التالي)
If TextBox1.Text > 100 Then
TextBox1.Text = TextBox1.Text.Remove(TextBox1.Text.Length - 1, 1)
TextBox1.Select(TextBox1.Text.Length, 0)
TextBox1.Text = TextBox1.Text.Remove(TextBox1.Text.Length - 1, 1)
TextBox1.Select(TextBox1.Text.Length, 0)
End If
السطر الاول يقول اذا كان العدد اكبر من مئةالسطر الثاني يقول امسح الحرف الاخير الذي تمت كتابته توّا
السطر الثالث يجعل القلم في نهاية النص
وبالنسبة لاغلاق الفورم الاول عند اغلاق الثاني
فيمكنك كتابة الكود التالي في الحدث :Form2_FormClosed
Form1.close
وشكرا
RE: كود يسمحلي اختار ضمن range معين من الارقام - sami2015 - 28-05-15
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
RE: كود يسمحلي اختار ضمن range معين من الارقام - mera - 29-05-15
شككككرا لكم جميعا ـ أبدعتوا