المشاركات : 666
المواضيع 305
الإنتساب : Sep 2013
السمعة :
9
الشكر: 2795
تم شكره 1058 مرات في 159 مشاركات
25-12-15, 06:26 PM
(آخر تعديل لهذه المشاركة : 25-12-15, 06:27 PM {2} بواسطة Microformt.)
الاخوه الكرام
السلام عليكم ورحمة وبركاته
كيف اجعل ارقام معينة في text تزيد عن اضغط على زر الامر ؟؟
نامل من الله المساعدة والله يحفظكم ويرعاكم
إذا ضاقت بك الأحوال يوماً فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
المشاركات : 666
المواضيع 305
الإنتساب : Sep 2013
السمعة :
9
الشكر: 2795
تم شكره 1058 مرات في 159 مشاركات
26-12-15, 12:13 AM
(آخر تعديل لهذه المشاركة : 26-12-15, 12:14 AM {2} بواسطة Microformt.)
(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
اخي العزيز
إجابة غير موفقه ؟؟
نامل الاجابة على السوال كامل وليس جز من السوال
إذا ضاقت بك الأحوال يوماً فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
المشاركات : 277
المواضيع 18
الإنتساب : Dec 2013
السمعة :
34
الشكر: 1057
تم شكره 2872 مرات في 215 مشاركات
قص النص الى ثلاث اجزاء باستخدام الداله Mid تقدر تقراها عنها اكثر ، خذ الرقم الوسط ضيف عليها واحد مثل طريقة الاخ حريف برمجه الذي بالاعلى ، ارجع ادمج النصوص المقتصه مع بعض.
اسم معرفي : محمد يحيى
المشاركات : 666
المواضيع 305
الإنتساب : Sep 2013
السمعة :
9
الشكر: 2795
تم شكره 1058 مرات في 159 مشاركات
(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$(zText1, 3)
MidNumber = Mid$(zText1, 4)
MidNumber = Left$(MidNumber, Len(MidNumber) - 6)
RightNumber = Right$(zText1, 6)
Text1.Text = LeftNumber & Val(MidNumber) + 1 & RightNumber
End Sub
اخي العزيز احمد
السلام عليكم ورحمة وبركاته
لك مني جزيل الشكر والتقدير على ما تقدمه من دعم فني والله يحفظكم ويرعاكم
إذا ضاقت بك الأحوال يوماً فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ