كيف اقوم بهذه العملية ؟

السلام عليكم

       Me.Label1.Text = CInt(Me.TextBox1.Text) * CInt(Me.TextBox2.Text)

مسح txt

     Dim i As Control
        For Each i In Me.Controls
            If TypeOf i Is TextBox Then
                i.Text = ""
            End If
        Next

بلنسبة للكتابة عربى ادخل Control Panel ثم Regional and Language Options

شكر ليك waleedhm

شكر على كود عملية الضرب

بالنسبة لمسح TXt اشتغل معايا ميه ميه بس انا نسيت شى

انى عاوز يمسح كمان القيم الظاهرة فى Lable ماذا اضيف فى الكود؟

Dim i As Control
       For Each i In Me.Controls
           If TypeOf i Is TextBox Then
               i.Text = ""
           End If
       Next

=========

اقتباس

بلنسبة للكتابة عربى ادخل Control Panel ثم Regional and Language Options

بس انا مش عاوز جهازى يكتب ارقام كلها بالعربى انا عاوز البرنامج فقط بحيث لو شغلت البرنامج على اى جهاز مش مظبط فيه حكاية Regional and Language برضوا يكتب عربى

وشكر

السلام عليكم

ضع هذا الكود فقط

 'تحذير إذا كانت لديك عناوين لأغراض عرض اسماء الخانات
                'Text Boxes فإنهذه الكود سيقوم بمسحها ما لم تضع له شرط
                If TypeOf ctrl Is Label Then
                    ctrl.Text = ""
                End If

لو كنت تريد تحديد مثلاً ثلاثة فقط من الـ Labels إنشئ مصفوفة Array وضعهم داخلها بهذا الشكل

 Dim ctrl As Control
        Dim arrLabel() As Control = {Me.Label1, Me.Label2, Me.Label3}
        For Each ctrl In arrLabel
            Try
                ctrl.Text = ""
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
        Next

تلاحظ أنك أستغنيت عن الشرط if statement كونك حددت الـ labels التي تود إفراغها من محتوياتها النصية .

ولان الشرط في هذه الحالة تحصيل حاصل ... B)

السلام عليكم

السلام عليكم

ممكن الكود التالى

    Dim i As Control
        For Each i In Me.Controls
            If TypeOf i Is TextBox Or TypeOf i Is Label Then
                i.Text = ""
            End If
        Next

بس الكود دة هيمسح اى كلام مكتوب على اى Label

اما لو انتا عاوز تحدد Label معين اكتب

    Me.Label1.Text = ""

السلام عليكم

فى حل تانى

اعمل Module

 Module Module1
    Public Function ClearControl(ByVal Forms As System.Windows.Forms.ContainerControl, ByVal mylb As Label)
        For Each txt As Control In Forms.Controls
            If TypeOf txt Is TextBox Then
                txt.Text = ""
            End If
        Next
        mylb.Text = ""
    End Function
End Module

وبعد كدة من الشاشة بتاعة العملية الحسابية

        ClearControl(Me, Me.Label1)

اخى الغملاسي لقد وضعت الكود فى الزرار تنظيف ولكن لم يتعرف على ctrl :(

'تحذير إذا كانت لديك عناوين لأغراض عرض اسماء الخانات
               'Text Boxes فإنهذه الكود سيقوم بمسحها ما لم تضع له شرط
               If TypeOf ctrl Is Label Then
                   ctrl.Text = ""
               End If

------------

اقتباس

لو كنت تريد تحديد مثلاً ثلاثة فقط من الـ Labels إنشئ مصفوفة Array وضعهم داخلها بهذا الشكل

Dim ctrl As Control
       Dim arrLabel() As Control = {Me.Label1, Me.Label2, Me.Label3}
       For Each ctrl In arrLabel
           Try
               ctrl.Text = ""
           Catch ex As Exception
               MessageBox.Show(ex.Message)
           End Try
       Next

لا يا اخى شكر انا اريد مسح Label1 واحد فقط

==========

اخى waleedhm االكود ده منفعش معايا

Dim i As Control
       For Each i In Me.Controls
           If TypeOf i Is TextBox Or TypeOf i Is Label Then
               i.Text = ""
           End If
       Next

اقتباس

السلام عليكم

فى حل تانى

اعمل Module

ما هو Module ؟

انا مبتدى وابحث عن اسهل طريقة

وشكر لكل من حاول مساعدتى

السلام عليكم

جرب المثال التالى

WindowsApplication1.zip

اخى waleedhm شكر لاهتمامك انا شفت المثال رائع وانا فعلا عملت الموضوع ده الزرار يمسح الكلام اللى فى TextBox لكن انا عاوز كمان امسح الناتج اللى ظاهر فى Lebal فى نفس الزرار

وشكر

UP

أنا مش عارف ليه كل اللفة ديه بصراحة :o أنت لو حبيت تعمل Clear تقدر تستخدم الكود دده مباشرةً

Me.Label1.Text=""

وينتهى على كده الموضوع من غير ماتحتاج لأنك تعرف متغير من الكنترول :)

والله مش عارف اقولك ايه يا Nsync انت بجد عبقرى انا عارف انها شى بسيط بس بجد كود صغير وعمل المفيد شكر لك

وشكر لكل من حاول يساعدنى طبعا الاستاذ الغملاسي وwaleedhm

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

السلام عليكم

يا اخى الحبيب تخيل لو عندك فى كل شاشة مثال يعنى 100 Text

هل هتكتب الكود Me.Label1.Text="" 100 مرة (h)

waleedhm كتب:

السلام عليكم

يا اخى الحبيب تخيل لو عندك فى كل شاشة مثال يعنى 100 Text

هل هتكتب الكود Me.Label1.Text="" 100 مرة  (h)

←

خلى بالك أنه بيتكلم عن مشروع بسيط مافيهوش كل التكست ديه فعشان كده الكود اللى قولتله عليه هو انسب كود بالنسباله أنما الكود بتاعك محتاج يكون مشروع كبير محتاج ادخال بيانات فيه :)

eslam31 كتب:

والله مش عارف اقولك ايه يا Nsync انت بجد عبقرى انا عارف انها شى بسيط بس بجد كود صغير وعمل المفيد شكر لك

وشكر لكل من حاول يساعدنى طبعا الاستاذ الغملاسي وwaleedhm

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

←

لو كنت بتستخدم Text بدلا من Label وحبيت تعمله Clear تقدر تستخدم أى كود من الأتنين دول

Me.TextBox1.Text=""

أو الكود التالى

Me.TextBox1.Clear

السلام عليكم

مشروع بسيط او كبير

الافضل انى اكتب الكود التالى

  ClearControl(Me( [code]

واستخدمة فى اى شاشة ام اكتب Text1.Text="" وعلى عدد Text اكتب نفس الجملة

طالما عدد الـ Text بسيط مابين واحد لتلاته فانا مش محتاج انى اكتب كل الكود ده هو كفايا كود الـ clear ده وخلاص اللى قولته

اخى واستاذى waleedhm بارك الله فيك على مساعدتك ليا انت افدتنى كتيررر جداااا كاية انك بتجاوبنى على كل اسئالتى وده بيبين طيب اصلك

واشكر الاخ Nsync على مساعدته ليا

وانا طبعا مش عارف انتم مختلفين ليه :D الصراحه انا مش فاهم فى الكود كويس عشان كده مش عاوز اتدخل

بس حصل خير وبارك الله فيكم انتم الاتنين :)

الأختلاف فى الرأى لايفسد للود قضية :rolleyes:

ده بس نقاش حول الأفضل مش خلاف ولا حاجة لأن بصفة عامه لازم تعرف ان من أساسيات بيئة الدوت نت أنك تقدر توصل للى أنت عايزه بأكتر من طريقة لكن دايما الواحد بيدور على الأفضل يعنى ممكن يكون فيه برنامج مطلوب من بعض الأعضاء - عضو مثلا يعمل الكود بتاعه فى 7 صفحات وعضو تانى فى 5 وعضو فى صفحتين اتنين بس وعضو يعمله فى نص صفحة -- فى الاول والأخر كلهم صح لانهم بيطلعوا نفس النتيجة لكن الأفضلية لمين؟ طبعا للى وصل للمطلوب فى أقل كود لأن ده اللى فاهم اللغة صح وبيمارسها كتير طبعا كلامى ده على أساس ان كل الأعضاء عملوا نفس المشروع بنفس النتيجه من غير زيادات :rolleyes: