SABER TODOS OS BOTOES CRIADO NUM FORM

JOAOBENEVIDES 12/02/2011 11:06:54
#365231
Gostaria de saber como saber todos os botoes criado num form tem como
NILTON.VIANNA 12/02/2011 14:01:50
#365239
se endendi, vc quer saber quantos Buttom tem no seu projeto?
se vc colocou como nome cmdButton1 cmdButton2, , é so ir no combo(General) do vb
ASHKATCHUP 12/02/2011 15:52:51
#365247 

    Dim x As Control
    [ô]
    For Each x In Me.Controls
        If TypeName(x) = [Ô]CommandButton[Ô] Then
            Stop
        End If
    Next
JOAOBENEVIDES 14/02/2011 09:14:59
#365358
tem como eu saber o nome do caption
ASHKATCHUP 14/02/2011 09:32:11
#365359
Como assim?
JOAOBENEVIDES 14/02/2011 09:43:52
#365361
nesta funcao
Dim x As Control
[ô]
For Each x In Me.Controls
If TypeName(x) = [Ô]CommandButton[Ô] Then
Stop
End If
Next

ele me mostra se o botao for igual ao nome mais eu quero pegar todo os botao com nome que eu dei no caption tipo

cmdnovo = Novo Cadastro

eu quero pegar o nome novo cadastro e nao o cmdnovo
porque

estou jogando num listview para liberacao de botao num formulario porque meu cliente libera por botao
os usuarios
JEISONANTONI 14/02/2011 10:33:48
#365364 Resposta escolhida
faz assim

dim ctrl as control

for each ctrl in me.controls
if TypeOf ctrl is CommandButton then
MsgBox ctrl.Caption [ô]aki pega o caption do batão = Novo Cadatro
MsgBox ctrl.Name [ô]aki pega o name do botao = cmdNovo
end if
next
JOAOBENEVIDES 14/02/2011 10:57:48
#365370
e possivel pegar de outro form tipo

for each ctrl in frmcall.controls
if TypeOf ctrl is CommandButton then
MsgBox ctrl.Caption [ô]aki pega o caption do batão = Novo Cadatro
MsgBox ctrl.Name [ô]aki pega o name do botao = cmdNovo
end if
next

acontece que ele abre o form frmcall tem como nao abrir o form ?
ASHKATCHUP 14/02/2011 11:01:34
#365371 

    Dim x As Control
    [ô]
    For Each x In Me.Controls
        If TypeName(x) = [Ô]CommandButton[Ô] Then
			if x.Caption = [Ô]Novo Cadastro[Ô] Then
				Stop
			End if
        End If
    Next
ASHKATCHUP 14/02/2011 11:03:07
#365372
Ele vai ter que carregar o form para fazer isso... o que vc pode fazer é fechar o form depois


unload frmcall
JOAOBENEVIDES 14/02/2011 11:04:00
#365374
mais vou fazer isto em no minino uns 20 forms
Página 1 de 2 [11 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar