Ich würde Dir dazu raten, anstatt
Das setzten der Property DialogResult schliesst die Form. Der Aufruf dann in Etwa so....
Ein einfaches schliessen der Form über das X gibt als DialogResult Cancel zurück. Die Betätigung eines Buttons jedoch OK.....
Me.Close()
aufzurufen, mit DialogResult
zu arbeiten. So kannst Du unterscheiden, ob überhaupt ein Button gedrückt wurde oder die Form einfach so geschlossen wurde... VB.NET-Quellcode
- Private Sub ButtonClick(sender As Object, e As EventArgs)
- Select Case True
- Case sender Is BtnRechnung
- Me.DocumentType = DocumentTypes.Rechnung
- Case sender Is BtnBestellung
- Me.DocumentType = DocumentTypes.Bestellung
- Case sender Is BtnPreisliste
- Me.DocumentType = DocumentTypes.Preisliste
- End Select
- Me.DialogResult = DialogResult.OK
- End Sub
Das setzten der Property DialogResult schliesst die Form. Der Aufruf dann in Etwa so....
VB.NET-Quellcode
- Protected Overrides Sub OnDragDrop(drgevent As DragEventArgs)
- Dim file = DirectCast(drgevent.Data.GetData(DataFormats.FileDrop), String())(0)
- Using f2 As New Form2
- If f2.ShowDialog = DialogResult.OK Then
- Me.Text = $"{New FileInfo(file).Name} is {f2.DocumentType}"
- End If
- End Using
- MyBase.OnDragDrop(drgevent)
- End Sub
Ein einfaches schliessen der Form über das X gibt als DialogResult Cancel zurück. Die Betätigung eines Buttons jedoch OK.....
Die Unendlichkeit ist weit. Vor allem gegen Ende.
Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken.
Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken.