[Aportes indexados] Convertidos de íconos.

Estado
Cerrado para nuevas respuestas.

Shed

128bpm
Ex-Staff
Convertidor de BMP a ICONOS.

Ponemos un Image. Agregamos 3 Texts. Y un botón.
Codigo:

[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Sub</span> Command1_Click<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"> </li><li style="" class="li2"><span style="color: #b1b100;">Dim</span> NombreArc</li><li style="" class="li1">NombreArc = Text3.<span style="color: #66cc66;">Text</span></li><li style="" class="li1"> </li><li style="" class="li2"><span style="color: #b1b100;">Dim</span> Dir1</li><li style="" class="li1">Dir1 = Text1.<span style="color: #66cc66;">Text</span> <span style="color: #808080;">'Ruta del archivo a convertir</span></li><li style="" class="li1">Image1.<span style="color: #66cc66;">Picture</span> = <span style="color: #b1b100;">LoadPicture</span><span style="color: #66cc66;">(</span>Dir1 & <span style="color: #ffffff;">"\"</span> & NombreArc & <span style="color: #ffffff;">".bmp"</span><span style="color: #66cc66;">)</span></li><li style="" class="li2"> </li><li style="" class="li1"><span style="color: #b1b100;">Dim</span> Dir2</li><li style="" class="li1">Dir2 = Text2.<span style="color: #66cc66;">Text</span> <span style="color: #808080;">'Destino del archivo</span></li><li style="" class="li2"><span style="color: #b1b100;">SavePicture</span> Image1.<span style="color: #66cc66;">Picture</span>, Dir2 & <span style="color: #ffffff;">"\"</span> & NombreArc & <span style="color: #ffffff;">".ico"</span></li><li style="" class="li1">    </li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span></li><li style="" class="li2"> </li><li style="" class="li1"><span style="color: #b1b100;">Private</span> <span style="color: #b1b100;">Sub</span> Form_Load<span style="color: #66cc66;">(</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"><span style="color: #b1b100;">MsgBox</span> <span style="color: #ffffff;">"La ruta de acceso y el destino deben ser solo las carpetas y subcarpetas, sin nombre ni extencion. Solo sirve para .bmp pero lo pueden adecuar."</span></li><li style="" class="li2">Text1.<span style="color: #66cc66;">Text</span> = <span style="color: #ffffff;">"Ruta de acceso"</span></li><li style="" class="li1">Text2.<span style="color: #66cc66;">Text</span> = <span style="color: #ffffff;">"Destino"</span></li><li style="" class="li1">Text3.<span style="color: #66cc66;">Text</span> = <span style="color: #ffffff;">"Nombre del Archivo"</span></li><li style="" class="li2">Command1.<span style="color: #66cc66;">Caption</span> = <span style="color: #ffffff;">"Convertir"</span></li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">Sub</span></li></ol></div>[/vb]
 
Estado
Cerrado para nuevas respuestas.
Arriba