اذهب الي المحتوي
أوفيسنا

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


Akram Galal

الردود الموصى بها

السلام عليكم ورحة الله وبركاتة
تحية طيبة لكل أعضاء المنتدى
اريد كود يقوم بعمل الأتي:

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

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

مهمتين.rar

رابط هذا التعليق
شارك

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

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

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

 

مهمتين 2.rar

  • Like 3
رابط هذا التعليق
شارك

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

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

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

  • Like 3
رابط هذا التعليق
شارك

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

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

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

55f9a8d9aa4d7__.thumb.jpg.52c6bc15d28a88

رابط هذا التعليق
شارك

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

  • Like 2
رابط هذا التعليق
شارك

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

 

  • Like 1
رابط هذا التعليق
شارك

  • 4 months later...

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information