[RESOLVED] [2005] Network status converting from C# to VB

[Bongo]

Hi I have a peace of code which checkes my NetworkStatus periodicaly in a C# app.

Now I have to rewrite the app in VB and I can not figure out certain parts.
Could you help please?

       private void frmMain_Load(object sender, EventArgs e)
        {

            UpdateNetworkStatus(NetworkInterface.GetIsNetworkAvailable());
            NetworkChange.NetworkAvailabilityChanged += new NetworkAvailabilityChangedEventHandler(myNetworkAvailabilityChangeHandler);
        }

        private void UpdateNetworkStatus(object state)
        {
            if ((bool)state)
            {
                this.Text = "True";
            }
            else
            {
                tmrNet.Enabled;
            }
        }

        public void myNetworkAvailabilityChangeHandler(object sender, NetworkAvailabilityEventArgs args)
        {
            this.Invoke(new WaitCallback(UpdateNetworkStatus), args.IsAvailable);
        }

My Problem to get this right in VB is the myNetworkAvailabilityChangeHandler and the Eventhandler in Form_Load

thx in advance

[BShadow]

See the conversion website: http://www.developerfusion.co.uk/uti...sharptovb.aspx

Private Sub frmMain_Load(ByVal sender As Object, ByVal e As EventArgs) 
 UpdateNetworkStatus(NetworkInterface.GetIsNetworkAvailable) 
 AddHandler NetworkChange.NetworkAvailabilityChanged, AddressOf myNetworkAvailabilityChangeHandler 
End Sub 
 
Private Sub UpdateNetworkStatus(ByVal state As Object) 
 If CType(state, Boolean) Then 
   Me.Text = "True" 
 Else 
   tmrNet.Enabled 
 End If 
End Sub 
 
Public Sub myNetworkAvailabilityChangeHandler(ByVal sender As Object, ByVal args As NetworkAvailabilityEventArgs) 
 Me.Invoke(AddressOf UpdateNetworkStatus, args.IsAvailable) 
End Sub

Didn't test it though... Good luck.

[Bongo]

@BShadow

Many thanks esp. for the link

[David Anton]

(via Instant VB), the correct conversion is - note the event handler:

Private Sub frmMain_Load(ByVal sender As Object, ByVal e As EventArgs)
    UpdateNetworkStatus(NetworkInterface.GetIsNetworkAvailable())
    AddHandler NetworkChange.NetworkAvailabilityChanged, AddressOf myNetworkAvailabilityChangeHandler
End Sub
 
Private Sub UpdateNetworkStatus(ByVal state As Object)
    If CBool(state) Then
        Me.Text = "True"
    Else
        tmrNet.Enabled
    End If
End Sub
 
Public Sub myNetworkAvailabilityChangeHandler(ByVal sender As Object, ByVal args As NetworkAvailabilityEventArgs)
    Me.Invoke(New WaitCallback(AddressOf UpdateNetworkStatus), args.IsAvailable)
End Sub

Note also that the developerfusion converter has the nasty habit of omitting the empty argument list in method calls. This is allowed in VB, but only contributes to more confusing code.