تقييم الموضوع :
  • 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 

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] انشاء فورم لادخال ارقام الجلوس للطلاب محمد تريكه 9 136 11-07-18, 04:17 AM
آخر رد: elgokr
Question [vb6.0] هل يمكن نقل موشر الكتابة الى Label مثل زر الامر الذي في الصورة المرفقة؟؟ Microformt 1 85 07-06-18, 10:32 PM
آخر رد: Amir_Alzubidy
Question [vb6.0] كيف اجعل زر الامر غير مفعل في حال عدم جود طابعة على الحاسب ؟ Mysystem32 1 114 28-04-18, 02:18 AM
آخر رد: Amir_Alzubidy
Information [vb6.0] كيف ان اجعل الصورة الموجودة في خلفية الفورم تكون في منتصف الفورم في برنامج المرفق؟؟ Microformt 2 120 01-04-18, 02:48 PM
آخر رد: Microformt
Question [vb6.0] هل يمكن ان اجعل الصورة الموجودة في خلفية الفورم تتمدد في برنامج المرفق؟؟ Microformt 2 182 23-03-18, 06:26 AM
آخر رد: Microformt
Information [vb6.0] هل يوجد طريقة اجعل الاستعلام يعرض جميع البيانات باسرع وقت ممكن ؟؟ Microformt 3 245 26-11-17, 12:02 PM
آخر رد: الاصيله
Question [vb6.0] هل يمكن أن اجعل ملف ini قاعدة بيانات لبرنامجي ؟ Microformt 1 147 23-11-17, 12:17 AM
آخر رد: Ahmed_Mansoor
Question [vb6.0] كيف اجعل زر الامر ينتقل امام text عند انتقل موشر الكتابه الى text اخر ؟؟ Microformt 2 203 29-10-17, 07:33 AM
آخر رد: Microformt
Question [vb6.0] كيف اجعل خلفية Text شفافه ؟؟ Microformt 7 402 13-10-17, 05:40 AM
آخر رد: Mohamad Anan
Question [vb6.0] كيف اجعل في text التاريخ لا يقبل في اليوم اكثر من 30 يوماً وكيف اجعل التاريخ في الشهر Microformt 2 192 09-10-17, 09:17 PM
آخر رد: عبد العزيز البسكري

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


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