Suchen eines Vertragselementes
[Visual Basic] Public Function Suchen( _
ByRef Vertragselementnr As Integer _
) As Boolean
[Visual Basic] Public Function Suchen(ByRef Vertragselementnr As Integer) As Boolean
Dim vesuche As New frmVertragselementSuche
vesuche.ShowDialog()
Try
If vesuche.DialogResult = DialogResult.OK Then
Vertragselementnr = vesuche.Vertragselementnr
Return True
Else
Vertragselementnr = -1
Return False
End If
Catch ex As Exception
Return False
Finally
vesuche.dispose()
End Try
End Function
Plattformen: Windows 98, Windows 2000 SP4, Windows Millennium Edition, Windows Server 2003, Windows XP Media Center Edition, Windows XP Professional x64 Edition, Windows XP SP2, Windows XP Starter Edition