20260515指摘対応10

2026-05-22 12:01:40 +09:00
parent 56ca7ed8c5
commit 81a8060448
5 changed files with 187 additions and 70 deletions
--- a/src/sh/tuk/module/Common_Button.bas
+++ b/src/sh/tuk/module/Common_Button.bas
@@ -411,6 +411,4 @@ End Function
 Public Sub HandleError(Optional ByVal sourceProcedure As String = "")
    Dim shortCode As String: shortCode = Right("0000" & CStr(Err.Number - vbObjectError), 4)
    MsgBox "[ERROR] " & shortCode & " : " & Err.Description, vbExclamation
-    
-   
 End Sub