تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] ممكن مساعدة
#1
ممكن حل هذه المشكلة

الرد
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته
اخي الكريم 
الفنكشن يجب ان ترجع قيمة وهذا معروف ولكن :
عند استخدام جملة الشرط (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
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
#3
(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 شكرا لك اخي الفاضل
الرد
تم الشكر بواسطة: ابراهيم ايبو , ابراهيم ايبو
#4
الحمد لله والشكر لله
ولك اخي الكريم
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
تم الشكر بواسطة: عبد العزيز البسكري



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم