|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Declarações/Variáveis)
|
|
 |
Título da Dica: Declare uma nova propriedade para o Formulário
|
 |
|
|
|
Postada em 15/10/2002 por C4du
Suponhamos que vc queira passar um parametro do seu form1 para o seu form2. Para por exemplo abri-lo de maneira diferente. Uma maneira seria utilizar varáveis globais, MÁS...
Podemos fazer isso de um modo mais elegante criando uma nova propriedade no FORM.
Utilizando Property Get, para ler e Property Let para setar
'Var no form que recebe o valor da prop
Private myVar as Variant
'Após o Get e o Let, vem o nome da propridade
Public Property Get NovaProp() As Variant
NovaProp= myVar
End Property
Public Property Let NovaProp(ByVal vValor As Variant)
If IsNumeric(vValor) Then myVar = vValor
End Property
Voce pode mudar o tipo da propriedade, mas lembre-se que tem que ser o mesmo tipo no LET e no GET
Para setar ou ler o valor da nova propriedade do FORM2...
Private Sub Command1_Click()
With Form2
.NovaProp= 25
.Show
Debug.Print .NovaProp
End With
End Sub
|
|
|
|
|
