اضافه کردن کنترل به برنامه با کدنویسی

[ehsan_ansaripoor]

لطفا بگویید چگونه می شود با کدنویسی یک کنترل مثل Label یا TextBox را به برنامه اضافه کرد (پیشاپیش سپاسگزارم)

[PalizeSoftware]

برای ایجاد کنترل‌هایی نظیر Label یا TextBox باید کنترلی همانند آنها از قبل وجود داشته باشد تا بتوان از آنها نمونه گرفت. برای اینکار ابتدا کنترلی نظیر Text1 بر روی فرم خود قرار دهید و خاصیت Index آنرا صفر کنید. حال چنانچه دستور زیر را اجرا کنید یک کپی از شئی Text1 ایجاد می‌شود ولی با Index 1

Load Text1(1)

شئی جدید شما Text1(1) است که فقط ایجاد شده و در حافظه قرار گرفته است.
از نظر اندازه و موقعیت و دیگر خصوصیات دقیقا نظیر Text1(0) است. پس اولین راه تغییر موقعیت مکان آن است و سپس قابل نمایش کردن آن. بدین صورت:

Text1(1).Left=0

Text1(1).Top=0

Text1(1).Visible=True

[Mehdi0016]

سلام
نیازی به وجود کنترل در فرم نیست .

<span dir=ltr>

dim tx As Object



Private Sub Command1_Click()

Set tx = Controls.Add("vb.textbox", "txt1", Me)

tx.Visible = True

tx.Top = 1500

tx.Left = 1440

tx.Width = 2500

tx.Text = "Hellooooo"

End Sub

[PalizeSoftware]

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

[ehsan_ansaripoor]

با تشکر از هر دو دوست عزیزم از راهنمایی شما نهایت تشکر را دارم.

[Hossain_vb]

می تونیم از یک دی ال ال استفاده کنیم که تمام کترلا داخلشه ولی اسمشو یادم نیست