经过一些更改,我的应用程序开始出现异常:登录表单显示为
If DialogResult.OK <> New frmLogin().ShowDialog() Then ...
包含标记为的行时会自动关闭'problem
。如果我注释掉,它会保持打开状态(因为它在更改之前工作),直到我Me.Close()
手动调用。
Private Sub Login_Click()
If My.Application.appSession.ID > 0 Then
Me.DialogResult = Windows.Forms.DialogResult.OK
Me.Close()
Else
Me.DialogResult = Windows.Forms.DialogResult.Abort 'problem
MsgBox("Invalid user name or password.", MsgBoxStyle.Critical)
End If
End Sub
您是否观察到所描述的行为,即纯粹设置DialogResult
属性值会关闭对话框?