ایجاد texbox در یک صفحه با کلیک بر روی دکمه ای

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

سلام

        Dim txt As New TextBox

        Me.Controls.Add(txt)

نقل قول:

---

نوشته شده توسط shahryari

سلام

        Dim txt As New TextBox

        Me.Controls.Add(txt)

---

امتحان کردم ولی نشد
دقیقا باید ایجاد بشه یا میشه از حالت مخفی در بیاری؟
یعنی واسه چه برنامه ای هست
Text اولش مخفی باشه و وقتی رو دکمه کلیک کردی Text1.Visible = True

2تا button بذار و اینجوری عمل کن

PublicClassForm1



Dim txt AsNewTextBox



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



        txt.Visible = False



        txt.Name = "barname-nevis"



        txt.Text = "barname-nevis"



Me.Controls.Add(txt)



EndSub



PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click



        txt.Visible = True



EndSub



EndClass

نقل قول:

---

نوشته شده توسط shahryari

سلام

 Dim txt As New TextBox

Me.Controls.Add(txt)

---

یه دونه ساخته میشه منظور من چندتا پشت سرهم بود.

نقل قول:

---

نوشته شده توسط soheila2012

امتحان کردم ولی نشد
دقیقا باید ایجاد بشه یا میشه از حالت مخفی در بیاری؟
یعنی واسه چه برنامه ای هست
Text اولش مخفی باشه و وقتی رو دکمه کلیک کردی Text1.Visible = True

---

دقیقا باید ایجاد بشه پست سرهم.اگه میدونید کمک کنید

Static X as integer=0

dim Btn As new button

with Btn

.text="Btn" & x

.location = new point (x,10)

x+=btn.height+5

end with

سلام داش حسین این ارور رو میده

Error 1 'he' is not a member of 'System.Windows.Forms.Button'

اصلا he چی هست

نقل قول:

---

نوشته شده توسط sonofsun

سلام داش حسین این ارور رو میده

Error 1 'he' is not a member of 'System.Windows.Forms.Button'

اصلا he چی هست

---

کد اصلاح شد!!!

کار خاصی انجام نمیده!!!!!!!!!!!!!!!!!!!:متفکر:

نقل قول:

---

نوشته شده توسط hosein320

Static X as integer=0

dim Btn As new button

with Btn

.text="Btn" & x

.location = new point (x,10)

x+=btn.height+5

end with

---

سلام
الان این کد چندتا کنترل پشت سرهم ایجاد میکنه؟؟؟!!! :متفکر:
خودتون تست کردین؟؟؟

سلام ؛ 11 پست واسه این تاپیک زده شده دریغ از یک جواب کامل(البته تقصیر شما دوستان نیست تقصیر صاحب تاپیک هست که به خودش زحمت نمیده روی کدی فکر کنه)

در هر صورت جواب سوالاتون این میشه :

یک دکمه و یک FlowLayoutPanel روی فرمتون قرار بدین در رویداد کلیک دکمه کد زیر رو قرار بدین :

Dim currentTextBox As TextBox



        For counter As Byte = 0 To 10

            currentTextBox = New TextBox()

            currentTextBox.Name = "TextBox" + counter.ToString()            

            currentTextBox.Visible = True

            Me.FlowLayoutPanel1.Controls.Add(currentTextBox)

        Next

اگر ارتفاع FlowLayoutPanel کم هست خاصیت AutoScroll رو برابر true قرار بدین .

نقل قول:

---

سلام ؛ 11 پست واسه این تاپیک زده شده دریغ از یک جواب کامل(البته تقصیر شما دوستان نیست تقصیر صاحب تاپیک هست که به خودش زحمت نمیده روی کدی فکر کنه)

---

سلام، والا من تا الان نفهمیدم قضیه چیه و ایشون چی مخواد