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

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