چطور میشه یک مستطیل با طول دلخواه ساخت؟؟

[lootiamir]

با سلام
ببخشید چطور میشه یک مستطیل با اندازه طول متغییر ( textbox) و با عرض ثابت در وی بی ساخت !
البته میخوام با کد نویسی بصورت اتوماتیک ساخته بشه!!!

[sagggad]

اگه میخوای مستطیلت توپرباشه ازلیبل استفاده کن!!

[boveiryghasem]

سلام

امیدوارم بدردت بخوره.

Dim Pencil As Pen
Dim MyLength As Integer
MyLength = Int32.Parse(TextBox1.Text)
Pencil = New Pen(Drawing.Color.Red, 5)
Dim myGraphics As Graphics = Me.CreateGraphics
myGraphics.DrawRectangle(Pencil, 0, 0, MyLength, 50)

[lootiamir]

اگه میخوای مستطیلت توپرباشه ازلیبل استفاده کن!!
چطور میشه تو کد نویسی ییک لیبل ساخت !؟؟

[sagggad]

چطور میشه تو کد نویسی ییک لیبل ساخت !؟؟
با این کد:
Dim label as new label
me.controls.add(label(

[lootiamir]

با این کد:
Dim label as new label
me.controls.add(label(
ببخشید اگه من بخوام به تعداد نا معلوم لیبل بسازم باید چیکار کنم ؟؟؟
(تعاد از تکست باکس دریافت شود )

[lootiamir]

کسی راه حلی نداره ؟؟

[boveiryghasem]

سلام
یه راه حل خیلی ساده:
For i = 1 To Int32.Parse(TextBox1.Text)

Dim txtBx As TextBox
Static x As Integer
txtBx = New TextBox
txtBx.Location = New Point(10, 10 + x)
txtBx.Size = New Size(100, 20)
txtBx.Name = "TextBox" & i.ToString()
x = x + 20
Me.Controls.Add(txtBx)
Next