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

[ebrahimv]

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

[anooshiran]

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

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

 

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

 

[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