CAPTIONS DOS LABELS
Como listar os Captions de todos os Labels de um form utilizando a função FindWindow e FindWindowEx?
Eu coloquei essa função em um módulo
[ô]Limpar os controles do Form
Public Function Limpar(Frm As Form) [ô] Optional TBox As Integer, Optional Combo As Integer, Optional masked As Integer, Optional Checked As Integer)
Dim i As Integer
For i = 0 To Frm.Controls.Count - 1
If TypeOf Frm.Controls(i) Is TextBox Then Frm.Controls(i).Text = Empty
If TypeOf Frm.Controls(i) Is ComboBox Then
Frm.Controls(i).Clear [ô]ListIndex = 0
End If
If TypeOf Frm.Controls(i) Is MaskEdBox Then
Frm.Controls(i).Mask = [Ô][Ô]
Frm.Controls(i).Text = [Ô][Ô]
End If
If TypeOf Frm.Controls(i) Is CheckBox Then Frm.Controls(i).Value = False
Next i
End Function
Citação::
MILHOMENS com a função que você deseja eu não posso ajudar, más utilizo uma função para limpar o meu form, que você pode adaptar para você e pegar o caption dos labels, acho que isso pode te ajudar
Eu coloquei essa função em um módulo
[ô]Limpar os controles do Form
Public Function Limpar(Frm As Form) [ô] Optional TBox As Integer, Optional Combo As Integer, Optional masked As Integer, Optional Checked As Integer)
Dim i As Integer
For i = 0 To Frm.Controls.Count - 1
If TypeOf Frm.Controls(i) Is TextBox Then Frm.Controls(i).Text = Empty
If TypeOf Frm.Controls(i) Is ComboBox Then
Frm.Controls(i).Clear [ô]ListIndex = 0
End If
If TypeOf Frm.Controls(i) Is MaskEdBox Then
Frm.Controls(i).Mask = [Ô][Ô]
Frm.Controls(i).Text = [Ô][Ô]
End If
If TypeOf Frm.Controls(i) Is CheckBox Then Frm.Controls(i).Value = False
Next i
End Function
ALVAROVB2009, fico muito agradecido pela sua atenção.
No entanto, a tÃtulo de didática mesmo, a minha situação é a seguinte:
Tenho um Janela_X aberta e nela há 5 Labels Rotulados (lblPath, lblNome,...) e com um Janela_Y eu gostaria de acessar via FindWindow a Janela_X e listar todos os Labels via FindWindwEx num listbox da Janela_Y capturando o seus Captions (lblisso, lblAquilo...)
Alguém poderia me ajudar com isso?
Desde já,
agradeço.
