الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

اضهار لادوات على الفورم

بدأه & الأمل & في 14 يناير 2012 · 18 رد · 842 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

اخوتي الكرام

السلام عليكم

عندى على الفورم (200) تكست بوكس الكل مخفي

المطلوب

كيف يمكن اضهار التكست حسب العدد الذى اريد وتكون متسلسسلة

مثال

عدي زر وتكست بوكس اكتب في التكست مثلا (12) فيتم اضهار (12) تكست متسلسلة تكست بوكس 1/تكست بوكس 2/وتكست بوكس 3/4وتكست بوكس 4/ الخ

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

#2

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

اختي جربي الكود التالي

  Panel1.Controls.OfType(Of TextBox).Reverse().Take(Convert.ToInt32(txtNo.Text)).ToList().ForEach(Sub(t)
                                                                                                        	t.Visible = True
                                                                                                    	End Sub)

على افتراض ان جميع مربعات النص موجوده داخل Panel1 عدا txtNo الذي سيتم استخدامه لإدخال الرقم

1

.:: Wish to become better and better ::.

#3

خى الكريم يوجد خطا في الكود وهذا رابط الملف

http://arabsh.com/files/083f434b/اضها ر التكست.rar.html

ارجوا التوضيح سبب الخطاء

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

#4

ممكن توضحي سبب هذا العدد الكبير من الكنترول

ممكن يحدث مشكله للكثرة الكنترول -الويندو يمكن ان يتوقف

ما الفكره من وراء هذا

#5

اخى الكريم

ممكن يحدث مشكله للكثرة الكنترول -الويندو يمكن ان يتوقف (قصدك كنترول بنل)

هل هناك طريقة دون اظافة بانل

#6

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

اختي الكود سليم ولكن ممكن تقولي لي ايش من اصدار للدوت نت شغاله عليه؟ لأني عملته بالدوت نت 4

1 −1

.:: Wish to become better and better ::.

#7

اخي الكريم في الحقيقة لاعرق كيف اعرف اصدار للدوت نت اذا كان قصدك الفريم دوت نت

اللي اعمل عليه فيجول بيسك 2008

والصورة تبين الفريم نت الموجود في الجهاز

http://store1.up-00.com/Jan12/i6N19398.png

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

#8

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

اختي ممكن تطبقي كودي السابق وترفقي لي رسالة الخطأ؟ لأن رابطك السابق غير شغال!!

1 −1

.:: Wish to become better and better ::.

#9

Reverse().Take(Convert.ToInt32(txtNo.Text)).ToList().ForEach(Sub(t)

t.Visible = True

End Sub)

اخى الكريم عندما احاول تشقيل البرنامج يضع لى خط تحت كلمةSub

وحرف t

في جملة t.Visible = True

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

#10

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

اختي فضلا ارفقي كودك, اعتقد ان المشكلة عندك في الاصدار

.:: Wish to become better and better ::.

#11

وعليكم السلام

جربي الكود التالي :

 Dim controlscount As Integer = 0
        For Each ctrl2 As Control In Me.Controls
            If TypeOf ctrl2 Is TextBox Then
                ctrl2.Visible = False
            End If
        Next

        For Each ctrl As Control In Me.Controls
            If TypeOf ctrl Is TextBox Then
                controlscount = controlscount + 1

                ctrl.Visible = True
                If controlscount > InTxt.Text Then Exit Sub
            End If
        Next
        InTxt.Visible = True

حيث أن inTxt هو اسم التكست بوكس الذي سيتم فيه إدخال العدد ، وجميع الـ textbox على الفورم مباشرة ..

أما إذا كانت داخل panel فاستبدلي Me.Controls بـ Me.Panel1.Controls و استبدلي علامة (>) بعلامة (=)

=========

ولكن ما الغرض من استخدام هذا العدد الهائل من مربعات النصوص ؟؟

تم تعديل هذه المشاركة بواسطة عاشق للبرمجة في 16 يناير 2012 في 09:55

1

... إذا كنت تعتقد أن مشاركتي مفيده ، الرجاء قم بتقييمي ...

%2525D8%2525A8%2525D8%2525B5%2525D9%252585%2525D8%2525A9%252B%2525D8%2525B9%2525D9%252584%2525D9%252585%252B%2525D9%252588%2525D8%2525B5%2525D8%2525B1%2525D8%2525AE%2525D8%2525A9%252B%2525D8%2525A7%25

#12

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

نوجد ايضا مشكلة في الكود

Dim controlscount As Integer = 0

For Each ctrl2 As Control In Me.Controls

If TypeOf ctrl2 Is TextBox Then

ctrl2.Visible = False

End If

Next

For Each ctrl As Control In Me.Controls

If TypeOf ctrl Is TextBox Then

controlscount = controlscount + 1

ctrl.Visible = True

If controlscount > InTxt.Text Then Exit Sub

End If

Next

InTxt.Visible = True

حيث ينم ادخال مثلا رقم (1) ويتم اظهار عدد2 تكست

هذا رابط للملف

http://www.up-00.com/dld9Td77166.rar.html

هناك سوال اخر

كيف اجعل الكود في (هدر)راس الاعمدة للداتا قرايد يكون في الوسط

ايضا في الداتا قرايد كيف اجعل الخلية تتمدد بالطول وليس بالعرض لتاخذ كامل النص .

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

تم تعديل هذه المشاركة بواسطة & الأمل & في 23 يناير 2012 في 03:31

#13

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

نوجد ايضا مشكلة في الكود

Dim controlscount As Integer = 0

For Each ctrl2 As Control In Me.Controls

If TypeOf ctrl2 Is TextBox Then

ctrl2.Visible = False

End If

Next

For Each ctrl As Control In Me.Controls

If TypeOf ctrl Is TextBox Then

controlscount = controlscount + 1

ctrl.Visible = True

If controlscount > InTxt.Text Then Exit Sub

End If

Next

InTxt.Visible = True

حيث ينم ادخال مثلا رقم (1) ويتم اظهار عدد2 تكست

هذا رابط للملف

http://www.up-00.com...d77166.rar.html

هناك سوال اخر

كيف اجعل الكود في (هدر)راس الاعمدة للداتا قرايد يكون في الوسط

ايضا في الداتا قرايد كيف اجعل الخلية تتمدد بالطول وليس بالعرض لتاخذ كامل النص .

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

اخوتي الكرام هل من حل

#14

سيصبح الكود هكذا

        Dim controlscount As Integer = 1
        For Each ctrl2 As Control In Me.Controls
            If TypeOf ctrl2 Is TextBox Then
                ctrl2.Visible = False
            End If
        Next

        For Each ctrl As Control In Me.Controls
            If TypeOf ctrl Is TextBox Then
                controlscount = controlscount + 1

                ctrl.Visible = True
                If controlscount > TextBox8.Text Then Exit Sub
            End If
        Next
        TextBox8.Visible = True

والمثال مرفق بعد التعديل أيضاً

1.rar

1

رجعت ومازال الفريق خاملاَ  :( 


 


abPuw.1.gif

#15

المعذرة على الخطأ ، كتبت الكود على عجالة .. والشكر موصول للأخ bahbah على تصحيح الكود ...

& الأمل & كتب:

هناك سوال اخر

كيف اجعل الكود في (هدر)راس الاعمدة للداتا قرايد يكون في الوسط

ايضا في الداتا قرايد كيف اجعل الخلية تتمدد بالطول وليس بالعرض لتاخذ كامل النص .

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

بالنسبة للسؤال الأول استخدمي الكود التالي :

dgv.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

حيث dgv هو اسم الـ Datagridview

بالنسبة للسؤال الثاني فهو غير واضح ... مالمقصود بتأخذ كامل النص ، النص يكتب بالعرض وليس بالطول ، والتمدد يكون بالعرض ...

بالتوفيق إن شاء الله

1

... إذا كنت تعتقد أن مشاركتي مفيده ، الرجاء قم بتقييمي ...

%2525D8%2525A8%2525D8%2525B5%2525D9%252585%2525D8%2525A9%252B%2525D8%2525B9%2525D9%252584%2525D9%252585%252B%2525D9%252588%2525D8%2525B5%2525D8%2525B1%2525D8%2525AE%2525D8%2525A9%252B%2525D8%2525A7%25

#16

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

أخي الكريم

عاشق للبرمجة

DataGridView1.Rows(0).Height = 100

الكود السابق يبين عرض الصف لكن ا لنص يكون اطول من الخلية

ماريده عندما اكتب في الخلية ينتقل النص الى السطرالثاني في نفس الخلية

مثل (ميولتى لاين في التكست)

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

#17
& الأمل & كتب:

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

أخي الكريم

عاشق للبرمجة

DataGridView1.Rows(0).Height = 100

الكود السابق يبين عرض الصف لكن ا لنص يكون اطول من الخلية

ماريده عندما اكتب في الخلية ينتقل النص الى السطرالثاني في نفس الخلية

مثل (ميولتى لاين في التكست)

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

وجزاك بالمثل ..

وصلت الفكره .. بالنسبة لتمدد الخلية بالطول والـ MultiLine استخدمي الكود التالي في الحدث المناسب ، جربيه في حدث CellEndEdit بحيث بعد الانتهاء من الكتابة يحدث التمدد ...

dgv.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.DisplayedCellsExceptHeaders

بالتوفيق

تم تعديل هذه المشاركة بواسطة عاشق للبرمجة في 4 فبراير 2012 في 03:39

... إذا كنت تعتقد أن مشاركتي مفيده ، الرجاء قم بتقييمي ...

%2525D8%2525A8%2525D8%2525B5%2525D9%252585%2525D8%2525A9%252B%2525D8%2525B9%2525D9%252584%2525D9%252585%252B%2525D9%252588%2525D8%2525B5%2525D8%2525B1%2525D8%2525AE%2525D8%2525A9%252B%2525D8%2525A7%25

#18

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

كتبت الكود السابق في حدث CellEndEdit للداتا قرايد

لكن لم ينتقل النص الى السطرالثاني في نفس الخلية وبقيت الكتابة مختفية

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

هل من حل اخر

#19

تأكدي أن يكون النص الذي تكتبينه يحتوي على مسافات ... بمعنى لا تقومي بكتابة نص عشوائي متصل هكذا ( ksfgfskjgfsjgsfjgs;gjjsgjsjgjsj;gjs;jg ) بل يجب أن يكون هكذا ( ksfgfskj gfsjgs fjgs;gjj sgjsjg jsj;g js;jg ) ...

... إذا كنت تعتقد أن مشاركتي مفيده ، الرجاء قم بتقييمي ...

%2525D8%2525A8%2525D8%2525B5%2525D9%252585%2525D8%2525A9%252B%2525D8%2525B9%2525D9%252584%2525D9%252585%252B%2525D9%252588%2525D8%2525B5%2525D8%2525B1%2525D8%2525AE%2525D8%2525A9%252B%2525D8%2525A7%25

مواضيع مشابهة