Cast-Funktionen

TryCast(QuellObjekt, ZielTyp)

• Try … Catch ist implizit
• löst keine Exception aus
• gibt ‘Nothing’ zurück, falls der Cast nicht möglich war

FMonthData = TryCast(frmMain.MdiChildren(i), frmMonth)

If Not FMonthData Is Nothing Then
  ...
End If

DirectCast(QuellObjekt, ZielTyp)

• muß evtl. in Try … Catch
• löst bei Fehler eine Exception aus

Private Sub tbQ_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tbQ.KeyPress, tbV.KeyPress
   Try
      Dim tbSender As System.Windows.Forms.TextBox = DirectCast(sender, System.Windows.Forms.TextBox)
      ...
   Catch ex As Exception
      MessageBox.Show("Fehler: " & ControlChars.CrLf & ex.ToString())
   End Try
End Sub