📄 frmerror.vb
字号:
Public Class frmError
Public err As Exception
Private Sub frmError_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
lblErr.Text = "Error Message: " & err.Message.ToString & vbCrLf & _
"Stack Trace: " & err.StackTrace.ToString
End Sub
Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
Me.Close()
End Sub
Private Sub btnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSend.Click
MessageBox.Show("You could send the error info to a webservice, or an html form that takes the error data" & _
vbCrLf & "and sends an email, stores to a data source or both." & vbCrLf & vbCrLf & _
"This form is only one example of what to do with errors.", "Tip", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub
End Class
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -