أريد المستخدم أن يتحكم فى عدد الأدوات الجديده إلى على الفورمه

الأخ المسلم (أسامه عبد الصادق) كتب:

أريد المستخدم أن يتحكم فى عدد الأدوات الجديده إلى على الفورمه

Public Class Form1

Dim X As New TextBox

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim I As Integer = Val(T1.Text)

For I = 0 To I

Me.Controls.Add(X)

Next

End Sub
End Class

والمشكله أنه عندما أعرض عدد الادوات إلى على الفورمة لا يصنع إلى أداة نص واحدة

لا هو بيعمل اكتر من أداة بس فوق بعض

وعلشان كدة تقدر تضيف متغير كمان بيتغير مع العد

يعني خلي x.lef +=10

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

بقول لحضرتك وضعت Button وكتبت تحته معرفة عدد الأدوات إلى على الفورمه لم يتغير عن الأدوات التى أما عينى أى لم يضع إلى مربع نص واحد ....

وطبقت ما ذكرته أيضا يضع مربع نص واحد .

UP

أخي الحبيب خطأ هو أنك أنشات نسخة واحدة من الاداة ويجب أن تنشأ نسخ بحسب العدد حتى تستطيع انشاء اكثر من عدد يعني يجب أن تكتب بدلا من

اقتباس

Dim X As New
 TextBoxPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim I As Integer = Val(T1.Text)
For I = 0 To IMe.Controls.Add(X)NextEnd SubEnd Class

تكتب هذاداخل نفس الاجراء

dim x as control
Dim I As Integer = Val(T1.Text)
For I = 0 To I
x=new textbox
x.left+=i
Me.Controls.Add(X)
NextEnd 
Sub

وإن شاء الله يضبط معك اخي الحبيب