اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر

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

عند الضغط علي الزر لأول مرة يقوم بجمع تكست 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

قام بنشر

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

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...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information