PUBLIC iCounter AS Integer
PUBLIC SUB btnTest_Click()
DIM iLocal AS Integer
iCounter = iCounter + 1
iLocal = iLocal + 1
txtField1.Text = CString(iCounter)
txtField2.Text = CString(iLocal)
PRINT "PUBLIC:"; iCounter; " DIM:"; iLocal
END
PUBLIC:1 DIM:1
PUBLIC:2 DIM:1
PUBLIC:3 DIM:1
PUBLIC:4 DIM:1
 |
A variável acima, quando acessada fora da classe que a criou, deve ser precedida do nome da classe criadora, seguida de um ponto. Ex: No caso acima: Se a class for Teste.class então o acesso por outra classe deve chamar: Teste.iCounter
|