ساخت یک کنترول در زمان اجرا

[mehrdad12]

سلام دوستان
می خواستم چند کنترول در زمان اجرا بسازم . بعد با کلیک بر روی هر کدام کدی را بر روی خود کنترول اجرا کند. یعنی با کلیک بر روی کنترول رنگش و سایزش عوض شود .

[nilda]

سلام
شما به جای textbox نام کنترل مورد نظر رو بزارید واون مشخصه هایی رو که میخواهید مقدار دهی کنید در ضم این کد رو در form_load پروژتون بنوسید

کد php:

Dim temp As New TextBox
 temp.Text = "Ali"
 temp.Visible = True
 temp.Left = TextBox1.Left
 temp.Top = TextBox1.Top + TextBox1.Height + 10
 Me.Controls.Add(temp) 


موفق باشید

[ajlajlajl]

فقط این دیگه رویداد نداره و بدرد کاری که mehrdad12 میخواست نمیخوره. برای رویداد دار کردنش باید با WithEvents تعریف کنید کنترلو. وقتی با WithEvents تعریف میکنید دیگه نمیشه توی تابع نوشتش باید تو ماژول اصلی نوشتش و توی تابع ازش استفاده کرد. برای تخصیص رویدادم میتونید از Handles یا AddHandler استفاده کنید.

[mehrdad12]

سلام دوستان
از راهنمایتون ممنون .
خودم هم رفتم دنبالش یه چیز هایی گیر آوردم .

[Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim temp As New Button
Static intNumber As Integer
intNumber += 1
temp.Name = "Button" & intNumber.ToString
temp.Top = 10 * intNumber
temp.Left = 20 * intNumber
temp.BackColor = Color.Blue
temp.Visible = True
Me.Controls.Add(temp)
AddHandler temp.Click, AddressOf Clicked
End Sub

Private Sub Clicked(ByVal sender As System.Object, ByVal e As System.EventArgs)
MsgBox(sender.name)
End Sub[/php]

امید وارم بتونم به اون هایی که احتیاج داشته باشن کمک کنم .