Visual Basic

Mohammad Reza Sabouri wrote:

If i start learning VB.NET 2008 syntaxes , can i use them in 2005 and 2002(3) versions too ?

Amer Rehman wrote:

The problem is function does not do the required job.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      Dim strNames() As String = {"Yahoo", "Gmail", "Hotmail"}
      Dim bln As Boolean

      if FindWindow(strNames) then
         ' true - found
         MsgBox(bln.ToString)
      else
         ' False - Could not find
      end if

End Sub

Private Function FindWindow(ByVal Names() As String) As Boolean
      Dim lbReturn as Boolean = False
      Dim pr As Process() = Process.GetProcessesByName("iexplore")

      If pr.Length > 0 Then
            For i As Integer = 0 To UBound(pr)
                  For j As Integer = 0 To UBound(Names)
                        If pr(i).MainWindowTitle.IndexOf(Names(j)) <> -1 Then
                              ' You do not need to return here or even exit function as
                              ' functions should fall through to the end and then return
                              ' its just better programming
                              lbReturn = True
                        End If
                  Next j
            Next i
      End If
   Return lbReturn
End Function

Forjat wrote:

I think I have finally bit off more than I can chew here