Visual Basic开发：如何根据骰子点数移动PictureBox实现桌游走格

1 现有代码修复 #

你当前的随机数生成逻辑存在问题：Rand.Next(4)只会生成0~3的整数，只能匹配前4个骰子面资源，无法触发5、6点的效果，需要修改为：

n = Rand.Next(6) ' 生成0~5的整数，对应6个骰子面

修改后n+1就是本次掷骰子需要移动的实际步数。

2 网格移动逻辑实现 #

2.1 新增全局变量 #

在类顶部新增以下变量，记录玩家当前位置和网格基础参数：

' 记录玩家当前所在网格的行列索引，初始默认在左上角第一格
Dim currentRow As Integer = 0
Dim currentCol As Integer = 0
' 替换为你实际搭建网格用的Label控件的宽度、高度
Const CELL_WIDTH As Integer = 50
Const CELL_HEIGHT As Integer = 50
' 网格总行列数，你当前是5行10列
Const MAX_ROW As Integer = 4
Const MAX_COL As Integer = 9

2.2 补充移动逻辑 #

在btnRouler_Click事件中补充移动代码，完整的事件代码如下：

Private Sub btnRouler_Click(sender As Object, e As EventArgs) Handles btnRouler.Click
    Dim n As Integer 
    n = Rand.Next(6)
    PictureBoxDé.Image = Dé(n) 
    Dim steps As Integer = n + 1 ' 计算实际移动步数
    
    ' 逐格移动
    For i = 1 To steps
        currentCol += 1
        ' 单行走完换行
        If currentCol > MAX_COL Then
            currentCol = 0
            currentRow += 1
        End If
        ' 超出网格边界的处理，可根据需求修改为通关、回到起点等逻辑
        If currentRow > MAX_ROW Then
            currentRow = 0
            currentCol = 0
        End If
        ' 更新玩家PictureBox的位置，注：PictureBoxJoueur替换为你实际用来代表玩家的PictureBox控件名称
        PictureBoxJoueur.Location = New Point(currentCol * CELL_WIDTH, currentRow * CELL_HEIGHT)
        ' 如果需要逐格动画效果，此处可以加Thread.Sleep(100) 配合刷新，或者用Timer控件实现更流畅的动画
    Next
End Sub

可选优化 #

如果需要更流畅的移动动画，可以新增一个Timer控件，把逐格移动的逻辑放到Timer的Tick事件中，每次触发走一格，避免直接循环导致的界面卡顿。

内容的提问来源于stack exchange，提问作者Sophie Beauchesne