لطفا بگویید چگونه می شود با کدنویسی یک کنترل مثل Label یا TextBox را به برنامه اضافه کرد (پیشاپیش سپاسگزارم)
لطفا بگویید چگونه می شود با کدنویسی یک کنترل مثل Label یا TextBox را به برنامه اضافه کرد (پیشاپیش سپاسگزارم)
برای ایجاد کنترلهایی نظیر 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
سلام
نیازی به وجود کنترل در فرم نیست .
<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
برنامه نمونه شما کاملا صحیح است ولی اگر بخواهید تعداد بیشتری بر روی فرم قرار بدهید بهترین راه استفاده از آرایهای از کنترلهاست که مدیریت بیشتر و راحتتری را میتوان با آنها داشت.
با تشکر از هر دو دوست عزیزم از راهنمایی شما نهایت تشکر را دارم.
می تونیم از یک دی ال ال استفاده کنیم که تمام کترلا داخلشه ولی اسمشو یادم نیست