تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] كيف اجعل ارقام معينة في text تزيد عن اضغط على زر الامر ؟؟
#1
Question 
الاخوه الكرام
السلام عليكم ورحمة وبركاته
كيف اجعل ارقام معينة في text تزيد عن اضغط على زر الامر ؟؟



نامل من الله المساعدة والله يحفظكم ويرعاكم
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد
تم الشكر بواسطة: Mysystem32
#2
وعليكم السلام ورحمة الله وبركاته

ضع تكست بوكس في الفورم ولنفرض اسمه Text1

وضع هذا الكود علماً بان مقدار الزيادة 1


كود :
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text1.Text = Val(Text1.Text) + 1
End If
End Sub
الرد
تم الشكر بواسطة: Ahmed_Mansoor
#3
(25-12-15, 09:41 PM)حريف برمجة كتب : وعليكم السلام ورحمة الله وبركاته

ضع تكست بوكس في الفورم ولنفرض اسمه Text1

وضع هذا الكود علماً بان مقدار الزيادة 1


كود :
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text1.Text = Val(Text1.Text) + 1
End If
End Sub
اخي العزيز
 إجابة غير موفقه ؟؟ Huh Huh Huh Huh
نامل الاجابة على السوال كامل وليس جز من السوال
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد
تم الشكر بواسطة:
#4
قص النص الى ثلاث اجزاء باستخدام الداله Mid تقدر تقراها عنها اكثر ، خذ الرقم الوسط ضيف عليها واحد مثل طريقة الاخ حريف برمجه الذي بالاعلى ، ارجع ادمج النصوص المقتصه مع بعض.
اسم معرفي : محمد يحيى
الرد
تم الشكر بواسطة: Ahmed_Mansoor , Ahmed_Mansoor
#5
أهلا أخي الكريم سالم , كما ذكر الأخ الكريم محمد يحيى , هذا الكود الكود ترجمة لكلامه جزاه الله خير , وإذا كان الكود ليس ماتريده يرجى التوضيح :

PHP كود :
Private Sub Command1_Click()

If 
Len(Trim$(Text1.Text)) < 10 Then Exit Sub

Dim zText1 
As String
Dim LeftNumber 
As String
Dim MidNumber 
As String
Dim RightNumber 
As String

zText1 
Trim$(Text1.Text)

LeftNumber Left$(zText13)

MidNumber Mid$(zText14)
MidNumber Left$(MidNumberLen(MidNumber) - 6)

RightNumber Right$(zText16)

Text1.Text LeftNumber Val(MidNumber) + RightNumber

End Sub 
الرد
تم الشكر بواسطة: Microformt , amer2000
#6
(26-12-15, 07:42 AM)Ahmed_Mansoor كتب : أهلا أخي الكريم سالم , كما ذكر الأخ الكريم محمد يحيى , هذا الكود الكود ترجمة لكلامه جزاه الله خير , وإذا كان الكود ليس ماتريده يرجى التوضيح :

PHP كود :
Private Sub Command1_Click()

If 
Len(Trim$(Text1.Text)) < 10 Then Exit Sub

Dim zText1 
As String
Dim LeftNumber 
As String
Dim MidNumber 
As String
Dim RightNumber 
As String

zText1 
Trim$(Text1.Text)

LeftNumber Left$(zText13)

MidNumber Mid$(zText14)
MidNumber Left$(MidNumberLen(MidNumber) - 6)

RightNumber Right$(zText16)

Text1.Text LeftNumber Val(MidNumber) + RightNumber

End Sub 

اخي العزيز  احمد
 السلام عليكم ورحمة وبركاته
 لك مني جزيل الشكر والتقدير على ما تقدمه من دعم فني والله يحفظكم ويرعاكم
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [vb6.0] هل يمكن توزيع التاريخ بحث يكون السنة في Text والشهر في Text اخر واليوم في text ؟؟ Microformt 1 39 03-10-18, 07:29 PM
آخر رد: جاسم عبد
  [vb6.0] كيف اجعل المستخدم يكتب في Text انجليزي فقط ؟؟ Microformt 2 95 21-09-18, 05:12 PM
آخر رد: Microformt
Question [vb6.0] كيف اجعل عند النقر على ComboBox تظهر للمستخدم رسالة ؟؟ Microformt 3 103 09-09-18, 11:21 PM
آخر رد: ahmed.m
  تعديل على انشاء فورم لادخال ارقام الجلوس للطلاب باختيار الصف والفصل محمد تريكه 5 231 30-07-18, 07:39 AM
آخر رد: elgokr
  [vb6.0] انشاء فورم لادخال ارقام الجلوس للطلاب محمد تريكه 10 357 27-07-18, 06:41 PM
آخر رد: محمد تريكه
Question [vb6.0] هل يمكن نقل موشر الكتابة الى Label مثل زر الامر الذي في الصورة المرفقة؟؟ Microformt 1 144 07-06-18, 10:32 PM
آخر رد: Amir_alzubidy
Question [vb6.0] كيف اجعل زر الامر غير مفعل في حال عدم جود طابعة على الحاسب ؟ Mysystem32 1 167 28-04-18, 02:18 AM
آخر رد: Amir_alzubidy
Information [vb6.0] كيف ان اجعل الصورة الموجودة في خلفية الفورم تكون في منتصف الفورم في برنامج المرفق؟؟ Microformt 2 187 01-04-18, 02:48 PM
آخر رد: Microformt
Question [vb6.0] هل يمكن ان اجعل الصورة الموجودة في خلفية الفورم تتمدد في برنامج المرفق؟؟ Microformt 2 268 23-03-18, 06:26 AM
آخر رد: Microformt
Information [vb6.0] هل يوجد طريقة اجعل الاستعلام يعرض جميع البيانات باسرع وقت ممكن ؟؟ Microformt 3 337 26-11-17, 12:02 PM
آخر رد: الاصيله

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


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