DEFTYPE

DefType

    Instruções empregadas ao nível do módulo para definir o tipo padrão de variáveis, argumentos passados  para procedimentos e valores retornados por procedimentos Function e Property Get, cujos nomes se iniciem pelo caractere especificado, utilizando esta sintaxe:

DefType FaixaDeLetras1 [, FaixaDeLetras2] ...

Onde,

• DefType: é o nome da instrução que define o padrão para tipo de dado, podendo se DefBoll (para Boolean), DefByte (para Byte), DefInt 9para Integer), DefLng (para Long), DefCur (para Currency), DefSng (para Single), DefDbl (para Double), DefDate (para Date), DefStr (para String), DefObj (para Object), DefVar (para Variant);
• FaixaDelETRAS: Argumento obrigatório que especifica a faixa de letras que define a primeira letra de variáveis de um determinado tipo.

As seguintes considerações são válidas para a instrução DefType:

• A instrução DefType utilizada afeta apenas o módulo atual no qual é declarada;
• Ao se especificar uma faixa de letras para um tipo de dado, normalmente supõe-se que as variáveis se iniciem com os primeiros 128 caracteres da tabela ASCII. Porém, ao especificar a faixa A-Z, define-se o tipo padrão de variáveis cujo tipo não foi declarado explicitamente, mesmo que o caractere inicial da variável seja um caractere estendido (situado na faixa de 128-255 da tabela ASCII);
• Uma vez que a faixa A-Z foi especificada, não é mais possível empregar outras instruções DefType, ou ocorrerá um erro de compilação;
• A instução DefType não afeta membros de variáveis cujo tipo definido pelo usuário, pois seus elementos devem ser explicitamente declarados.

Exemplo: O exemplo que se segue demonstra como definir que o tipo padrão de todas as variáveis iniciadas com as letras A-F será Long:

DefLng A-F

DefInt G-K
DefStr S
Function Teste ()
Dim eValor
Dim iValor
Dim sTexto
eValor = 1 ‘gValor é do tipo Long, pois recebeu o tipo padrão
iValor = 1.5 ‘iValor é Integer, contendo o valor 1
sTexto = “Texto” ‘sTexto é do tipo String
End Function

Até a Próxima!!