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

[sonofsun]

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

[shahryari]

سلام

        Dim txt As New TextBox

        Me.Controls.Add(txt)

[soheila2012]

سلام

        Dim txt As New TextBox

        Me.Controls.Add(txt)

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

[maxvel]

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

[sonofsun]

سلام

 Dim txt As New TextBox

Me.Controls.Add(txt)

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

[sonofsun]

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

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

[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

[sonofsun]

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

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

اصلا he چی هست

[hosein320]

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

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

اصلا he چی هست

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

[sonofsun]

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

[shahryari]

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

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

[younes221]

سلام ؛ 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 قرار بدین .

[maxvel]

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

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