Test Foro de elhacker.net SMF 2.1

Programación => .NET (C#, VB.NET, ASP) => Programación General => Programación Visual Basic => Mensaje iniciado por: wowbighacker en 30 Julio 2007, 00:47 AM

Título: Ventana siempre sobre las demas
Publicado por: wowbighacker en 30 Julio 2007, 00:47 AM
la pregunta no es tan sencilla como parece jeje, se como hacerlo con la api.. pero no funciona para los juegos en pantalla completa... ¿ alguien sabe como hacerlo ?
Muchas Gracias.
Título: Re: Ventana siempre sobre las demas
Publicado por: drakolive en 30 Julio 2007, 03:26 AM
te refieres a q no se pueda minimizar?
osea como blokear la ventana algo asi como lo hacen los programas que controlan el tiempo en los cybers?
...
Título: Re: Ventana siempre sobre las demas
Publicado por: wowbighacker en 30 Julio 2007, 04:49 AM
no.. que la ventana de mi programa siempre este visible, aunque abra el reproductor de windows media o cualquier programa, la ventana de mi programa se siga viendo y este encima de todas las otras ventanas siempre.
Título: Re: Ventana siempre sobre las demas
Publicado por: drakolive en 30 Julio 2007, 04:52 AM
es lo mismo.
Título: Re: Ventana siempre sobre las demas
Publicado por: drakolive en 30 Julio 2007, 04:56 AM
agregas 3 commandbuton y un label

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 Command1_Click()
End
End Sub

Private Sub Command2_Click()
SetWindowPos Me.hwnd, 1, Me.ScaleLeft, _
Me.ScaleTop, Me.ScaleWidth, Me.ScaleHeight, 0
Me.Caption = "Formulario Siempre Visible Desactivado"
Label1.Caption = "Ahora si podras cualquier ventana o el escritorio"

End Sub

Private Sub Command3_Click()
SetWindowPos Me.hwnd, -1, Me.ScaleLeft, _
Me.ScaleTop, Me.ScaleWidth, Me.ScaleHeight, 0
Me.Caption = "Formulario Siempre Visible Activado"
Label1.Caption = "Intenta ver una ventana cualquiera"

End Sub

Private Sub Form_Load()
Me.Caption = "Formulario Siempre Visible Activado"
Label1.Caption = "Intenta ver una ventana cualquiera, o el escritorio"
SetWindowPos Me.hwnd, -1, Me.ScaleLeft, _
Me.ScaleTop, Me.ScaleWidth, Me.ScaleHeight, 0
End Sub

Private Sub Form_Unload(Cancel As Integer)
Cancel = True
End Sub
Título: Re: Ventana siempre sobre las demas
Publicado por: ActiveSheet en 30 Julio 2007, 05:48 AM
lamento desepcionarte pero no es tan censillo como lo dices el mismo lo dijo
Título: Re: Ventana siempre sobre las demas
Publicado por: wowbighacker en 30 Julio 2007, 06:06 AM
cierto activesheet, con sea api no funciona, pero gracias x rresponder de todos modos..
Título: Re: Ventana siempre sobre las demas
Publicado por: MANULOMM en 31 Julio 2007, 06:25 AM
tambien puede ocurrir que con la api funcione pero cuando se abre un juego esta no funciona... :huh: :huh: :huh:

Atentamente,


Juan Manuel Lombana
Medellín - Colombia