منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

(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)

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


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


أو بهذا الشكل

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

(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)

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

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

بخصوص المثال 

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

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

كود :

       Dim BT1 As Button = Button1

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

تحياتى لك

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

(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

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