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

Schreibe einen Kommentar