{"id":1353,"date":"2019-03-25T17:34:43","date_gmt":"2019-03-25T20:34:43","guid":{"rendered":"http:\/\/xexeu.elipse.com.br\/pt\/nocoes-de-vbscript-no-software-elipse-e3-licao-9-adicionando-objetos-em-execucao\/"},"modified":"2020-02-20T15:15:54","modified_gmt":"2020-02-20T18:15:54","slug":"nocoes-de-vbscript-no-software-elipse-e3-licao-9-adicionando-objetos-em-execucao","status":"publish","type":"post","link":"https:\/\/kb.elipse.com.br\/en\/nocoes-de-vbscript-no-software-elipse-e3-licao-9-adicionando-objetos-em-execucao\/","title":{"rendered":"No\u00e7\u00f5es de VBScript no Software Elipse E3: Li\u00e7\u00e3o 9 – Adicionando objetos em execu\u00e7\u00e3o."},"content":{"rendered":"

AddObject(strClassName, bActivate)<\/span><\/p>\n

O m\u00e9todo AddObject() adiciona um novo objeto \u00e0 aplica\u00e7\u00e3o.
\nstrClassName<\/span>: tipo de objeto que ser\u00e1 criado.
\nbActivate<\/span>: indica se o objeto ser\u00e1 ativado ap\u00f3s a cria\u00e7\u00e3o.
\nQuando o objeto estiver ativado, os links e os scripts ficam habilitados. Se o objeto for criado com bActivate em False, mais tarde ele pode ser ativado pelo m\u00e9todo Activate().<\/p>\n

Exemplo:<\/p>\n

set retangulo = Screen.AddObject(\"DrawRect\", True)<\/span>
retangulo.X = 200<\/span>
retangulo.Y = 200<\/span>
retangulo.ForegroundColor = vbRed<\/span><\/pre>\n

\nWith…End With<\/span><\/p>\n
M\u00faltiplas propriedades do mesmo objeto podem ser alteradas utilizando o With..End With. O c\u00f3digo \u00e9 executado mais rapidamente j\u00e1 que o objeto \u00e9 referenciado apenas uma vez.<\/p>\n
Exemplo:<\/p>\n
With Screen.Item(\"Retangulo1\")\u00a0\u00a0\u00a0 <\/span>
\u00a0\u00a0\u00a0 .BackgroundColor = vbRed<\/span>
\u00a0\u00a0\u00a0 .BorderColor = vbBlack<\/span>
\u00a0\u00a0\u00a0 .Effect3D = 1<\/span>
\u00a0\u00a0\u00a0 .Visible = True<\/span>
End With<\/span><\/pre>\n
TypeName(varname)<\/span><\/span><\/p>\n
Retorna um valor String contendo informa\u00e7\u00f5es sobre uma vari\u00e1vel de tipo de dados. O tipo do objeto pode ser visto na lista de propriedades.<\/p>\n
\"\"
\nFigura 14<\/span>\"\"
\nFigura 15<\/span>\"\"
\nFigura 16<\/span><\/p>\n<\/div>\n
Exemplo:<\/p>\n
set Tag = Application.GetObject(\"Dados.TagInterno1\")\u00a0\u00a0\u00a0 <\/span>
MsgBox TypeName(Tag)<\/span>
'Ser\u00e1 exibida uma caixa de mensagem com o texto \"InternalTag\"<\/span>
set Botao = Screen.Item(\"CommandButton1\")<\/span>
MsgBox TypeName(Botao)<\/span>
'Ser\u00e1 exibida uma caixa de mensagem com o texto \"CommandButton\"<\/span><\/pre>\n
Exerc\u00edcios:<\/span><\/span><\/p>\n
1. Ao clicar na tela, crie um ret\u00e2ngulo azul na posi\u00e7\u00e3o do clique.
\n2. Crie um bot\u00e3o que crie um tag interno e um tag demo na pasta Dados em execu\u00e7\u00e3o.
\n3. Crie uma associa\u00e7\u00e3o por tabela por script da cor do ret\u00e2ngulo com o tag demo obedecendo \u00e0 seguinte tabela de cores:<\/p>\n\n\n\n\n\n\n\n
\u00a0Min<\/td>\n\u00a0Max<\/td>\n\u00a0Cor<\/td>\n<\/tr>\n
\u00a00<\/td>\n\u00a025<\/td>\n\u00a0Verde<\/td>\n<\/tr>\n
\u00a025<\/td>\n\u00a050<\/td>\n\u00a0Azul<\/td>\n<\/tr>\n
\u00a050<\/td>\n\u00a075<\/td>\n\u00a0Amarelo<\/td>\n<\/tr>\n
\u00a075<\/td>\n\u00a0100<\/td>\n\u00a0Vermelho<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n
4. Crie uma lista de sele\u00e7\u00e3o (ComboBox). Essa lista deve exibir o nome de todos os tags internos existentes na pasta Dados. A atualiza\u00e7\u00e3o da lista pode ser feita em um bot\u00e3o (Atualizar). Para diferenciar os tags demo e interno, utilize o comando TypeName.
\n5. Ao selecionar um tag na lista de sele\u00e7\u00e3o, um setpoint deve ser criado na tela e associado ao tag selecionado.\u00a0 Use a coordenada X=0 e Y varia de acordo com a quantidade de setpoints j\u00e1 criados.
\n6. Ao clicar o bot\u00e3o direito na tela, um menu com o nome de todos os setpoints existentes na tela deve ser listado. Para saber se o objeto da tela \u00e9 um setpoint, utilize o comando TypeName.
\n7. Ao selecionar um setpoint no menu da tela apagar o objeto. Exibir uma mensagem de confirma\u00e7\u00e3o antes de apagar.<\/p>\n
Anexos:<\/h3>\n
Licao9.zip<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"
AddObject(strClassName, bActivate)O m\u00e9todo AddObject() adiciona um novo objeto \u00e0 aplica\u00e7\u00e3o.strClassName: tipo de objeto que ser\u00e1 criado.bActivate: indica se o objeto ser\u00e1 ativado ap\u00f3s a cria\u00e7\u00e3o…
\nAutor
\nPaula Pereira En\u00e9as<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_exactmetrics_skip_tracking":false,"_exactmetrics_sitenote_active":false,"_exactmetrics_sitenote_note":"","_exactmetrics_sitenote_category":0},"categories":[578,610],"tags":[],"yoast_head":"\nNo\u00e7\u00f5es de VBScript no Software Elipse E3: Li\u00e7\u00e3o 9 - Adicionando objetos em execu\u00e7\u00e3o.[:] - Elipse Knowledgebase<\/title>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/kb.elipse.com.br\/nocoes-de-vbscript-no-software-elipse-e3-licao-9-adicionando-objetos-em-execucao\/\" \/>\n<meta property=\"og:locale\" content=\"en_US\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"No\u00e7\u00f5es de VBScript no Software Elipse E3: Li\u00e7\u00e3o 9 - Adicionando objetos em execu\u00e7\u00e3o.\" \/>\n<meta property=\"og:description\" content=\"AddObject(strClassName, bActivate)O m\u00e9todo AddObject() adiciona um novo objeto \u00e0 aplica\u00e7\u00e3o.strClassName: tipo de objeto que ser\u00e1 criado.bActivate: indica se o objeto ser\u00e1 ativado ap\u00f3s a cria\u00e7\u00e3o... Autor Paula Pereira En\u00e9as\" \/>\n<meta property=\"og:url\" content=\"https:\/\/kb.elipse.com.br\/nocoes-de-vbscript-no-software-elipse-e3-licao-9-adicionando-objetos-em-execucao\/\" \/>\n<meta property=\"og:site_name\" content=\"Elipse Knowledgebase\" \/>\n<meta property=\"article:publisher\" content=\"http:\/\/www.facebook.com\/elipsesoftware\" \/>\n<meta property=\"article:published_time\" content=\"2019-03-25T20:34:43+00:00\" \/>\n<meta property=\"article:modified_time\" content=\"2020-02-20T18:15:54+00:00\" \/>\n<meta property=\"og:image\" content=\"http:\/\/kb.elipse.com.br\/pt-br\/images\/ID2103\/fig_014.bmp\" \/>\n<meta name=\"author\" content=\"Elipse Software\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"Written by\" \/>\n\t<meta name=\"twitter:data1\" content=\"Elipse Software\" \/>\n\t<meta name=\"twitter:label2\" content=\"Est. reading time\" \/>\n\t<meta name=\"twitter:data2\" content=\"2 minutes\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\/\/schema.org\",\"@graph\":[{\"@type\":\"Article\",\"@id\":\"https:\/\/kb.elipse.com.br\/nocoes-de-vbscript-no-software-elipse-e3-licao-9-adicionando-objetos-em-execucao\/#article\",\"isPartOf\":{\"@id\":\"https:\/\/kb.elipse.com.br\/nocoes-de-vbscript-no-software-elipse-e3-licao-9-adicionando-objetos-em-execucao\/\"},\"author\":{\"name\":\"Elipse Software\",\"@id\":\"https:\/\/kb.elipse.com.br\/#\/schema\/person\/def69ea453ea60b250497b89225a9f87\"},\"headline\":\"No\u00e7\u00f5es de VBScript no Software Elipse E3: Li\u00e7\u00e3o 9 – Adicionando objetos em execu\u00e7\u00e3o.\",\"datePublished\":\"2019-03-25T20:34:43+00:00\",\"dateModified\":\"2020-02-20T18:15:54+00:00\",\"mainEntityOfPage\":{\"@id\":\"https:\/\/kb.elipse.com.br\/nocoes-de-vbscript-no-software-elipse-e3-licao-9-adicionando-objetos-em-execucao\/\"},\"wordCount\":352,\"commentCount\":0,\"publisher\":{\"@id\":\"https:\/\/kb.elipse.com.br\/#organization\"},\"articleSection\":[\"Elipse E3\",\"Scripts\"],\"inLanguage\":\"en-US\",\"potentialAction\":[{\"@type\":\"CommentAction\",\"name\":\"Comment\",\"target\":[\"https:\/\/kb.elipse.com.br\/nocoes-de-vbscript-no-software-elipse-e3-licao-9-adicionando-objetos-em-execucao\/#respond\"]}]},{\"@type\":\"WebPage\",\"@id\":\"https:\/\/kb.elipse.com.br\/nocoes-de-vbscript-no-software-elipse-e3-licao-9-adicionando-objetos-em-execucao\/\",\"url\":\"https:\/\/kb.elipse.com.br\/nocoes-de-vbscript-no-software-elipse-e3-licao-9-adicionando-objetos-em-execucao\/\",\"name\":\"[:pt]No\u00e7\u00f5es de VBScript no Software Elipse E3: Li\u00e7\u00e3o 9 - Adicionando objetos em execu\u00e7\u00e3o.[:] - Elipse Knowledgebase\",\"isPartOf\":{\"@id\":\"https:\/\/kb.elipse.com.br\/#website\"},\"datePublished\":\"2019-03-25T20:34:43+00:00\",\"dateModified\":\"2020-02-20T18:15:54+00:00\",\"breadcrumb\":{\"@id\":\"https:\/\/kb.elipse.com.br\/nocoes-de-vbscript-no-software-elipse-e3-licao-9-adicionando-objetos-em-execucao\/#breadcrumb\"},\"inLanguage\":\"en-US\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\/\/kb.elipse.com.br\/nocoes-de-vbscript-no-software-elipse-e3-licao-9-adicionando-objetos-em-execucao\/\"]}]},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\/\/kb.elipse.com.br\/nocoes-de-vbscript-no-software-elipse-e3-licao-9-adicionando-objetos-em-execucao\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"In\u00edcio\",\"item\":\"https:\/\/kb.elipse.com.br\/en\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"No\u00e7\u00f5es de VBScript no Software Elipse E3: Li\u00e7\u00e3o 9 – Adicionando objetos em execu\u00e7\u00e3o.\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\/\/kb.elipse.com.br\/#website\",\"url\":\"https:\/\/kb.elipse.com.br\/\",\"name\":\"Elipse Knowledgebase\",\"description\":\"\",\"publisher\":{\"@id\":\"https:\/\/kb.elipse.com.br\/#organization\"},\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\/\/kb.elipse.com.br\/?s={search_term_string}\"},\"query-input\":\"required name=search_term_string\"}],\"inLanguage\":\"en-US\"},{\"@type\":\"Organization\",\"@id\":\"https:\/\/kb.elipse.com.br\/#organization\",\"name\":\"Elipse Software\",\"url\":\"https:\/\/kb.elipse.com.br\/\",\"sameAs\":[\"http:\/\/www.facebook.com\/elipsesoftware\"],\"logo\":{\"@type\":\"ImageObject\",\"inLanguage\":\"en-US\",\"@id\":\"https:\/\/kb.elipse.com.br\/#\/schema\/logo\/image\/\",\"url\":\"https:\/\/kb.elipse.com.br\/wp-content\/uploads\/2019\/05\/schererelipse-com-br\/logoElipse.png\",\"contentUrl\":\"https:\/\/kb.elipse.com.br\/wp-content\/uploads\/2019\/05\/schererelipse-com-br\/logoElipse.png\",\"width\":161,\"height\":58,\"caption\":\"Elipse Software\"},\"image\":{\"@id\":\"https:\/\/kb.elipse.com.br\/#\/schema\/logo\/image\/\"}},{\"@type\":\"Person\",\"@id\":\"https:\/\/kb.elipse.com.br\/#\/schema\/person\/def69ea453ea60b250497b89225a9f87\",\"name\":\"Elipse Software\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"en-US\",\"@id\":\"https:\/\/kb.elipse.com.br\/#\/schema\/person\/image\/\",\"url\":\"https:\/\/secure.gravatar.com\/avatar\/ff1f7ec38f4687b06f6851d97b3cd2d0?s=96&d=mm&r=g\",\"contentUrl\":\"https:\/\/secure.gravatar.com\/avatar\/ff1f7ec38f4687b06f6851d97b3cd2d0?s=96&d=mm&r=g\",\"caption\":\"Elipse Software\"},\"url\":\"https:\/\/kb.elipse.com.br\/en\/author\/webmasterelipse-com-br\/\"}]}<\/script>\n<!-- \/ Yoast SEO plugin. -->","yoast_head_json":{"title":"No\u00e7\u00f5es de VBScript no Software Elipse E3: Li\u00e7\u00e3o 9 - Adicionando objetos em execu\u00e7\u00e3o.[:] - Elipse Knowledgebase","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/kb.elipse.com.br\/nocoes-de-vbscript-no-software-elipse-e3-licao-9-adicionando-objetos-em-execucao\/","og_locale":"en_US","og_type":"article","og_title":"[:pt]No\u00e7\u00f5es de VBScript no Software Elipse E3: Li\u00e7\u00e3o 9 - Adicionando objetos em execu\u00e7\u00e3o.[:] - Elipse Knowledgebase","og_description":"[:pt]AddObject(strClassName, bActivate)O m\u00e9todo AddObject() adiciona um novo objeto \u00e0 aplica\u00e7\u00e3o.strClassName: tipo de objeto que ser\u00e1 criado.bActivate: indica se o objeto ser\u00e1 ativado ap\u00f3s a cria\u00e7\u00e3o... Autor Paula Pereira En\u00e9as[:]","og_url":"https:\/\/kb.elipse.com.br\/nocoes-de-vbscript-no-software-elipse-e3-licao-9-adicionando-objetos-em-execucao\/","og_site_name":"Elipse Knowledgebase","article_publisher":"http:\/\/www.facebook.com\/elipsesoftware","article_published_time":"2019-03-25T20:34:43+00:00","article_modified_time":"2020-02-20T18:15:54+00:00","og_image":[{"url":"http:\/\/kb.elipse.com.br\/pt-br\/images\/ID2103\/fig_014.bmp"}],"author":"Elipse Software","twitter_card":"summary_large_image","twitter_misc":{"Written by":"Elipse Software","Est. reading time":"2 minutes"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/kb.elipse.com.br\/nocoes-de-vbscript-no-software-elipse-e3-licao-9-adicionando-objetos-em-execucao\/#article","isPartOf":{"@id":"https:\/\/kb.elipse.com.br\/nocoes-de-vbscript-no-software-elipse-e3-licao-9-adicionando-objetos-em-execucao\/"},"author":{"name":"Elipse Software","@id":"https:\/\/kb.elipse.com.br\/#\/schema\/person\/def69ea453ea60b250497b89225a9f87"},"headline":"No\u00e7\u00f5es de VBScript no Software Elipse E3: Li\u00e7\u00e3o 9 – Adicionando objetos em execu\u00e7\u00e3o.","datePublished":"2019-03-25T20:34:43+00:00","dateModified":"2020-02-20T18:15:54+00:00","mainEntityOfPage":{"@id":"https:\/\/kb.elipse.com.br\/nocoes-de-vbscript-no-software-elipse-e3-licao-9-adicionando-objetos-em-execucao\/"},"wordCount":352,"commentCount":0,"publisher":{"@id":"https:\/\/kb.elipse.com.br\/#organization"},"articleSection":["Elipse E3","Scripts"],"inLanguage":"en-US","potentialAction":[{"@type":"CommentAction","name":"Comment","target":["https:\/\/kb.elipse.com.br\/nocoes-de-vbscript-no-software-elipse-e3-licao-9-adicionando-objetos-em-execucao\/#respond"]}]},{"@type":"WebPage","@id":"https:\/\/kb.elipse.com.br\/nocoes-de-vbscript-no-software-elipse-e3-licao-9-adicionando-objetos-em-execucao\/","url":"https:\/\/kb.elipse.com.br\/nocoes-de-vbscript-no-software-elipse-e3-licao-9-adicionando-objetos-em-execucao\/","name":"[:pt]No\u00e7\u00f5es de VBScript no Software Elipse E3: Li\u00e7\u00e3o 9 - Adicionando objetos em execu\u00e7\u00e3o.[:] - Elipse Knowledgebase","isPartOf":{"@id":"https:\/\/kb.elipse.com.br\/#website"},"datePublished":"2019-03-25T20:34:43+00:00","dateModified":"2020-02-20T18:15:54+00:00","breadcrumb":{"@id":"https:\/\/kb.elipse.com.br\/nocoes-de-vbscript-no-software-elipse-e3-licao-9-adicionando-objetos-em-execucao\/#breadcrumb"},"inLanguage":"en-US","potentialAction":[{"@type":"ReadAction","target":["https:\/\/kb.elipse.com.br\/nocoes-de-vbscript-no-software-elipse-e3-licao-9-adicionando-objetos-em-execucao\/"]}]},{"@type":"BreadcrumbList","@id":"https:\/\/kb.elipse.com.br\/nocoes-de-vbscript-no-software-elipse-e3-licao-9-adicionando-objetos-em-execucao\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"In\u00edcio","item":"https:\/\/kb.elipse.com.br\/en\/"},{"@type":"ListItem","position":2,"name":"No\u00e7\u00f5es de VBScript no Software Elipse E3: Li\u00e7\u00e3o 9 – Adicionando objetos em execu\u00e7\u00e3o."}]},{"@type":"WebSite","@id":"https:\/\/kb.elipse.com.br\/#website","url":"https:\/\/kb.elipse.com.br\/","name":"Elipse Knowledgebase","description":"","publisher":{"@id":"https:\/\/kb.elipse.com.br\/#organization"},"potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/kb.elipse.com.br\/?s={search_term_string}"},"query-input":"required name=search_term_string"}],"inLanguage":"en-US"},{"@type":"Organization","@id":"https:\/\/kb.elipse.com.br\/#organization","name":"Elipse Software","url":"https:\/\/kb.elipse.com.br\/","sameAs":["http:\/\/www.facebook.com\/elipsesoftware"],"logo":{"@type":"ImageObject","inLanguage":"en-US","@id":"https:\/\/kb.elipse.com.br\/#\/schema\/logo\/image\/","url":"https:\/\/kb.elipse.com.br\/wp-content\/uploads\/2019\/05\/schererelipse-com-br\/logoElipse.png","contentUrl":"https:\/\/kb.elipse.com.br\/wp-content\/uploads\/2019\/05\/schererelipse-com-br\/logoElipse.png","width":161,"height":58,"caption":"Elipse Software"},"image":{"@id":"https:\/\/kb.elipse.com.br\/#\/schema\/logo\/image\/"}},{"@type":"Person","@id":"https:\/\/kb.elipse.com.br\/#\/schema\/person\/def69ea453ea60b250497b89225a9f87","name":"Elipse Software","image":{"@type":"ImageObject","inLanguage":"en-US","@id":"https:\/\/kb.elipse.com.br\/#\/schema\/person\/image\/","url":"https:\/\/secure.gravatar.com\/avatar\/ff1f7ec38f4687b06f6851d97b3cd2d0?s=96&d=mm&r=g","contentUrl":"https:\/\/secure.gravatar.com\/avatar\/ff1f7ec38f4687b06f6851d97b3cd2d0?s=96&d=mm&r=g","caption":"Elipse Software"},"url":"https:\/\/kb.elipse.com.br\/en\/author\/webmasterelipse-com-br\/"}]}},"_links":{"self":[{"href":"https:\/\/kb.elipse.com.br\/en\/wp-json\/wp\/v2\/posts\/1353"}],"collection":[{"href":"https:\/\/kb.elipse.com.br\/en\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/kb.elipse.com.br\/en\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/kb.elipse.com.br\/en\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/kb.elipse.com.br\/en\/wp-json\/wp\/v2\/comments?post=1353"}],"version-history":[{"count":5,"href":"https:\/\/kb.elipse.com.br\/en\/wp-json\/wp\/v2\/posts\/1353\/revisions"}],"predecessor-version":[{"id":10244,"href":"https:\/\/kb.elipse.com.br\/en\/wp-json\/wp\/v2\/posts\/1353\/revisions\/10244"}],"wp:attachment":[{"href":"https:\/\/kb.elipse.com.br\/en\/wp-json\/wp\/v2\/media?parent=1353"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/kb.elipse.com.br\/en\/wp-json\/wp\/v2\/categories?post=1353"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/kb.elipse.com.br\/en\/wp-json\/wp\/v2\/tags?post=1353"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}