CASE
コード内の重複するステートメントをチェックする方法が必要です。
例:
Case "TEST1"
Dim ZR As New srv_test.frm1
ZR.ContinueInit()
ZR.MdiParent = Me
ZR.Show()
Case "TEST2"
Dim BU As New srv_test.frm2
BU.ContinueInit()
BU.MdiParent = Me
BU.Show()
Case "TEST1"
Dim ZR As New srv_test.frm1
ZR.ContinueInit()
ZR.MdiParent = Me
ZR.Show()
コードに重複したステートメントが2つあることがわかるように、コードに500を超えるケースがあり、手動でチェックできないためCase
、重複したステートメントがあるかどうかを何らかの方法でチェックする必要があります。Case