Autor Tema: Que Una Aplicacion Tenga El Enfoque (Leído 1721 veces)

Soultaker · « **en:** Miércoles 24 de Agosto de 2005, 01:30 »

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.

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 ListBox
Dim ObjectType As Integer
Dim ReportName As String
Dim ExportFormat As String
Dim SNPFile As String
Dim OnlyOnce As Boolean
Dim x As Long
Dim BlockProceso() As Process
 
  x = Shell(App.Path & &#34;&#092;Snapview&#092;Snapview.exe&#34;)
    If Me.List1.ListIndex &#62; -1 Then
        ' tipo de objeto (acReport)
        ObjectType = 3 'acOutputReport
        ' nombre del informe
        ReportName = Me.List1.Text
        ' formato al que se exportará el informe
        ExportFormat = &#34;Snapshot Format (*.snp)&#34;
        ' nombre y ruta del archivo que se exportará
        SNPFile = App.Path & &#34;&#092;&#34; & Me.List1.Text & &#34;.snp&#34;
        
        On Error GoTo err_OutputTo
        
        Dim progID As Integer
 
        
        
        Bolckproceso() = Process.GetProcessesByName(&#34;msaccess&#34;)
        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 = &#34;Informe: &#34; & 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 &#34;Escoge un informe&#34;, vbExclamation, &#34;Atención&#34;
    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 &#34;Ha ocurrido un error imprevisto&#34;
            End If
        Else
            MsgBox &#34;Error: &#34; & Err.Number & vbCrLf & vbCrLf & Err.Description
        End If
    Else
        ' por alguna razón esto no tira :-S
        MsgBox &#34;No se puede ejecutar el ejemplo&#34;
    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

....

Ademas de que este no es un foro de VB 6

.

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

SoloCodigo

Autor Tema: Que Una Aplicacion Tenga El Enfoque (Leído 1721 veces)

Soultaker

Que Una Aplicacion Tenga El Enfoque

senzao18

Re: Que Una Aplicacion Tenga El Enfoque

Mellileo

Re: Que Una Aplicacion Tenga El Enfoque

senzao18

Re: Que Una Aplicacion Tenga El Enfoque