Como Fechar Todos Os Forms De Uma Vez?

[brunohjoia]

Olá!

Como eu faço para que, ao clicar num botão, o meu programa identifique todos os formulários abertos, com exceção do mdiform, e feche-os um por um? Eu sei que existe uma maneira de usar o FOR EACH para fazer isso, mas não me lembro como.

Alguém aí poderia me ajudar?

Obrigado!

[armagedon]

Dim form As Form

For Each form in Forms

unload form

next

[brunohjoia]

Não teria uma maneira mais genérica? Assim como se eu precisasse iterar entre vários textboxes de um form, por exemplo, e ir preenchendo cada um deles com um texto qualquer?

Obrigado

[mestre fyoda]

se é que estou pençando :

  Citar

nomedocampo.text = "Teste"

lembrando que pode usar tb o

  Citar

unload me

, so que esse codigo so vai fechar o form que esta aberto .

[Graymalkin]

  brunohjoia disse:

Não teria uma maneira mais genérica? Assim como se eu precisasse iterar entre vários textboxes de um form, por exemplo, e ir preenchendo cada um deles com um texto qualquer?

Aquela maneira do armagedon não já é essa "mais genérica"?

Abraços,

Graymalkin

[Guest Mario Neto VBM]

Dim f As Byte

f = Forms.Count

Do While f > 0

Unload Forms(f - 1)

If f = Forms.Count Then Exit Do

f = f - 1

Loop

[brunohjoia]

hummm, desculpem se expressei mal minha nova pergunta. Vou reformulá-la.

A partir de agora esqueçam que preciso iterar entre fomularios. O problema é outro, só que é parecido. O que eu preciso é de um código que va iterando entre todos os controles (textboxes, comboboxes e labels por exemplo) de UM Formulário especiífico e que me mostre uma msgbox escrito TRUE cada vez que o código passar por um controle do tipo textbox. O rpincipal problema é que eu não sei fazer o código identificar cada tipo de controle pelo qual ele está iterando. Entenderam?

Obrigado

[Graymalkin]

  brunohjoia disse:

hummm, desculpem se expressei mal minha nova pergunta. Vou reformulá-la.

A partir de agora esqueçam que preciso iterar entre fomularios. O problema é outro, só que é parecido. O que eu preciso é de um código que va iterando entre todos os controles (textboxes, comboboxes e labels por exemplo) de UM Formulário especiífico e que me mostre uma msgbox escrito TRUE cada vez que o código passar por um controle do tipo textbox. O rpincipal problema é que eu não sei fazer o código identificar cada tipo de controle pelo qual ele está iterando. Entenderam?

Veja se seria isso:

for each c in me.controls
  if typeof c is textbox then
    msgbox c.name & " é uma textbox!"
  else
    msgbox c.name & " não é uma textbox!"
  endif
next c

Certo?

Graymalkin

[brunohjoia]

Opa! Esse jeito funcionou sim cara! é isso mesmo!

Mas eu também encontrei uma função que faz a mesma coisa... Em vez de usar o typeof c is textbox, eu uso if typename( c )="textbox".... Dá na mesma não é????

Vlw cara!

[Graymalkin]

  brunohjoia disse:

Opa! Esse jeito funcionou sim cara! é isso mesmo!

Mas eu também encontrei uma função que faz a mesma coisa... Em vez de usar o typeof c is textbox, eu uso if typename( c )="textbox".... Dá na mesma não é????

Sim, dá no mesmo (apenas observe o caso de maiúsculas e minúsculas na string, no caso de TypeName()).

Abraços,

Graymalkin