Jump to content
obamaself

Verificar objecto

Recommended Posts

obamaself

Boas

eu quero adicionar um evento a objectos por código.

Só quero saber como é que verifico se o objecto é uma textbox , uma label ou assim.

Share this post


Link to post
Share on other sites
Andrepereira9

Como assim. Explica-te lá melhor


A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Share this post


Link to post
Share on other sites
obamaself

eu dou outro exemplo.

for each objecto as control in me.controls

''aqui quero ver se o objecto é uma textbox ou uma label

next

Share this post


Link to post
Share on other sites
Andrepereira9

Descobri outra maneira.

E se calhar a mais correcta  :P

For Each objecto In Me.Controls

   If TypeOf objecto Is Label Then
        MsgBox("Label")
   ElseIf TypeOf objecto Is TextBox Then
         MsgBox("TextBox")
   End If
Next

EDIT: Apaguei a mensagem anterior, pois o código contido na mensagem anterior, não era o mais correcto.


A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Share this post


Link to post
Share on other sites
Caça

Descobri outra maneira.

E se calhar a mais correcta  :P

For Each objecto In Me.Controls

   If TypeOf objecto Is Label Then
        MsgBox("Label")
   ElseIf TypeOf objecto Is TextBox Then
         MsgBox("TextBox")
   End If
Next

Deves usar este, não o outro.


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
bioshock

eu quero adicionar um evento a objectos por código.

Private WithEvents Text As New Textbox

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.