سطر خطأ فى وحدة نمطية

[حمدى الظابط]

السلام عليكم ورحمة الله ويركاته 

السؤال فى الصورة المرفقة بالموضوع وارجو التصليح فى الموديول المرفق بالملف مع شرح الخلل ولكم كل الاحترام والتقدير

تجرية.rar

[حمدى الظابط]

up

[ابو جودي]

طيب ممكن توضح سبب استخدام الكود ؟ يعنى حضرتك عاوز تعمل ايه ؟

الكود سليم وما فى اى مشاكل .. 

[حمدى الظابط]

13 دقائق مضت, ابو جودي said:

طيب ممكن توضح سبب استخدام الكود ؟ يعنى حضرتك عاوز تعمل ايه ؟

الكود سليم وما فى اى مشاكل .. 

استاذ ابو جودى جزاك الله خير على هذه المشاركة 

هذا الكود لاظهار وجود شبكة نت من عدم وجود شبكة نت وفى كود بداخل نموذج الارسال عند وجود نت يعطى لون اخضر وفى حالة عدم وجود نت يعطى لون احمر وما فى مشكلة فى ذلك الكود الداخلى يعمل بكفأة ولكن المشكلة فى رسالة الخطأ الموجودة فى الموديول كما ظاهر فى الصورة 

[Moosak]

أخي حمدي يمكنك استخدام هذه الدالة للتحقق من وجود إنترنت من عدمه 🙂 

Private Declare PtrSafe Function InternetGetConnectedState Lib "wininet.dll" ( _
    ByRef lpdwFlags As Long, _
    ByVal dwReserved As Long _
    ) As Boolean

' Returns True if there is an active Internet connection, False otherwise
Function IsInternetConnected() As Boolean
    Dim flags As Long
    IsInternetConnected = InternetGetConnectedState(flags, 0)
End Function

Sub test()
If IsInternetConnected() Then
    MsgBox "There is an active Internet connection."
Else
    MsgBox "There is no active Internet connection."
End If
End Sub

الدالة IsInternetConnected() ترجع لك True إذا الانترنت موجود و False إذا الشبكة مقطوعة

[حمدى الظابط]

9 دقائق مضت, Moosak said:

أخي حمدي يمكنك استخدام هذه الدالة للتحقق من وجود إنترنت من عدمه 🙂 

Private Declare PtrSafe Function InternetGetConnectedState Lib "wininet.dll" ( _
    ByRef lpdwFlags As Long, _
    ByVal dwReserved As Long _
    ) As Boolean

' Returns True if there is an active Internet connection, False otherwise
Function IsInternetConnected() As Boolean
    Dim flags As Long
    IsInternetConnected = InternetGetConnectedState(flags, 0)
End Function

Sub test()
If IsInternetConnected() Then
    MsgBox "There is an active Internet connection."
Else
    MsgBox "There is no active Internet connection."
End If
End Sub

الدالة IsInternetConnected() ترجع لك True إذا الانترنت موجود و False إذا الشبكة مقطوعة

الاستاذ موسى اشكرك على هذه المشاركة الثمينة ولكن يبدو انى عندى خطأ لان نقلت اكواد من النموذج الرئسى الى الفرعى واعتقد هذا عمل خلل فى الارسال وحارى التجربة وسأفيك بالرد ان شاء الله

[حمدى الظابط]

الحمد لله تم حل المشكلة وتصحيح الخطاء والسبب نقل بعض الاكواد من الرئيسى الى الفرعى دون الريط بينهم تحياتى وشكرى للجميع