Buscar en Google

Busca en Todo Vb-Net

Búsqueda personalizada

miércoles, 17 de junio de 2009

Abrir una imagen con PAINT desde VB.Net

En esta ocacion aprenderemos a cargar imagenes con una aplicacion externa a la nuestra, la idea es hacer como una galeria de imagenes (thumbails) y abrirlas con un editor de imagenes, para el siguiente ejemplo solo se tomara una imajen como ejemplo.

Bueno Iniciemos


primero creamos un nuevo proyecto y le adicionamos un Boton y un PictureBox a este ultimo le agregaremos un recurso de una vista previa de la imagen que queremos mostrar, esto en la propiedad imagen del elemento

el formulario nos quedara algo como esto:





En el Load del formulario escribimos lo sigueinte

Dim bmp As Bitmap
bmp = Me.PictureBox1.Image
bmp.Save("C:\imagen.jpg")


-------
En el evento click del boton1
-------

Process.Start("C:\WINDOWS\system32\mspaint.exe", "C:\imagen.jpg")


Si queremos usar una aplicacion distinta solo cambiamos el path del el Process.Start


al precionar el boton nos dara este resultado






Saludos!!!

Ejecutar cmd desde Visual Basic.Net

Muchas veces nos hemos encontrado que para nuestras aplicaciones es necesario ejecutar x comando en Ms-Dos o su ambiente CMD, pues con la clase Process podemos hacerlo.

La clase Process y su sintaxis basica es asi:

Process.Start("notepad.exe")

Tambien podemos pasar parametros asi:

Process.Start("notepad.exe", "C:\miarchivo.txt")

Recordando que notepad.exe se encuentra en la ruta c:\Windows\ , por tanto no hay por que agregar ningun path para iniciar el proceso, de la misma forma si una aplicacion se encuentra, en el folder de nuestra aplicacion tambien podemos ejecutarla de la misma forma, pero si queremos ejecutar una aplicacion ajena tanto a windows como a nuestra aplicacion debemos especificar la ruta del *.exe

Process.Start("C:\....")

Ejecutando proceso (CMD.EXE) y corriendo una sentencia de linea de comandos


Dim Pross As Process = New Process
Console.WriteLine("Iniciando el proceso")
Console.Readline()
Pross .StartInfo.FileName = "cmd.exe"
Pross .StartInfo.Arguments = "/C instruccón /y"
Pross .StartInfo.WindowStyle = ProcessWindowStyle.Hidden
Pross.StartInfo.CreateNoWindow = True
Pross .Start()

Console.WriteLine("Fin del Proceso")
Console.Readline()


Saludos