ایجاد 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 بذار و اینجوری عمل کن



Public Class Form1

Dim txt As New TextBox

Private Sub 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)

End Sub

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

txt.Visible = True

End Sub

End Class

[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 پست واسه این تاپیک زده شده دریغ از یک جواب کامل(البته تقصیر شما دوستان نیست تقصیر صاحب تاپیک هست که به خودش زحمت نمیده روی کدی فکر کنه)

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