[elgokr]

(13-09-18, 05:28 PM)bidaya كتب :

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

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

كود :

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

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

الشكر لله والحمد لله

وعلى خير ان شاء الله

تحياتى لك

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