Почему этот простой почтовый ящик не работает?

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 

EDIT:

Пропущенный объявление в модуле (VB.Net бит ржавый теперь в течение нескольких дней)

Вы должны объявить ccounter как переменную, как упомянуто @Eddie Paz) Я сделал быстрый sampl e, который добавляет 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. Вы должны указать тип, например integer. В btnSelect:

cccounter = cccounter + 1 
MessageBox.Show(cccounter) 

Я думаю MsgBox все еще работает в VB.Net, но я не помню. Я пытаюсь использовать способ .NET сейчас.