@@ -1412,7 +1412,7 @@ RetryDir:
14121412 End If
14131413 Next
14141414 End If
1415- If Ex.GetType.FullName <> "System.Exception" Then DescList.Add( " 错误类型:" & Ex.GetType.FullName)
1415+ If Ex.GetType.FullName <> "System.Exception" Then DescList.Add( " " & GetLang( "LangModBaseExceptionType" ) & Ex.GetType.FullName)
14161416 Ex = Ex.InnerException
14171417 IsInner = True
14181418 Loop
@@ -1436,7 +1436,7 @@ RetryDir:
14361436 If CommonReason Is Nothing Then
14371437 Return DescList.Join(vbCrLf)
14381438 Else
1439- Return CommonReason & vbCrLf & vbCrLf & "————————————" & vbCrLf & "详细错误信息:" & vbCrLf & DescList.Join(vbCrLf)
1439+ Return CommonReason & vbCrLf & vbCrLf & "————————————" & vbCrLf & GetLang( "LangModBaseExceptionInfoDetail" ) & vbCrLf & DescList.Join(vbCrLf)
14401440 End If
14411441 End Function
14421442 ''' <summary>
@@ -2808,11 +2808,13 @@ Retry:
28082808 On Error Resume Next
28092809 If TypeOf Ex Is ThreadInterruptedException Then Exit Sub
28102810
2811+ If Title = "出现错误" Then Title = GetLang( "LangModBaseDialogFeedbackTitle" )
2812+
28112813 '获取错误信息
2812- Dim ExFull As String = Desc & ":" & GetExceptionDetail(Ex)
2814+ Dim ExFull As String = Desc & GetLang( "LangColon" ) & GetExceptionDetail(Ex)
28132815
28142816 '输出日志
2815- Dim AppendText As String = "[" & GetTimeNow() & "] " & Desc & ":" & GetExceptionDetail(Ex, True ) & vbCrLf '减轻同步锁占用
2817+ Dim AppendText As String = "[" & GetTimeNow() & "] " & Desc & GetLang( "LangColon" ) & GetExceptionDetail(Ex, True ) & vbCrLf '减轻同步锁占用
28162818 If ModeDebug Then
28172819 SyncLock LogListLock
28182820 LogList.Append(AppendText)
@@ -2830,19 +2832,19 @@ Retry:
28302832 Case LogLevel.Normal
28312833# If DEBUG Then
28322834 Case LogLevel.Developer
2833- Dim ExLine As String = Desc & ":" & GetExceptionSummary(Ex)
2835+ Dim ExLine As String = Desc & GetLang( "LangColon" ) & GetExceptionSummary(Ex)
28342836 Hint( "[开发者模式] " & ExLine, HintType.Info, False )
28352837 Case LogLevel.Debug
2836- Dim ExLine As String = Desc & ":" & GetExceptionSummary(Ex)
2838+ Dim ExLine As String = Desc & GetLang( "LangColon" ) & GetExceptionSummary(Ex)
28372839 Hint( "[调试模式] " & ExLine, HintType.Info, False )
28382840# Else
28392841 Case LogLevel.Developer
28402842 Case LogLevel.Debug
2841- Dim ExLine As String = Desc & ":" & GetExceptionSummary(Ex)
2843+ Dim ExLine As String = Desc & GetLang( "LangColon" ) & GetExceptionSummary(Ex)
28422844 If ModeDebug Then Hint( "[调试模式] " & ExLine, HintType.Info, False )
28432845# End If
28442846 Case LogLevel.Hint
2845- Dim ExLine As String = Desc & ":" & GetExceptionSummary(Ex)
2847+ Dim ExLine As String = Desc & GetLang( "LangColon" ) & GetExceptionSummary(Ex)
28462848 Hint(ExLine, HintType.Critical, False )
28472849 Case LogLevel.Msgbox
28482850 MyMsgBox(ExFull, Title, IsWarn:= True )
0 commit comments