MACRO SUBSTITUICAO

PAULOHENRIQUES 29/01/2010 23:38:33
#333215
Tenho uma variavel cujo o conteudo é o nome de um objeto, gostaria de alterar uma propriedade desse objeto, por macro substituição, como segue:

Variavel = [Ô]TextBox1[Ô]

With Variavel
.enable = False
.visible = False
EndWith

seria o mesmo que : TextBox1.enable = false e TextBox.visible = False

Não sei como utilizar essa tecnica em Visual Basic, no meu caso, tenho uma tabela A com os nomes das opções do menu, atraves de outra tabela B gostaria de tornar visivel as opções liberadas relacionadas na tabela B.

Obrigado
MARCELO.TREZE 30/01/2010 00:45:18
#333217
seria assim

Private Sub Command1_Click()
 Dim cObjeto As Control
 Dim variavel As String

 variavel = [Ô]Text1[Ô]

  For Each cObjeto In Me.Controls
     
      If (TypeOf cObjeto Is TextBox) And (cObjeto.Name = variavel) Then
        cObjeto.Visible = False
        cObjeto.Enable = False
      End If

Next
End Sub



boa sorte
MARCOSLING 30/01/2010 13:49:06
#333232
Isso parece coisa de clippeiro...
Tópico encerrado , respostas não são mais permitidas
Voltar