منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

الاخوه الكرام
السلام عليكم ورحمة وبركاته
كيف اجعل ارقام معينة في text تزيد عن اضغط على زر الامر ؟؟



نامل من الله المساعدة والله يحفظكم ويرعاكم

وعليكم السلام ورحمة الله وبركاته

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

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

(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

اخي العزيز
 إجابة غير موفقه ؟؟
نامل الاجابة على السوال كامل وليس جز من السوال

قص النص الى ثلاث اجزاء باستخدام الداله Mid تقدر تقراها عنها اكثر ، خذ الرقم الوسط ضيف عليها واحد مثل طريقة الاخ حريف برمجه الذي بالاعلى ، ارجع ادمج النصوص المقتصه مع بعض.

أهلا أخي الكريم سالم , كما ذكر الأخ الكريم محمد يحيى , هذا الكود الكود ترجمة لكلامه جزاه الله خير , وإذا كان الكود ليس ماتريده يرجى التوضيح :

(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 


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