[dubai.eig]

(21-05-19, 03:42 AM)ابراهيم ايبو كتب :

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

اليك هذا الرابط يشرح لك معالجة التهنيج واستخدام BackgroundWorker

ستستفيد منه ان شاء الله 

https://www.youtube.com/watch?v=e8pK-XWf...&index=133

تسلم استاذي على الرد


انا حصلت طريقه اضافه ال BackgroundWorker

في module

بس ما ضبط معاي
   


هذا الكود

كود :

Imports System.ComponentModel  

Module Module1  
   Private WithEvents _myBackgroundWorker As BackgroundWorker  


 Private Sub MyBackgroundWorker_DoWork(ByVal sender As Object, ByVal e As DoWorkEventArgs) Handles _myBackgroundWorker.DoWork
       Dim objPing As New Net.NetworkInformation.Ping

       Try
           Return If(objPing.Send("www.google.com").Status = Net.NetworkInformation.IPStatus.Success, True, False)
       Catch
           Return False
       End Try
   End Sub

   Public Function CheckInternetConnection() As Boolean
       _myBackgroundWorker.RunWorkerAsync()

   End Function

End Module

افيدوني بارك الله فيكم