Visual Basic

leozampa74 wrote:

From this one I need to open a new MDIChild2 Form as MDIChild Form, but I need to show it as modal

If the_index_number_of_the_item_you_want_to_check >= items.Count Then
  'write to the item or not (I am not sure what you are trying to do)
End If

If WebBrowser2.Document.GetElementsByTagName("input").item(22) >= 1

If Exists WebBrowser2.Document.GetElementsByTagName("input").item(22) then .....  else ......

If 22 > WebBrowser2.Document.GetElementsByTagName("input").Count Then
  'do something here
End If

Dim i As Integer
'The value of i should become 22 due to some logic,
'but for the purpose of the conversation I am
'just going to assign it the value straight out.
i = 22 
If i > WebBrowser2.Document.GetElementsByTagName("input").Count Then
  'Item(i), in other words Item(22), does not exist
  'Now that you know this, do what you want here.
End If

'Dim variables that you want to pass to the Catch or Finally clauses here, 
'outside the Try Catch Finally block.

Try
  'Your transaction takes place here

  'Monitor any return value from your transaction (rows affected for example)
  'and log success or failure based on the outcome here.

  'Or if no errors occur you can simply log success here
Catch ex As Exception
  'if an error occurs log the error here
Finally
  'if you want to log something, no matter what happens, do it here.
End Try

Dim logEntry As LogEntry

Try

  'Your transaction takes place here

  LogEntry = New LogEntry()
  logEntry.EventId = 100
  logEntry.Priority = 2
  logEntry.Message = "Success or failure"
  logEntry.Categories.Add("Trace")
  logEntry.Categories.Add("UI Events")
  Logger.Write(logEntry)

  'Or

  LogEntry = New LogEntry()
  logEntry.EventId = 100
  logEntry.Priority = 2
  logEntry.Message = "Success"
  logEntry.Categories.Add("Trace")
  logEntry.Categories.Add("UI Events")
  Logger.Write(logEntry)

Catch ex As Exception

  LogEntry = New LogEntry()
  LogEntry = New LogEntry()
  logEntry.EventId = 100
  logEntry.Priority = 2
  logEntry.Message = "Error"
  logEntry.Categories.Add("Trace")
  logEntry.Categories.Add("UI Events")
  Logger.Write(logEntry)

Finally

  LogEntry = New LogEntry()
  logEntry.EventId = 100
  logEntry.Priority = 2
  logEntry.Message = "Anyway"
  logEntry.Categories.Add("Trace")
  logEntry.Categories.Add("UI Events")
  Logger.Write(logEntry)

End Try