Question

Module Module1
    Public cccounter = 9
End Module

Public Class frmNim

    Private Sub btnSelect_Click(sender As System.Object, e As System.EventArgs) Handles btnSelect.Click
        MsgBox(cccounter)
    End Sub

End Class

为什么会产生错误？我无法通过点击按钮找出任何其他方法来使一个简单的计数器上升。这令我感到沮丧。是否有一些非常简单的东西我显然不知道了？

Answer 1

使用MessageBox.Show(ccounter)

我认为你正在使用旧的VB6编码。这在VB.NET中不起作用。

MSDN

如果你需要你的计数器，你需要额外的代码：

ccounter += 1

编辑：

错过了模块中的声明（现在VB.Net位生锈了一天）

你应该将ccounter声明为@Eddie Paz所提到的变量我做了一个快速的样本，每按一下就会增加1个。

Module Module1
    Public ccounter As Integer = 9
End Module


Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        ccounter += 1
        MessageBox.Show(ccounter)
    End Sub
End Class

Answer 2

您将cccounter声明为Module1中的变体。您应该指定类型，例如整数。在btnSelect中：

cccounter = cccounter + 1
MessageBox.Show(cccounter)

我认为MsgBox仍然可以在VB.Net中运行，但我不记得了。我现在尝试使用.NET方式。

为什么这个简单的消息框不起作用？

2 个答案: