dr.X
|
BELO HORIZONTE
MG - BRASIL
|
|
Postada em 17/06/2008 20:42 hs
Galera, preciso alterar em tempo de execução, todos os labels. Exixte alguma ferramenta ou comando no vb que faça isso ? Desde já, valeu !!! |
|
|
|
|
|
|
|
Postada em 18/06/2008 07:24 hs
form1.label1.caption="aaaaa"
.......
form12.label15.top=3450
e assim por diante. Basta referenciar o nome do Form, o label e a propriedade do mesmo.
No design, coloque os labels em array, que vai facilitar essa tarefa.
|
|
|
|
Donkey
|
PRESIDENTE PRUDENTE
SP - BRASIL
|
|
Postada em 18/06/2008 09:15 hs
Ira fazer um for em todos os controles do formulario, ai vc muda a propriedade que estiver a fim, label, cor, fonte, etc.....
Dim Nrocontrole as integer
For NroControle = 0 To me.Controls.Count - 1
Var.Mascara = TypeName(me.Controls(NroControle))
If TypeName(me.Controls(NroControle)) = "Label" Then
me.controls(nrocontrole).caption = "Label alterado..."
endif
next
|
|
|
|
|
|
Postada em 18/06/2008 09:39 hs
donkey ate achei legal sua função, só nao entendi o que essa linha faz Var.Mascara = TypeName(me.Controls(NroControle))
e o pq de utiliza-la ? |
|
|
|
dr.X
|
BELO HORIZONTE
MG - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 18/06/2008 10:23 hs
Obrigadão moçada fera !!!! |
|
|
|
Donkey
|
PRESIDENTE PRUDENTE
SP - BRASIL
|
|
Postada em 18/06/2008 13:26 hs
Ops... foi mal.. não precisava dela, é q eu copiei e colei de uma função do meu sistema, no meu eu coloco o tipo dela numa variavel, pra não ficar tendo que testar a todo momento.... rs
Faltou apagar essa linha...
T+
|
|
|
|
