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

اخي العزيز  احمد
 السلام عليكم ورحمة وبركاته
 لك مني جزيل الشكر والتقدير على ما تقدمه من دعم فني والله يحفظكم ويرعاكم

الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيف اجعل الأرقام في Text بهذا الشكل 123.456.99 ( قياسي ) إظهار الفواصل iisys 22 417 17-11-16, 11:54 PM
آخر رد: iisys
  [سؤال] اظهار بيانات Combo1 في Text iisys 3 173 07-11-16, 06:16 AM
آخر رد: AL_BRNS
Question [vb6.0] كيف اجعل برنامجي المرفق يخذ سمات الوندز ؟؟ Microformt 0 73 07-10-16, 05:12 PM
آخر رد: Microformt
  [vb6.0] كيف اجعل عند إدارج مسار الصورة في Text تظهر الصوره في برنامج المرفق ؟؟ Microformt 1 90 07-10-16, 12:37 PM
آخر رد: Amir_alzubidy
  [vb6.0] نقل من Combo الي TEXT iisys 10 232 26-09-16, 07:56 AM
آخر رد: iisys
  عندما اضغط على Try it يعرض لي التاريخ الموجود في الفورم اريد ان يعرض التاريخ في text abazrmhamed 3 130 19-09-16, 12:30 AM
آخر رد: Amir_alzubidy
Question [vb6.0] كيف اربط Combo.text بحقل الدول الموجود بقاعدة البيانات في برنامجي المرفق ؟؟ Microformt 3 147 09-09-16, 04:24 PM
آخر رد: Amir_alzubidy
  [سؤال] كود لربط combo box مع text box abazrmhamed 4 206 24-08-16, 01:08 PM
آخر رد: LoveVb
  تقرير اكتيف ريبورت : كيفية عرض Textbox في التقرير تكون Datafield له text في الفورم haiderkh 3 171 21-07-16, 11:22 PM
آخر رد: Amir_alzubidy
  مساعدة text مربوطة بقاعدة بيانات mohfar 2 141 14-07-16, 09:46 PM
آخر رد: Amir_alzubidy

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


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