El Guru Programador
Usuario DESCONOCIDO | Registrate Gratis | Usuarios Registrados
  Home
Usuarios
  Usuarios Registrados
  Registrate Gratis!
Zonas
  ASP/ASP.NET
  Visual Basic/VB.NET
  JavaScript
  HTML/CSS/XML
  Flash/FireWorks
  PHP/MySQL
  Velneo
  C++/C#
  SQL
  Otros...
Recursos
  Tutoriales del Guru
  Directorio de Sitios
  Downloads
Comunidad
  Libreria de Codigo
  Foros del Guru
  Ofertas de Trabajo
Servicios
  Boletin de Novedades
  Registro de Dominios
Acerca de...
  Publicidad
  Contactos
Registro dominios
DiscoAzul.com
PlanetadeJuego.com
WMF2BMP
Autor [smgsoftware] Calificacion
Este programa convierte las imagenes WMF (Microsoft Office) a BMP.

'****************************************************************
'Copyright 2003-2004 SMG Software.Todos los derechos reservados.
'Web:www.smgsoftware.cjb.net
'Mail:[email protected]
'****************************************************************
Private Sub Command1_Click()
If File1.filename = "" Then GoTo end1
File = InputBox(File1.Path & "\" & File1.filename, "Guardar como .bmp", App.Path & "\" & bmpfile)
On Error GoTo end1
SavePicture Picture2.Image, File
end1:
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
On Error GoTo end3
Dir1.Path = Drive1.Drive
Exit Sub
end3:

MsgBox "[" & StrConv(Drive1.Drive, vbUpperCase) & "] El dispositivo no responde", vbCritical, "Error"
Drive1.Refresh
End Sub
Private Sub File1_Click()
Text1.Text = File1.Path & "\" & File1.filename
On Error GoTo end2

Picture1.Picture = LoadPicture(File1.Path & "\" & File1.filename)

Picture2.Picture = LoadPicture(File1.Path & "\" & File1.filename)
end2:
End Sub
Private Sub Option1_Click()
File1.Pattern = "*.WMF" '
End Sub
Private Sub Option2_Click()
File1.Pattern = "*.BMP"
End Sub
Private Sub Option3_Click()
File1.Pattern = "*.wmf;*.BMP;*.EMF"
End Sub
 
Terminos de Uso

1 - Copiar o Descargarse este contenido implica aceptar los terminos aqui detallados.

2 - Usted puede utilizar este contenido en sus propios programas y puede compilarlo en un programa y modificarlo a su gusto.

3 - Usted NO PUEDE redistribuir este contenido tal como se presenta aqui sin el permiso del autor original del mismo.

4 - Usted seguirá cualquier restricción adicional del copyright que el autor pudo haber puesto en la descripción del contenido.

 

Calificar Codigo Fuente
Subir TU Codigo Fuente

 

 
Contactos myStudio Network