mohammad_2013
جمعه 26 دی 1393, 20:01 عصر
سلام
یه پنل تو فرم گذاشتم و یه باتون ؛ میخوام با هر بار زدن این دکمه یه تکست باکس اضافه بشه به پنل ؛ این تکس باکس ها زیر هم قرار بگیره.
حالا چجوری پس از اضاف کردنشون سایز تکس باکس ها رو تغییر بدیم ؟ و چجوری تکس باکس ها پس از ریسایز شدن کمی بیان پایین تر یعنی فاصله بینشون حفظ بشه.
یه مثال میزنم: فرضا ده تا تکست باکس تو پنل اضافه شده ؛ که طول وعرضشون پیش فرض 100و20 هست ؛ حالا میخوام عرض تکست باکس شماره 2 بشه مثلا 500
و با این تغییر سایز بقیه تکست باکس ها بیان پایینتر و فاصله ی بینشون حفظ بشه.
بهترین و ساده ترین روشی که بشه این پروسه انجام بشه چی هست ؟ ممنون میشم راهنماییم کنین
فعلا من فقط تونستم تکست باکس زیر هم تو پنل اضاف کنم به این صورت که تو قسمت General :
Dim loc As Point = New Point(0, 0)
و تو باتون:
Dim a As TextBox = New TextBox
a.Location = loc
a.Size = New Size(100, 20)
Panel1.Controls.Add(a)
loc = a.Location + New Point(0, 30)
یه پنل تو فرم گذاشتم و یه باتون ؛ میخوام با هر بار زدن این دکمه یه تکست باکس اضافه بشه به پنل ؛ این تکس باکس ها زیر هم قرار بگیره.
حالا چجوری پس از اضاف کردنشون سایز تکس باکس ها رو تغییر بدیم ؟ و چجوری تکس باکس ها پس از ریسایز شدن کمی بیان پایین تر یعنی فاصله بینشون حفظ بشه.
یه مثال میزنم: فرضا ده تا تکست باکس تو پنل اضافه شده ؛ که طول وعرضشون پیش فرض 100و20 هست ؛ حالا میخوام عرض تکست باکس شماره 2 بشه مثلا 500
و با این تغییر سایز بقیه تکست باکس ها بیان پایینتر و فاصله ی بینشون حفظ بشه.
بهترین و ساده ترین روشی که بشه این پروسه انجام بشه چی هست ؟ ممنون میشم راهنماییم کنین
فعلا من فقط تونستم تکست باکس زیر هم تو پنل اضاف کنم به این صورت که تو قسمت General :
Dim loc As Point = New Point(0, 0)
و تو باتون:
Dim a As TextBox = New TextBox
a.Location = loc
a.Size = New Size(100, 20)
Panel1.Controls.Add(a)
loc = a.Location + New Point(0, 30)