PDA

View Full Version : وارد کردن اطلاعات در جند تکست باکس با حلقه فور



smrhallaj
پنج شنبه 21 آبان 1394, 13:56 عصر
سلام میخام چند تا تکست باکس داشته باشم ولی با ی حلقه فور اونارو مقدار بدم یا بخونم
for i = 1 to 10
textbox(i)
next
یه همچین شکلی
ضمنا وی بی 2010 دارم
ممنون

mr_ayma
پنج شنبه 21 آبان 1394, 14:20 عصر
سلام ، این یک مثال هست که به ترتبب نشون می ده

1- چطوری اسامی باکس های فرم رو بدست بیاریم

2- چطور مقدارشونو بخونیم

3- چطور محتویات اون تکست باکس ها رو پاک کنیم




For Each ctrl As Control In Controls
If TypeOf ctrl Is TextBox Then

MessageBox.Show(ctrl.Name.ToString())
MessageBox.Show(ctrl.Text)

CType(ctrl, TextBox).Text = String.Empty
End If
Next ctrl
End Sub

smrhallaj
شنبه 23 آبان 1394, 13:52 عصر
سلام
ممنون از محبتت
خیلی به دردم خورد
اما من به خود تکست باکس نیاز دارم
تو برنامه میخوام مثلا به فلان تکس باکس مشخص اشاره بشه
و اگه شرط برقرار بود تکس باکس 1 و 2 رو برام محاسبه کنه و اگر شرط دوم برقرار بود
تکس باکس شماره 3 و 4 رو برام بیاره
از
controls.find
هم نتونستم استفاده کنم

hosein320
سه شنبه 26 آبان 1394, 17:38 عصر
سلام اگر نام تکست باکس ها رو داشته باشین میتونین از این کد استفاده کنین
dim T as textbox = panel1.controls("textbox1")