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







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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة لاخوكم benali17 1 15 منذ 22 دقيقة مضت
آخر رد: أبووسم
  ممكن تحويل الكود من سي شارب لي فيجوال بيسك اليوم السابع 2 114 24-02-21, 05:57 PM
آخر رد: الماجيك مسعد
  ممكن التعديل في كود البحث المرفق أبووسم 0 40 24-02-21, 01:03 AM
آخر رد: أبووسم
Photo اريد مساعدة benali17 2 99 22-02-21, 09:36 PM
آخر رد: benali17
  [سؤال] مساعدة في انشاء combobox في الداتا جريد fawazm15019797 1 250 18-02-21, 10:37 PM
آخر رد: سعيد كنيمو
  ممكن كود عرض ال URL المفتوحه على متصفح جوجل كروم او فيرفوكس ahmed112001 1 91 17-02-21, 08:48 PM
آخر رد: Basil Abdallah
  هل ممكن أضع pdf في البرنامج نفسه..يقدر المستخدم يقرأه فقط عند فتح البرنامج؟ Alziny 2 117 16-02-21, 11:30 PM
آخر رد: Alziny
  [سؤال] كيف ممكن اعدل في Crystal Reports dubai.eig 2 109 16-02-21, 07:31 PM
آخر رد: dubai.eig
  [سؤال] مساعدة برنامج الصندوق المالي saqaf 1 104 16-02-21, 06:00 PM
آخر رد: اسامه الهرماوي
Information [VB.NET] [مساعدة] ... شباب كيف اربط المشروع ب ملف Excel لتصدير البيانات فيه..؟ Mahmoud41 1 154 11-02-21, 10:04 PM
آخر رد: abojudey

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


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