[عاصم النجار]

ممكن حل هذه المشكلة

[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
اخي الكريم 
الفنكشن يجب ان ترجع قيمة وهذا معروف ولكن :
عند استخدام جملة الشرط (If-Elseif -else) يحب ارجاع القيمة في كل حالة اي سيكون هناك :
Return مع  If  وكذلك Return  مع ElseIf وايضا  Return مع Else
وفي مثالك سترجع القيمة مع if وايضا مع else
على النحو التالي:

كود :

 Public Function Ts_Empty(ByRef SText As Object) As Boolean
       Dim Is_Empty As Boolean = False
       If SText.Text.Trim = "" Then
           Is_Empty = True
           MsgBox("Warrning : Required missing Field", vbExclamation)
           SText.BackColor = Color.LawnGreen
           SText.Focus()
           Return Is_Empty
       Else
           Is_Empty = False
           SText.BackColor = Color.White
           Return Is_Empty
       End If
   End Function

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Ts_Empty(TextBox1)
   End Sub
End Class

[عاصم النجار]

(16-02-21, 12:17 AM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
اخي الكريم 
الفنكشن يجب ان ترجع قيمة وهذا معروف ولكن :
عند استخدام جملة الشرط (If-Elseif -else) يحب ارجاع القيمة في كل حالة اي سيكون هناك :
Return مع  If  وكذلك Return  مع ElseIf وايضا  Return مع Else
وفي مثالك سترجع القيمة مع if وايضا مع else
على النحو التالي:

كود :

 Public Function Ts_Empty(ByRef SText As Object) As Boolean
       Dim Is_Empty As Boolean = False
       If SText.Text.Trim = "" Then
           Is_Empty = True
           MsgBox("Warrning : Required missing Field", vbExclamation)
           SText.BackColor = Color.LawnGreen
           SText.Focus()
           Return Is_Empty
       Else
           Is_Empty = False
           SText.BackColor = Color.White
           Return Is_Empty
       End If
   End Function

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Ts_Empty(TextBox1)
   End Sub
End Class

تم الحل بطريقة اخرى ولكن انا كنت عامله object ولكن كان لازم اعمله textbox شكرا لك اخي الفاضل

[ابراهيم ايبو]

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

ولك اخي الكريم