如何使用功能启用/禁用按钮

Question

我的大学项目有问题

这是一个小游戏，每个玩家有6个按钮，有2个玩家，所以有12个按钮

每个按钮都有数字，如果玩家的6个按钮为0，他就无法播放

我尝试了一些公共功能，我实际上使用的是一个非常简单的功能，但我认为这不是问题

我的功能在这里

在我的形式中，问题出在这里，我尝试过很多事情，但我不知道怎么做...我读了我的课，我在互联网上搜索， 我不知道 ..

Answer 1

如果possible为True，则您不会重新启用该按钮。

你可以简化事情。

Public Function PeutJouer(ByVal joueur As Integer) As Boolean
    Dim sum As Integer
    Dim start As Integer = (joueur - 1) * 7
    For i As Integer = start To start + 5
        sum += tableau(i)
    Next
    Return sum <> 0
End Function

然后

Btn1P1.Enabled = PeutJouer(1)

您是否展示了所有相关代码？您声明Dim tableau(12) As Integer，但数组永远不会填充值。可能tableau应该在表单级别声明，而不是在此函数中本地声明。如果您已经同时拥有它们，请删除本地声明，因为它隐藏了表单级别的声明。您还需要从函数返回结果。我的功能中没有看到这一点。

注意这个

If x <> 0 Then
    booleanVariable = True
Else
    booleanVariable = True
End If

可以简化为

booleanVariable = x <> 0

即，条件是已经产生布尔结果True或False的表达式，您可以直接使用此值。使用数值时，您不必写If x + y = 1 Then r = 1 Else If x + y = 2 Then r = 2 ...。您只需撰写r = x + y。