[bidaya]

(13-09-18, 03:43 PM)elgokr كتب :

بخصوص المثال 

نعم ينفع ذلك لكن ما الاستفادة منه

لان الشكل هيكون كالتالى

كود :

       Dim BT1 As Button = Button1

       BT1.Text = "Thank you"
       BT1.Enabled = False

تحياتى لك

وتمنياتى لك التوفيق

شكرا لك استاذنا المحترم

تم الكود بالطريقة هذه

كود :

Public Class Form1
   Dim str1 As String
   Dim str2 As String
   Dim BT1 As Button
   Sub RunText(ByRef Bt As Button)
       If (str2 = str1) Then
           Bt.Enabled = False
           Bt.Text = "Thank you"
       Else
           Bt.Text = "Error"
       End If
   End Sub

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       BT1 = Button1

   End Sub

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       BT1 = Button2
   End Sub

   Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
       RunText(BT1)
   End Sub
End Class

الله يحفظك ويرعاك