Cerrar Microsoft Word desde Vb.net

Hola La idea es contar todos los procesos primero y despues eliminar uno especifico aqui te dejo uno ejemplo espero te ayude el ejemplo

EL EJEMPLO CIERRA EL PROGRAMA WORD SI ESTA HABIERTO si esta cerrado no mandara ningun mensage

    Public Sub killProgram()

        'verificamos si de todos los procesos existe el que queremos
      
        For Each proc In Process.GetProcesses

            If proc.ProcessName = "WINWORD" Then
                ' si el programa esta iniciado aparecera el msgbox pero si no esta inicia no hara nada
                Dim Message As String = "El Programa Puede estar con Datos que posiblemente no se han Guardado Si Finaliza el programa y no gaurda los datos entonces se perderan"
                If MessageBox.Show(Message, "Confirm", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = Windows.Forms.DialogResult.Yes Then

                    'matamos el programa
                    proc.Kill()
                   'salimos del Sub
            Si deseas eliminar varios procesos de Microsoft Word elimina el siguiente codigo en Negritas
                  Exit Sub 

                Else

                End If

            End If
           
        Next

    End Sub

Nota Solo Cierra el programa pero si no guardas el archivo antes entonces se perderá.

 

Fuente original: Msdn.microsoft

Anuncios

Insertar vScroll manual y con funcion Wheel del mouse

hola, aqui les muestros los pasos aplicados en el siguiente codigo:

public Formulario()
{
InitializeComponent();

this.MouseWheel += new MouseEventHandler(pn_contenedor_MouseWheel);

// this. es el formulario a la cual se esta aplicando
}

// lo que esta en negritas es el método que va enlazado al evento MouseWheel

private void pn_contenedor_MouseWheel(object sender, MouseEventArgs e) {
try{

sc_content.Minimum = 0;
if (e.Delta > 0) {

sc_content.Value -= (sc_content.Maximum / 20);
panelprincipal.Top = (sc_content.Value * -1) + 50;

} else {

sc_content.Value += (sc_content.Maximum / 20);
panelprincipal.Top = (sc_content.Value * -1) + 50;

}

// la condicion donde especifica el e.Delta es lo que nos permite el funcionamiento del MouseWheel, es decir si esta subiendo o bajando

// y el try catch se encarga de capturar las excepciones causadas por minimun a maximun del scroll manual, recuerden que es un vscroll lo que estamos aplicando

}
catch
{

}

}

y finalmente: colocar el maximo y minimo en un evento Active o Load para especificarlo como predeterminado en un vScrollbar en VS.NET

private void Proyect_Activated(object sender, EventArgs e)
{

sc_content.Maximum = panelprincipal.Height – 300;
panelprincipal.Top = (sc_content.Value) + 50;

}