[Visual Basic] Public Function Vertragselement_Suchen( _
ByRef Vertragselementnr As Integer, _
ByRef Vertragselement_Bezeichngung As String _
) As Boolean
[Visual Basic] Public Function Vertragselement_Suchen(ByRef Vertragselementnr As Integer, ByRef Vertragselement_Bezeichngung As String) As Boolean
Dim vesuche As New frmVertragselementSuche
vesuche.ShowDialog()
Try
If vesuche.DialogResult = DialogResult.OK Then
Vertragselementnr = vesuche.Vertragselementnr
Vertragselement_Bezeichngung = vesuche.Vertragselement_Bezeichnung
Return True
Else
Vertragselementnr = -1
Vertragselement_Bezeichngung = ""
Return False
End If
Catch ex As Exception
Vertragselementnr = -1
Vertragselement_Bezeichngung = ""
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