何もないところをクリックすると×になる問題修正。
| @@ -387,6 +387,18 @@ | ||
| 387 | 387 | row = 10 - row |
| 388 | 388 | End If |
| 389 | 389 | End If |
| 390 | + If 9 < col Then | |
| 391 | + col = 9 | |
| 392 | + End If | |
| 393 | + If 9 < row Then | |
| 394 | + row = 9 | |
| 395 | + End If | |
| 396 | + If col < 1 Then | |
| 397 | + col = 1 | |
| 398 | + End If | |
| 399 | + If row < 1 Then | |
| 400 | + row = 1 | |
| 401 | + End If | |
| 390 | 402 | Return New KomaLocation(col, row) |
| 391 | 403 | End Function |
| 392 | 404 |
| @@ -545,7 +557,7 @@ | ||
| 545 | 557 | |
| 546 | 558 | End If |
| 547 | 559 | |
| 548 | - If l IsNot Nothing Then | |
| 560 | + If l IsNot Nothing AndAlso Not koma.IsEmpty Then | |
| 549 | 561 | Me.moveKomaInfo.MovingKoma = koma.Value |
| 550 | 562 | If l.IsKomaBako AndAlso koma.Value = koma.C_OU Then |
| 551 | 563 | moveKomaInfo.MovingKoma = koma.GOTE_OU |