اخوتي الكرام
السلام عليكم
عندى على الفورم (200) تكست بوكس الكل مخفي
المطلوب
كيف يمكن اضهار التكست حسب العدد الذى اريد وتكون متسلسسلة
مثال
عدي زر وتكست بوكس اكتب في التكست مثلا (12) فيتم اضهار (12) تكست متسلسلة تكست بوكس 1/تكست بوكس 2/وتكست بوكس 3/4وتكست بوكس 4/ الخ
جزاكم الله خيرا
السلام عليكم ورحمه الله وبركاته
اختي جربي الكود التالي
Panel1.Controls.OfType(Of TextBox).Reverse().Take(Convert.ToInt32(txtNo.Text)).ToList().ForEach(Sub(t)
t.Visible = True
End Sub)على افتراض ان جميع مربعات النص موجوده داخل Panel1 عدا txtNo الذي سيتم استخدامه لإدخال الرقم
.:: Wish to become better and better ::.
خى الكريم يوجد خطا في الكود وهذا رابط الملف
http://arabsh.com/files/083f434b/اضها ر التكست.rar.html
ارجوا التوضيح سبب الخطاء
جزاك الله خيرا
ممكن توضحي سبب هذا العدد الكبير من الكنترول
ممكن يحدث مشكله للكثرة الكنترول -الويندو يمكن ان يتوقف
ما الفكره من وراء هذا
سبحانه الله وبحمده سبحانه الله العظيم
if (You Love ArabTeam2000 ) MessageBox.Show("All ArabTeam2000 Love You"); else MessageBox.Show("go to your mama"); اخى الكريم
ممكن يحدث مشكله للكثرة الكنترول -الويندو يمكن ان يتوقف (قصدك كنترول بنل)
هل هناك طريقة دون اظافة بانل
السلام عليكم ورحمه الله وبركاته
اختي الكود سليم ولكن ممكن تقولي لي ايش من اصدار للدوت نت شغاله عليه؟ لأني عملته بالدوت نت 4
.:: Wish to become better and better ::.
اخي الكريم في الحقيقة لاعرق كيف اعرف اصدار للدوت نت اذا كان قصدك الفريم دوت نت
اللي اعمل عليه فيجول بيسك 2008
والصورة تبين الفريم نت الموجود في الجهاز
http://store1.up-00.com/Jan12/i6N19398.png
جزاك الله خيرا
السلام عليكم ورحمه الله وبركاته
اختي ممكن تطبقي كودي السابق وترفقي لي رسالة الخطأ؟ لأن رابطك السابق غير شغال!!
.:: Wish to become better and better ::.
Reverse().Take(Convert.ToInt32(txtNo.Text)).ToList().ForEach(Sub(t)
t.Visible = True
End Sub)
اخى الكريم عندما احاول تشقيل البرنامج يضع لى خط تحت كلمةSub
وحرف t
في جملة t.Visible = True
جزاك الله خيرا
السلام عليكم ورحمه الله وبركاته
اختي فضلا ارفقي كودك, اعتقد ان المشكلة عندك في الاصدار
.:: Wish to become better and better ::.
وعليكم السلام
جربي الكود التالي :
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
... إذا كنت تعتقد أن مشاركتي مفيده ، الرجاء قم بتقييمي ...
أخي الكريم جزاك الله خيرا
نوجد ايضا مشكلة في الكود
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
أخي الكريم جزاك الله خيرا
نوجد ايضا مشكلة في الكود
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
هناك سوال اخر
كيف اجعل الكود في (هدر)راس الاعمدة للداتا قرايد يكون في الوسط
ايضا في الداتا قرايد كيف اجعل الخلية تتمدد بالطول وليس بالعرض لتاخذ كامل النص .
جزاكم الله خيرا
اخوتي الكرام هل من حل
سيصبح الكود هكذا
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والمثال مرفق بعد التعديل أيضاً
رجعت ومازال الفريق خاملاَ :(
المعذرة على الخطأ ، كتبت الكود على عجالة .. والشكر موصول للأخ bahbah على تصحيح الكود ...
& الأمل & كتب:هناك سوال اخر
كيف اجعل الكود في (هدر)راس الاعمدة للداتا قرايد يكون في الوسط
ايضا في الداتا قرايد كيف اجعل الخلية تتمدد بالطول وليس بالعرض لتاخذ كامل النص .
جزاكم الله خيرا
بالنسبة للسؤال الأول استخدمي الكود التالي :
dgv.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
حيث dgv هو اسم الـ Datagridview
بالنسبة للسؤال الثاني فهو غير واضح ... مالمقصود بتأخذ كامل النص ، النص يكتب بالعرض وليس بالطول ، والتمدد يكون بالعرض ...
بالتوفيق إن شاء الله
... إذا كنت تعتقد أن مشاركتي مفيده ، الرجاء قم بتقييمي ...
جزاكم الله خيرا
أخي الكريم
عاشق للبرمجة
DataGridView1.Rows(0).Height = 100
الكود السابق يبين عرض الصف لكن ا لنص يكون اطول من الخلية
ماريده عندما اكتب في الخلية ينتقل النص الى السطرالثاني في نفس الخلية
مثل (ميولتى لاين في التكست)
جزاك الله خيرا
& الأمل & كتب:جزاكم الله خيرا
أخي الكريم
عاشق للبرمجة
DataGridView1.Rows(0).Height = 100
الكود السابق يبين عرض الصف لكن ا لنص يكون اطول من الخلية
ماريده عندما اكتب في الخلية ينتقل النص الى السطرالثاني في نفس الخلية
مثل (ميولتى لاين في التكست)
جزاك الله خيرا
وجزاك بالمثل ..
وصلت الفكره .. بالنسبة لتمدد الخلية بالطول والـ MultiLine استخدمي الكود التالي في الحدث المناسب ، جربيه في حدث CellEndEdit بحيث بعد الانتهاء من الكتابة يحدث التمدد ...
dgv.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.DisplayedCellsExceptHeaders
بالتوفيق
تم تعديل هذه المشاركة بواسطة عاشق للبرمجة في 4 فبراير 2012 في 03:39
... إذا كنت تعتقد أن مشاركتي مفيده ، الرجاء قم بتقييمي ...
اخى الكريم جزاك الله خيرا
كتبت الكود السابق في حدث CellEndEdit للداتا قرايد
لكن لم ينتقل النص الى السطرالثاني في نفس الخلية وبقيت الكتابة مختفية
جزاك الله خيرا
هل من حل اخر
تأكدي أن يكون النص الذي تكتبينه يحتوي على مسافات ... بمعنى لا تقومي بكتابة نص عشوائي متصل هكذا ( ksfgfskjgfsjgsfjgs;gjjsgjsjgjsj;gjs;jg ) بل يجب أن يكون هكذا ( ksfgfskj gfsjgs fjgs;gjj sgjsjg jsj;g js;jg ) ...
... إذا كنت تعتقد أن مشاركتي مفيده ، الرجاء قم بتقييمي ...