مهمتين لنفس الزر

[Akram Galal]

السلام عليكم ورحة الله وبركاتة
تحية طيبة لكل أعضاء المنتدى
اريد كود يقوم بعمل الأتي:
عند الضغط علي الزر لأول مرة يقوم بجمع تكست 1 + تكست 2

وعند الضغط علي الزر بعد أول مرة يقوم بضرب تكست 1 × تكست 2
جزاكم الله خيراً .

مهمتين.rar

[عبد العزيز البسكري]

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

جرّب أخي الغالي أكرم جلال هذا المرفق ربما يكون ما طلبته ..

                      خالص احتراماتي

 

مهمتين 2.rar

[ياسر خليل أبو البراء]

اخي الحبيب عبد العزيز ممكن إضافة بسيطة لكي لا يتوقف الماوس

Private Sub CommandButton1_Click()
    If TextBox4 = "" Or TextBox4 = Val(TextBox2) * Val(TextBox3) Then
        TextBox4 = Val(TextBox2) + Val(TextBox3)
    Else
        TextBox4 = Val(TextBox2) * Val(TextBox3)
    End If
End Sub

يعني افضل اعمل كليك مرة يجمع ومرة يضرب ..

[عبد العزيز البسكري]

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

بارك الله فيك أستاذنا الغالي ياسر خليل أبو البراء على الاضافة المميّزة .. وهي الأفضل ..  جزاك الله خيرًا و زادها بميزان حسناتك

                                               خالص احتراماتي

[ياسر خليل أبو البراء]

جزيت خيراً أخي الحبيب عبد العزيز

الفضل لله ثم لك في الإبداع الأول ..ما أضفت إلا القليل جداً

البركة فيك يا أبو فتح

[Akram Galal]

أ/ عبد العزيز

أ/ ياسر خليل

جزاكم الله كل الخير

فكرة ممتازة

[مختار حسين محمود]

وهذه اضافة أيضا قد تفيد بأن اسم  الزر فى اليوز فورم  يتغير مع تغير العملية الحسابية

Private Sub CommandButton1_Click()

If Me.CommandButton1.Caption = "جمع " Then
        Me.CommandButton1.Caption = "ضرب "
        Me.CommandButton1.BackColor = RGB(0, 255, 0)
        TextBox4 = Val(TextBox2) + Val(TextBox3)
    Else
         Me.CommandButton1.Caption = "جمع "
         
         Me.CommandButton1.BackColor = RGB(255, 0, 0)
         TextBox4 = Val(TextBox2) * Val(TextBox3)
    End If
    
End Sub

 

مهمتين لزر واحد .rar

[عبد العزيز البسكري]

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

أهلا و سهلا بالأستاذ الغالي .. الأفضل من كل هذه الأكواد وهذا الملف المميّز هي .. عودتك الميمونة .. بإذن الله تعالى

الحمد لله و أخيرًا ظهر الأخ و الأستاذ العزيز و الله على قلوبنا " مختار حسين محمود " بعد غياب أراه طويلاً

                                                      خالص احتراماتي

[مختار حسين محمود]

أشكرك أخى العزيز الى قلبى   زيزو البسكرى   أشكرك على  كلامك الطيب  بحقى

ان طال الغياب  فالشوق غلاب الى منتدى الاحباب   نعمل ايه فى الدنيا ومشاغلها !!!!

 

[أبو أنس80]

مشا الله لمنتدى حلو 

والله انا اعجبت كثير 

باعمالكم رائعة و مدهشة

بارك الله فيكم جميعم