[elgokr]

(12-09-18, 11:05 PM)bidaya كتب :

اجل اخي الكريم هو كود جميل

لكن لماذا نكتب في المكان المراد تنفيذ الSub

RunText(Button1, "Thank you")

لمذا لم يتم ادخال كلمة  

"Thank you"

داخل ال  Sub

هذا افظل

اي بهذا الشكل

كود :

Sub RunText(ByRef Bt As Button)
       Bt.Enabled = False
       Bt.Text = "Thank you"
   End Sub

كود :

RunText(Button1)

لانك يمكنك استخدام الكود على اى زر وليس واحد فقط

لنقو ان لديك 10 Button فهل ستقوم بتكرار الكود لكل زر وحيث ان كل زر له نص مختلف عن الاخر

والامر عائد الك يمكنك ويمكنك ان تتحكم فى كود الـ Sub يمكنك ان تجعله بهذا الشكل

كود :

  Sub RunText()
      Button1.Enabled = False
      Button1.Text = "Thank you"
  End Sub

وطريقة الاستخدام

كود :

RunText()

أو بهذا الشكل

كود :

  Sub RunText(ByVal Text As String)
      Button1.Enabled = False
      Button1.Text = Text
  End Sub

وطريقة الاستخدام

كود :

RunText("Thank you")

انت لديك الفكرة وهو ما الا مثال

وطريقة الاستخدام النهائي تعتمد عليك

طبقاً لما تريد عمله فعلياً

تحياتى لك

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

[bidaya]

(13-09-18, 10:53 AM)elgokr كتب :

(12-09-18, 11:05 PM)bidaya كتب :

اجل اخي الكريم هو كود جميل

لكن لماذا نكتب في المكان المراد تنفيذ الSub

RunText(Button1, "Thank you")

لمذا لم يتم ادخال كلمة  

"Thank you"

داخل ال  Sub

هذا افظل

اي بهذا الشكل

كود :

Sub RunText(ByRef Bt As Button)
       Bt.Enabled = False
       Bt.Text = "Thank you"
   End Sub

كود :

RunText(Button1)

ممتاز اخي

الى هذه النقطة وصلنا الى الشطر الاهم في السؤال

وهو هل يمكن تعريف الزر بمتغير أو باي شيا اخر

مثال على الشكل التالي

كود :

Dim Buton As نوع المتغير

كود :

RunText(Buton)

[elgokr]

بخصوص المثال 

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

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

كود :

       Dim BT1 As Button = Button1

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

تحياتى لك

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

[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

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

[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

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

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

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

تحياتى لك

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