次のように呼び出されるキャンセル ボタンを含む DialogBox があります。
Dim dlgSizSelection As New dlgTyreSizeSelection(objCarWebVehicle.Tyres, objCarWebVehicle)
If (dlgSizSelection.ShowDialog) = Windows.Forms.DialogResult.OK Then
selectedTyre = CType(dlgSizSelection.lstTyreOptions.SelectedItem, CarWebVehicleCOM.TyreData)
dlgSizSelection.Close()
ElseIf (dlgSizSelection.ShowDialog) = Windows.Forms.DialogResult.Cancel Then
dlgSizSelection.Close()
Exit Sub
Else
MsgBox("No tyre sizes selected.", MsgBoxStyle.Exclamation, "Tyre Search")
dlgSizSelection.Close()
Exit Sub
End If
ただし、DialogReturn プロパティをフォームで設定すると、次のように呼び出します。
DialogResult = Windows.Forms.DialogResult.Cancel
そしてキャンセルボタンを押すと、一瞬点滅し、何も押さなかったようにダイアログボックスが再び表示され、完全に閉じるにはもう一度押す必要があります。
私は何が欠けていますか?