قرار دادن كامپوننت بر روي فرم با استفاده از دستور ؟

[ebrahimv]

من ميخوام يك ابزار رو به صورت يك متغير تعريف كنم بعد از تنظيم خصوصيات اون ابزارو وارد فرم كنم

[anooshiran]

سلام دوست عزيز

كد زير راهنماييت خواهد كزد




Dim btn As Button
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
btn = New Button
With btn
.Name = "Btn"
.Size = New Size(30, 30)
.Location = New Point(10, 10)
.Text = "Test"
.BackColor = Color.Blue
End With
Me.Controls.Add(btn)
End Sub

[ebrahimv]

سلام دوست عزيز

كد زير راهنماييت خواهد كزد




Dim btn As Button
PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
btn = New Button
With btn
.Name = "Btn"
.Size = New Size(30, 30)
.Location = New Point(10, 10)
.Text = "Test"
.BackColor = Color.Blue
EndWith
Me.Controls.Add(btn)
EndSub


ممنون از جواب خيلي عالي و كاملتون
فقط چجوري براش يه رويدادو تعريف كنيم
مثلا بهش بگيم فلان دستورات را به عنوان رويداد كليكش قبول كنه

[alimanam]

با سلام

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


Public Class Form1
Private btn1 As New Button With {.Size = New Size(120, 30), .Text = "New Button", .Location = New Point(100, 50)}

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
AddHandler btn1.Click, AddressOf mybtn1_click
Me.Controls.Add(btn1)
End Sub

Private Sub mybtn1_click()
MsgBox("salam doste man")
End Sub
End Class

[Hossis]

جواب هر دو سوالت در یک خط

Dim withevents btn As Buttonbtn = New Button With {.Name = "Btn",.Size = New Size(30, 30), .Location = New Point(10, 10),.Text = "Test",.BackColor = Color.Blue,.parent=me
PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
Me.Controls.Add(btn)
btn.visible=true
end sub