CLR: .Net / Mono / Boo / Otros CLR > VB .NET

 Que Una Aplicacion Tenga El Enfoque

(1/1)

Soultaker:
Hola, tengo una duda, como puedo hacer para mandar el enfoque a una aplicaion, me explico tengo 5 aplicaciones activas (el msn, el bloc de notas, word, buscaminas, y mi aplicacion de visual .net), digamos como puedo hacer para que al pulsar un buton me mande el enfoque al msn.

Espero que me hayan entendido, chauuu. Gracias por sus comentarios y respuestas. Bye.

 :comp:

senzao18:
Dim progID As Integer = 0

        Dim BlockProceso() As Process = Process.GetProcessesByName("msnmsgr")
        progID = BlockProceso.Length() - 1

        AppActivate(BlockProceso(progID).MainWindowTitle)
        'o
        AppActivate("MSN Messenger")

Mellileo:
Hola senzao18:

Gracias por tu ayuda, pero al ejecutar el script que me haz sugerido, me saca el siguiente error:

Error de compilación:
No se ha definido el tipo definido por el usuario.

Este es el código que ejecuto y que provoca el error:


--- Código: Text ---Private Sub Command1_Click()' en este procedimiento exportamos el informe' seleccionado en el ListBoxDim ObjectType As IntegerDim ReportName As StringDim ExportFormat As StringDim SNPFile As StringDim OnlyOnce As BooleanDim x As LongDim BlockProceso() As Process   x = Shell(App.Path & "\Snapview\Snapview.exe")    If Me.List1.ListIndex > -1 Then        ' tipo de objeto (acReport)        ObjectType = 3 'acOutputReport        ' nombre del informe        ReportName = Me.List1.Text        ' formato al que se exportará el informe        ExportFormat = "Snapshot Format (*.snp)"        ' nombre y ruta del archivo que se exportará        SNPFile = App.Path & "\" & Me.List1.Text & ".snp"                On Error GoTo err_OutputTo                Dim progID As Integer                         Bolckproceso() = Process.GetProcessesByName("msaccess")        progID = BlockProceso.Length() - 1         AppActivate (BlockProceso(progID).MainWindowTitle)         ' exportamos el informe seleccionado al formato        ' snapshot        oApp.DoCmd.OutputTo _                   ObjectType, ReportName, _                   ExportFormat, SNPFile, 1                           ' cargamos el formulario donde se visualizarán los informes        Load Form2        'le ponemos el nombre del informe que se mostrará        Form2.Caption = "Informe: " & List1.Text        ' vinculamos el archivo que hemos exportado con el visor        ' de archivos Snapshot        Form2.SnapshotViewer1.SnapshotPath = SNPFile        ' eliminamos el archivo        Kill SNPFile        ' mostramos el formulario        Form2.Show        ' hacemos que el informe se ajuste al tamaño del formulario        Form2.SnapshotViewer1.Zoom = snapZoomToFit    Else        MsgBox "Escoge un informe", vbExclamation, "Atención"    End If            Exit Sub    err_OutputTo:     If OnlyOnce = False Then        ' si el formato snapshot no está disponible        If Err = 2282 Then            ' si se han podido cambiar las entradas erróneas del registro            If ChangeReg Then                ' reiniciaremos la aplicación Access para que los cambios                ' surtan efecto                Call ResetAccess                ' volvemos a intentarlo                OnlyOnce = True                Resume            Else                MsgBox "Ha ocurrido un error imprevisto"            End If        Else            MsgBox "Error: " & Err.Number & vbCrLf & vbCrLf & Err.Description        End If    Else        ' por alguna razón esto no tira :-S        MsgBox "No se puede ejecutar el ejemplo"    End If    End Sub  
De nuevo gracias por tu ayuda y por la que me puedas seguir ofreciendo!

Saludos,

Mellileo!!

senzao18:
Bueno es un error de compilacion,,,, que linea es la que te saca ese error....

Nos será mas facil ayudar si nos das algo mas de detalle :D....

Ademas de que este no es un foro de VB 6 :D.

Te recomiendo ir al foro para VB 6. ---->Visual Basic

Navegación

[0] Índice de Mensajes