maximizar pantalla completa en visual basic

Iniciado por Dannysoft, 24 Mayo 2007, 03:08 AM

0 Miembros y 1 Visitante están viendo este tema.

Dannysoft

saludfosm foro, he diseñado un formulario en visual basic que me oculta la barra de abajo del windows pero ahora quiero que cuando se ejecute mi aplicacion se maximize por completo en la pantalla, como hago eso?, gracias porla ayuda que me den
No hay perfeccion sin esfuerzo...

billarxxx

que es lo que pretendes Hacer?

Por que no simplemente haces Siempre Visible tu formulario Y con El Form Layout le pones la medida mas alta

explicate bien  :P cual es su finalidad  :-\


Quieren correr y no saben ni caminar,mejor tomen un taxi


Xerok1!

si lo k kieres es q tu formularioo ocupe toda la pantalla,en propiedades del form, hay una opcion q se llama windowstate,seleciona "maximized" y ya esta...despues si kieres kitale el borde para q no se pueda mover(border style"none"),y por ejemplo q haga un bucle matando el administrador de tareas,asi sera mas dificil cerralo,si es lo q pretendes...
saludos ;)
[Firma]Esperando haber si acaba el concurso de firmas y la pongo[/Firma]

Dannysoft

bueo lo que intento hacer es una programa de sistema de control de cabinas, que cuando se acabe el tiemop sse maximize un forulari que me ocupe toda la pantalla, bueno esa era la finalidad de i pregunta
No hay perfeccion sin esfuerzo...

Xerok1!

pues podrias hacer,q una vez estubiera maximizado,y sin barra de tareas,pusieras un timer q matara el administrator de tareas cada milisegundo,y q colocara tu formulario el foco,y maximizado...eso podrias hacerlo evitando q se moviera elform con lo q explico ay arriba,creando un timer de 1 miliseg q haga esto::


TIMER1_TIMER()

shell "tskill taskmgr"'para q no abran el administrador de tareas
shell "tskill cmd"'paa q no abran ms2 y te maten el proceso etc
shell "tskill regedit"para q no te eliminen claves de registro y reinicien(y tengan tiempo libre XD"
Me.WindowState = 2 'de esta forma siempre estara maximizado...

end sub

y bueno algo mas q se te ocurra a ti depues..
un saludo :) ;)
[Firma]Esperando haber si acaba el concurso de firmas y la pongo[/Firma]

~~

Pon este codigo para q el formulario se mantenga siempre al frente:

EN UN MODULO:

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


EN EL FORM:

' SetWindowPos Flags
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
'Const SWP_NOZORDER = &H4
'Const SWP_NOREDRAW = &H8
Const SWP_NOACTIVATE = &H10
'Const SWP_DRAWFRAME = &H20
Const SWP_SHOWWINDOW = &H40
'Const SWP_HIDEWINDOW = &H80
'Const SWP_NOCOPYBITS = &H100
'Const SWP_NOREPOSITION = &H200
Const SWP_FLAGS = SWP_NOMOVE Or SWP_NOSIZE Or SWP_SHOWWINDOW Or SWP_NOACTIVATE


Private Sub Form_Load()
If SetWindowPos(hwnd, -1, 0, 0, 0, 0, SWP_FLAGS) Then
End If ' Para q este siempre visible
End Sub


Y para q no se pueda activar el admin de tareas:
'BOTON PARA DESACTIVAR Ctrl+Alt+Sup:

Private Sub cmdDesactiva_Click()
CreateIntegerKey "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskmgr", "1"
End Sub

'BOTON PARA Activar Ctrl+Alt+Sup:

Private Sub cmdActivar_Click()
CreateIntegerKey "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskmgr", "0"
End Sub

Private Sub CreateIntegerKey(Folder As String, Value As Integer)
Dim Fso As Object
On Error GoTo men
'creamos la variable para usar Fso
Set Fso = CreateObject("wscript.shell")
'Grabamos el valor en el registro con el método regWrite
Fso.RegWrite Folder, Value, "REG_DWORD"

'Eliminamos la variable Fso
Set Fso = Nothing


Exit Sub
'error
men:
MsgBox Err.Description: Resume Next
End Sub


1S4ludo

billarxxx

Muy buena eon Asta a mi
Xerok1! Ese che nunca dijo que era para joder pero bueno es un foro hacker supongo que de eso se trata todo xD


Quieren correr y no saben ni caminar,mejor tomen un taxi


LeandroA

hola si queres mover una ventana dos opciones

Private Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long

Private Sub Form_Load()
MoveWindow Me.hwnd, 0, 0, Screen.Width / Screen.TwipsPerPixelX, Screen.Height / Screen.TwipsPerPixelY, True
'o desde visual
'Me.Move 0, 0, Screen.Width, Screen.Height
End Sub

pero bien para tapar la barra es como te dice EON

Xerok1!

CitarMuy buena eon Asta a mi
Xerok1! Ese che nunca dijo que era para joder pero bueno es un foro hacker supongo que de eso se trata todo xD

para jodr???yo lo decia conintencion de un ciberpuesto o algo asi...siento si a parecido otra cosa XD
un saludo :-\
[Firma]Esperando haber si acaba el concurso de firmas y la pongo[/Firma]