Visual Basic.NET - ayuda con sendkey en visual.net

   
Vista:

ayuda con sendkey en visual.net

Publicado por Karen (1 intervención) el 25/04/2008 18:26:49
hola

he buscado y buscado y todavia no doy con la solucion a mi problema.
desde visual programe para que se abriera un aplicacion pero quiero que una vez abierta esta aplicacion darle un enter (la apliacion al abrirla trae un ACERCA DE y es necesario aceptar para poder trabajar en el).
he investigado y con SendKeys.Send("{ENTER}") se puede pasar un comando a la aplicacion pero tirra el siguiente error

No se puede ejecutar SendKeys dentro de esta aplicación porque ésta no controla los mensajes de Windows. Puede cambiar la aplicación para que controle mensajes o utilizar el método SendKeys.SendWait.

agregue ese import : Imports System.Windows.Forms

porfavor si alguien sabe algo agradeceria muhisimo su ayuda
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:ayuda con sendkey en visual.net

Publicado por Huguin (83 intervenciones) el 25/04/2008 21:08:26
Hola, haber si entendi, lo que estas tratando de hacer.

Primero al formulario Principal o sobre el cual vas presionar enter....!
habilita la propiedad

KeyPreview = True

Private Sub FrmPrincipal_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
Try
Dim frm As New Form3 'Formulario acerca de
If e.KeyChar = ChrW(Keys.Enter) Then
frm.ShowDialog()
End If
Catch ex As Exception
End Try
End Sub

Ojala te ayude....!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:ayuda con sendkey en visual.net

Publicado por leonel (1 intervención) el 27/04/2008 23:17:34
no se como hacer para ke mi plantilla principal se mantenga visible mientras ke uso una de sus herramientas .. maximizadamente osea ... es como si fuera un documento de word .... si tengo una hoja maximizada ... luego la cierro ... no se cierra todo si no solo la hoja ....
responde pz ... gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:ayuda con sendkey en visual.net

Publicado por Enrique (1 intervención) el 03/06/2008 18:11:34
Tienes que usar las funciones del API:

Private Declare Function FindWindow Lib "user32" Alias"FindWindowA" (ByVal lpClassName as string, ByVal lpWindowName as String) As integer
Private Declare Function sForegroudWindow Lib "user32" Alias "SetForegroudWindow" (Byval hwnd As Integer) As Integer

Sub SendKeysToApplication(ByVal appTitle As String, ByVal keys as String)
'Encontrar la aplicación
dim hWnd As integer=FindWindow(Nothing,appTitle)
'Salir si no se encuentra
if hWnd <=0 then
messageBox.Show("Aplicación no encontrada)
exit sub
end if

'Convertirla en aplicación activa.
SetForeground(hWnd)
'Enviar las teclas y esperar.
SendKeys.Sendwait(keys)
End sub

ej.

SendKeysToApplication("Sin título - Bloc de notas","VB~")
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar