elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Introducción a Git (Primera Parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Ayuda Una locura, creo que para expertos
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Ayuda Una locura, creo que para expertos  (Leído 3,080 veces)
hacksoft

Desconectado Desconectado

Mensajes: 83


Ver Perfil
Ayuda Una locura, creo que para expertos
« en: 5 Septiembre 2005, 03:38 am »

Miren tengo un problema, mas que todo el problema es de un grupo de compañeros mios, queremos que nuestra aplicacion nunca pierda el foco, creo q seria "setfocus", pero no queremos que pierda el foco aunque se  este usando otros programas, o otras ventanas, que siempre el foco este en la aplicación.

Me han comentado que lo han hecho en C++, pero bueno nose si se pudiera hacer en visual basic, espero ayuda.

Gracias


En línea

La vida es un Juego. Firma Mario Bros
Slasher-K


Desconectado Desconectado

Mensajes: 1.477


Ver Perfil
Re: Ayuda Una locura, creo que para expertos
« Respuesta #1 en: 5 Septiembre 2005, 04:19 am »

Código:
Private Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Const SWP_NOMOVE = &H2
Const SWP_NOSIZE = &H1
Const SWP_NOOWNERZORDER = &H200     

Private Sub Form_Load()
  Call SetWindowPos(hWnd, -1, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE Or SWP_NOOWNERZORDER)
End Sub

Saludos.


En línea



A la reina de las profundidades que cuida los pasos de una sombra en la noche :*
Chief

Desconectado Desconectado

Mensajes: 232


Ind. Arg.


Ver Perfil
Re: Ayuda Una locura, creo que para expertos
« Respuesta #2 en: 5 Septiembre 2005, 04:32 am »

O tambien de una forma mas chonga podria ser con un timmer con un intervalo de 1 milisegundo y :

me.setfocus
 
esto en el timmer, pero claro que es mucho mejor el metodo que posteo Anhur.

expertos ? con una simpleda busqueda en google sale todo.

SAlu2!!
En línea

sr. oscuro

hacksoft

Desconectado Desconectado

Mensajes: 83


Ver Perfil
Re: Ayuda Una locura, creo que para expertos
« Respuesta #3 en: 5 Septiembre 2005, 04:51 am »

Gracias por la ayuda, pero ese no es el caso
En línea

La vida es un Juego. Firma Mario Bros
Numeros

Desconectado Desconectado

Mensajes: 110



Ver Perfil
Re: Ayuda Una locura, creo que para expertos
« Respuesta #4 en: 5 Septiembre 2005, 05:13 am »

Si lo que deseas es que tu Form este siempre por encima de todas las demas ventanas de windows usa este

Código:
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const FLAGS As Long = SWP_NOMOVE Or SWP_NOSIZE
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2

Private Declare Function SetWindowPos Lib "user32" ( _
  ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
  ByVal X As Long, ByVal Y As Long, ByVal cx As Long, _
  ByVal cy As Long, ByVal wFlags As Long) As Long
   
Private Sub Form_Load()
SetWindowPos Me.hwnd, _
    HWND_TOPMOST, 0, 0, 0, 0, FLAGS
End Sub

Perdon, no me fije que era el mismo code de Anhur

Salud2
« Última modificación: 5 Septiembre 2005, 05:26 am por Numeros » En línea

farder

Desconectado Desconectado

Mensajes: 4


Ver Perfil
Re: Ayuda Una locura, creo que para expertos
« Respuesta #5 en: 5 Septiembre 2005, 19:22 pm »

Yo con el SetWindowPos e jugado con el, pero lo que intenté sin exito es hacer que mi aplicacion se mantenga justo por encima del escritorio y no sobre las otras ventanas, tipo desktopX para win o Superkaramba para linux.

mi duda es saver si.. ¿esto es posible con el SetWindowPos?

Gracias de antemano.
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
¿Qué es locura y que no lo es? « 1 2 3 »
Foro Libre
dimitrix 25 9,994 Último mensaje 15 Octubre 2011, 01:51 am
por Draklit
Usar un Tesla para minar criptomonedas: ¿locura o genialidad?
Noticias
wolfbcn 0 2,502 Último mensaje 29 Noviembre 2017, 14:29 pm
por wolfbcn
“Así me hackeo el móvil para que no me rastreen” (y es una locura)
Noticias
wolfbcn 1 1,340 Último mensaje 29 Enero 2019, 18:49 pm
por srWhiteSkull
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines