[bidaya]

(05-02-20, 11:24 AM)Sorax كتب : Dim Btnx As New Button

Btnx.Name = "Btnx1"


عندي هذا البتن

اريد لما اضغط عليه يغير اسم الفورم

تفظل

كود :

Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Dim pt As Point = New Point(10, 10)
       For i As Integer = 0 To 3
           Dim Btnx As Button = New Button
           With Btnx
               Btnx.Location = pt
               Btnx.Text = "Btnx" & (i + 1).ToString
               Btnx.Cursor = Cursors.Hand
               Btnx.Size = New System.Drawing.Size(92, 25)
               ' إضبط خصائص الباتون كيفما شئت
           End With
           ' هنا يتم ضبط مكان كل باتون
           pt.X += Btnx.Height + 95
           Me.Controls.Add(Btnx)
       Next
       ' هنا نضيف الحدث لكل باتون

       For Each b As Button In Me.Controls.OfType(Of Button)()
           AddHandler b.Click, AddressOf Btnx_Click
       Next
   End Sub
   Private Sub Btnx_Click(sender As Object, e As EventArgs)
       ' اكتب ما تريده في الحدث
       ' هنا نختار الباتون بناء علي التكست الخاص به
       ' ثم نحدد ما يجب أن يحدث عند الضغط علي الباتون
       Dim Btnx As Button = CType(sender, Button)
       Select Case Btnx.Text
           Case "Btnx1"
               Text = "Sorax"

           Case "Btnx2"


           Case "Btnx3"


           Case "Btnx4"
               Close()
         



       End Select

   End Sub