USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página