Archivo de la etiqueta: Visual studio 2010

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

Mantener la posición de un autoscroll cuando el panel es mas grande que el formulario: vb.net y C#

Síntomas


En una aplicación de Microsoft Windows Forms, si claro y volver a dibujar un control Panel automático desplazable que contiene los controles secundarios, no se mantiene la posición de desplazamiento.

Causa


A veces, debe borrar el contenido del Panel de control y vuelva a dibujar el contenido del Panel decontrol. Por ejemplo, debe hacerlo si el control de Panel de desplazamiento automático contiene una colección de controles que tienen un orden específico. Normalmente, estos controles son controles de usuario.

Sin embargo, la aplicación no almacena el valor de la
Propiedad AutoScrollPosition del control Panel . Por lo tanto, la posición de desplazamiento no se mantiene cuando se vuelve a dibujar el contenido del Panel de control.

Uso de sqltransation, rollback and commit vb

Nota: 

Para poder evitar que se graben cosas malas en tus tablas debes hacer rollback antes de cualquier commit para asi revertir los cambios y evitar información defectuosa en tu base de datos.

The following example creates a T:System.Data.SqlClient.SqlConnection and a T:System.Data.SqlClient.SqlTransaction. It also demonstrates how to use the M:System.Data.SqlClient.SqlConnection.BeginTransaction, M:System.Data.SqlClient.SqlTransaction.Commit, and M:System.Data.SqlClient.SqlTransaction.Rollback methods. The transaction is rolled back on any error. Try/Catch error handling is used to handle any errors when attempting to commit or roll back the transaction.

Private Sub ExecuteSqlTransaction(ByVal connectionString As String)
    Using connection As New SqlConnection(connectionString)
        connection.Open()

        Dim command As SqlCommand = connection.CreateCommand()
        Dim transaction As SqlTransaction

        ' Start a local transaction
        transaction = connection.BeginTransaction("SampleTransaction")

        ' Must assign both transaction object and connection
        ' to Command object for a pending local transaction.
        command.Connection = connection
        command.Transaction = transaction

        Try
            command.CommandText = _
              "Insert into Region (RegionID, RegionDescription) VALUES (100, 'Description')"
            command.ExecuteNonQuery()
            command.CommandText = _
              "Insert into Region (RegionID, RegionDescription) VALUES (101, 'Description')"

            command.ExecuteNonQuery()

            ' Attempt to commit the transaction.
            transaction.Commit()
            Console.WriteLine("Both records are written to database.")

        Catch ex As Exception
            Console.WriteLine("Commit Exception Type: {0}", ex.GetType())
            Console.WriteLine("  Message: {0}", ex.Message)

            ' Attempt to roll back the transaction.
            Try
                transaction.Rollback()

            Catch ex2 As Exception
                ' This catch block will handle any errors that may have occurred
                ' on the server that would cause the rollback to fail, such as
                ' a closed connection.
                Console.WriteLine("Rollback Exception Type: {0}", ex2.GetType())
                Console.WriteLine("  Message: {0}", ex2.Message)
            End Try
        End Try
    End Using
End Sub

enlaces:

https://msdn.microsoft.com/es-es/library/zayx5s0h(v=vs.110).aspx?cs-save-lang=1&cs-lang=vb#code-snippet-2

https://forums.asp.net/t/1166177.aspx