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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [vb6.0] هل يمكن من خلال البرامجة عمل قيمة افتراضية في Text ؟؟ Microformt 0 18 أمس, 02:46 PM
آخر رد: Microformt
  أريد عمل إستعلامات لإظهار نتائج بشروط معينة princeofislam 9 163 18-05-17, 05:00 PM
آخر رد: princeofislam
Question [vb6.0] ماهوا الكود الذي يجعل Text في منصتف الفوم مهما كان حجم الفورم ؟ Microformt 1 105 04-03-17, 11:36 AM
آخر رد: Amir_alzubidy
Heart [vb6.0] استفسار - كيف اجعل قاعدة البيانات على الانترنت sl_dl1 1 139 14-02-17, 01:06 AM
آخر رد: Ahmed_Mansoor
Question [vb6.0] كيف اجعل عند الضغط على مفتاح Ctrl+ Alt + F3 من الوحة المفتايح يتم إغلاق الفورم ؟؟ Microformt 12 565 21-01-17, 11:16 AM
آخر رد: Microformt
  أرجو المساعدة، أريد ماكرو لإدراج جدول بمواصفات معينة SYman 0 153 21-12-16, 12:14 PM
آخر رد: SYman
  [سؤال] كيف اجعل الأرقام في Text بهذا الشكل 123.456.99 ( قياسي ) إظهار الفواصل iisys 22 915 17-11-16, 11:54 PM
آخر رد: iisys
  [سؤال] اظهار بيانات Combo1 في Text iisys 3 430 07-11-16, 06:16 AM
آخر رد: AL_BRNS
Question [vb6.0] كيف اجعل برنامجي المرفق يخذ سمات الوندز ؟؟ Microformt 0 219 07-10-16, 05:12 PM
آخر رد: Microformt
  [vb6.0] كيف اجعل عند إدارج مسار الصورة في Text تظهر الصوره في برنامج المرفق ؟؟ Microformt 1 218 07-10-16, 12:37 PM
آخر رد: Amir_alzubidy

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


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