OL? AMIGOS

LUASSSSSS 29/07/2014 17:30:20
#439993
criei um aplicativo em VB6 mas nao estou usando ele em 2 - Maximized.

e eu quero que quando meu aplicativo esteja executado nao de para acessa a aria de trabalho tem como isso????
SNNIFFER 29/07/2014 18:13:49
#439995
Em propriedades do form, deixa o BorderStyle = 1 e deixa o windowstate = 2
LUASSSSSS 29/07/2014 19:02:51
#439998
SNNIFFER

é que nesse aplicativo quero no normal = 0 que ele abra meno que a tela do computado e que nao de para mexe na area de trabalho o em qualquer outra coisa que estiver aberta somente no meu apricativo até termina o processo do aplicativo

se puder me ajudar agradeço .
TUNUSAT 30/07/2014 08:27:30
#440020
LUASSSSSS,

Tenta colocar o título do Tópico relacionado a sua pergunta... senão fica difícil de responder.
Daí, dentro do corpo do arquivo você pode e deve colocar uma mensagem amigável de saudação.

[][ô]s,
Tunusat.
NAUTILUZ 30/07/2014 09:49:24
#440024
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

Const HWND_TOPMOST = -1
Const SWP_SHOWWINDOW = &H40


Private Sub Form_Load()

Dim TempValue As Long
Dim MyWidth As Long, MyHeight As Long
Dim MyTop As Long, MyLeft As Long


MyWidth = (Screen.Width / 2)
MyWidth = MyWidth / Screen.TwipsPerPixelX
MyHeight = Screen.Height / 2
MyHeight = MyHeight / Screen.TwipsPerPixelY

MyLeft = Screen.Width / (4 * Screen.TwipsPerPixelX)
MyTop = Screen.Height / (4 * Screen.TwipsPerPixelY)
[ô]Call SetWindowPos API function
TempValue = SetWindowPos(Me.hwnd, HWND_TOPMOST, MyLeft,
MyTop, MyWidth, MyHeight, SWP_SHOWWINDOW)
End Sub
Faça seu login para responder
Voltar