ارايه اي از كنترل ها

[omid-vbAuto]

ببین دوست عزیز چون هر کنترل برای دسترسی و برنامه نویسی احتیاج به یک متغیر در حافظه دارد پس باید از قبل تعریف و مقدار دهی اولیه و ... شود ای چیزی که ما درکد مویسی به عنوان instance به آن مراجعه می کنیم و property و method و ... آنرا مقدار دهی یا call می کنیم در اصل نام آن متغیرها می باشد . قواعد نامگذاری متغیرها به ما اجازه نمیدهد در حالت runtime نام یک متغیر را به صورت دینامیک قراردهیم .دقت کنید گفتم نام متغیر نه خصوصیت name آنرا فقط می توانیم برای ایجاد متغیرهای دینامیک به صورتیکه قابلیت رد گیری داشته باشند از آرایه ، collection و ... استفاده کرد البته می توان آنرا بدون اضافه کردن در آرایه یا collection در form.controls اضافه کرد و از همان طریق هم آنرا ردیابی کرد ولی ناگفته نماند که form.controls نیز یک collection می باشد

آفرین مهندس


دقیقا منظور من هم همین بود که شما به خوبی اشاره کردین.


حالا ما با چه کدی کنترل هائی ایجاد کنیم و بتونیم آنهارا ردیابی کرده وتغییرات لازمه رو در آنها اعمال کنیم؟

[Rezahak]

حالا ما با چه کدی کنترل هائی ایجاد کنیم و بتونیم آنهارا ردیابی کرده وتغییرات لازمه رو در آنها اعمال کنیم؟

دوست عزیز فرض کنید شما می خواهید 10 تا textbox به طور دینامیک در حالت runtime ایجاد کنید . باید کد زیر را در formload یا click یک button بنویسید:

dim txt as TextBox

for idx as integer = 1 to 10

txt=new Textbox

txt.name = "TextBox" & idx.tostring

txt.top = 10 +txt.height * idx + (idx-1)*10

me.controls.add(txt)

 

next

حالا این رو داشته باش تا بقیه رو برات توضیح بدم راستش الان وقت ندارم اگه این رو تست کردی نتیجه رو بنویس تا بقیه رو توضیح بدم

[omid-vbAuto]

دوست عزیز فرض کنید شما می خواهید 10 تا textbox به طور دینامیک در حالت runtime ایجاد کنید . باید کد زیر را در formload یا click یک button بنویسید:

dim txt as TextBox

for idx as integer = 1 to 10

txt=new Textbox

txt.name = "TextBox" & idx.tostring

txt.top = 10 +txt.height * idx + (idx-1)*10

me.controls.add(txt)



next

حالا این رو داشته باش تا بقیه رو برات توضیح بدم راستش الان وقت ندارم اگه این رو تست کردی نتیجه رو بنویس تا بقیه رو توضیح بدم

مهندس مرحله اول یعنی ساخت آبجکت ها با موفقیت انجام شد.

حالا منتظر مرحله دوم کد شما هستم تا بتونم آبجکت های تولیدی رو ردیابی و تغییرات لازمه رو روشن انجام بدم.

با تشکر

[Rezahak]

مهندس مرحله اول یعنی ساخت آبجکت ها با موفقیت انجام شد.

حالا منتظر مرحله دوم کد شما هستم تا بتونم آبجکت های تولیدی رو ردیابی و تغییرات لازمه رو روشن انجام بدم.

خب این مرحله دیگه خیلی آسونه . فرض کن می خواهی به متن داخل Textbox که نام آنرا TextBox2 گذاشتی دسترسی پیدا کنی .فقط کافیه بنویسی :

CType(Me.Controls.Item("TextBox2"), TextBox).Text