Visual Basic

tgebrael wrote:

If Not My.Computer.Network.Ping("www.google.com") Then GoTo TryNext

Private Function isConnected() As Boolean
    Try
        'If ping succeed return
        If My.Computer.Network.Ping("www.google.com") Then Return True

        Dim AddressLength As IPHostEntry
        AddressLength = System.Net.Dns.GetHostEntry("google.com")

        'If lookup succeed return
        If AddressLength.AddressList.Length.Equals(3) Then Return True
    Catch Except As System.Net.Sockets.SocketException
        'Catch exception
    Catch Except As InvalidOperationException
        'Catch exception
    End Try

    'If we got this far attempts failed.  Return false
    Return False
End Function

Private Function GetDaysInMonth(ByVal year As Integer, ByVal month As Integer, ByVal day As System.DayOfWeek) As Integer
    'Date object for the first day of the month
    Dim myDate As New Date(year, month, 1)

    'Number of Days from the start of the month until the day
    'we are looking for.
    Dim nextOccurance As Integer = day - myDate.DayOfWeek
    If nextOccurance < 0 Then nextOccurance += 7

    'Return number of occurances in month
    Return Math.Ceiling((Date.DaysInMonth(year, month) - nextOccurance) / 7)
End Function

'Sundays in march 2007
Dim occurences = GetDaysInMonth(2007, 3, DayOfWeek.Sunday)

<code>
' Handle the KeyDown event to determine the type of character entered into the control.
Private Sub textBox1_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) _
         Handles textBox1.KeyDown
      
        ' Determine whether the keystroke is a number from the top of the keyboard.
        If e.KeyCode = 13 Then
           Call DoMyTask() ' That must be your procedure or function
        End If
    End Sub 

</code>