{"id":133,"date":"2009-05-08T15:57:53","date_gmt":"2009-05-08T18:57:53","guid":{"rendered":"http:\/\/leandroascierto.com\/blog\/?p=133"},"modified":"2011-08-27T08:27:52","modified_gmt":"2011-08-27T11:27:52","slug":"ejemplo","status":"publish","type":"post","link":"https:\/\/leandroascierto.com\/blog\/ejemplo\/","title":{"rendered":"Ejemplo"},"content":{"rendered":"<p><span style=\"text-decoration: underline;\">Ejemplo:<\/span><\/p>\n<p style=\"text-align: justify;\">A continuaci\u00f3n se encuentra un ejemplo sencillo que les ense\u00f1ar\u00e1 c\u00f3mo aplicar dichos Skins a un formulario, adem\u00e1s se mostrar\u00e1n las propiedades y funciones con las que cuenta.<br \/>\nNota: Es aconsejable implementarlo cuando estemos por compilar y no cuando estemos construyendo alg\u00fan proyecto ya que de haber alg\u00fan error este podr\u00eda provocar el cierre de Visual Basic y no nos permitir\u00e1 guardar los cambios de nuestro proyecto.<\/p>\n<pre class=\"brush: vb; title: ; notranslate\" title=\"\">\r\nOption Explicit\r\n\r\n' Declaramos cSkin como la clase ClsSkinner.\r\n Dim cSkin As ClsSkinner\r\n\r\nPrivate Sub Form_Load()\r\n\r\n' Creamos e inicializamos a cSkin\r\n Set cSkin = New ClsSkinner\r\n\r\n' Esto es si queremos que el \u00e1rea del cliente se pinte con el tema del skin.\r\n ' Ojo!! esto har\u00e1 que los controles Labels, Image, Shapes y Line que est\u00e9n directamente sobre el formuario no se muestren.\r\n ' En el caso que no querramos que esto pase lo dejamos = False.\r\n cSkin.PaintClientArea = True\r\n\r\n' Indicamos el path donde debe leer el archivo.Skin\r\n cSkin.LoadSkinFromFile App.Path &amp; &quot;\\Comander.Skin&quot;\r\n\r\n' Si quisi\u00e9ramos leer el Skin desde un archivo de recursos llamamos a la funci\u00f3n. LoadSkinFromResource\r\n ' Donde 101 es el index y &quot;SKIN&quot; es la secci\u00f3n.\r\n cSkin.LoadSkinFromResource 101, &quot;SKIN&quot;\r\n\r\n' Aplicamos el Skin a nuestro Formulario.\r\n cSkin.HookForm Me.hwnd\r\n\r\nEnd Sub\r\n\r\nPrivate Sub Form_Unload(Cancel As Integer)\r\n\r\n' Detenemos la Sublcasificaci\u00f3n.\r\n cSkin.UnHookForm Me.hwnd\r\n\r\n' Descargamos la clase de la memoria\r\n Set cSkin = Nothing\r\n\r\nEnd Sub\r\n<\/pre>\n<\/p>\n<p align=\"center\"><a href=\"https:\/\/leandroascierto.com\/blog\/descarga.php?url=Ejemplo Simple.zip\"><img loading=\"lazy\" decoding=\"async\" class=\"aligncenter\" title=\"Descargar\" src=\"https:\/\/leandroascierto.com\/blog\/descarga.php?file=Ejemplo Simple.zip\" alt=\"\" width=\"280\" height=\"61\" \/><\/a><\/p>\n","protected":false},"excerpt":{"rendered":"<p>Ejemplo: A continuaci\u00f3n se encuentra un ejemplo sencillo que les ense\u00f1ar\u00e1 c\u00f3mo aplicar dichos Skins a un formulario, adem\u00e1s se mostrar\u00e1n las propiedades y funciones con las que cuenta. Nota: Es aconsejable implementarlo cuando estemos por compilar y no cuando estemos construyendo alg\u00fan proyecto ya que de haber alg\u00fan error este podr\u00eda provocar el cierre <a href='https:\/\/leandroascierto.com\/blog\/ejemplo\/' class='excerpt-more'>[&#8230;]<\/a><\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[22],"tags":[23],"class_list":["post-133","post","type-post","status-publish","format-standard","hentry","category-skins-para-formularios","tag-skin","category-22-id","post-seq-1","post-parity-odd","meta-position-corners","fix"],"_links":{"self":[{"href":"https:\/\/leandroascierto.com\/blog\/wp-json\/wp\/v2\/posts\/133","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/leandroascierto.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/leandroascierto.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/leandroascierto.com\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/leandroascierto.com\/blog\/wp-json\/wp\/v2\/comments?post=133"}],"version-history":[{"count":9,"href":"https:\/\/leandroascierto.com\/blog\/wp-json\/wp\/v2\/posts\/133\/revisions"}],"predecessor-version":[{"id":144,"href":"https:\/\/leandroascierto.com\/blog\/wp-json\/wp\/v2\/posts\/133\/revisions\/144"}],"wp:attachment":[{"href":"https:\/\/leandroascierto.com\/blog\/wp-json\/wp\/v2\/media?parent=133"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/leandroascierto.com\/blog\/wp-json\/wp\/v2\/categories?post=133"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/leandroascierto.com\/blog\/wp-json\/wp\/v2\/tags?post=133"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}