ISTO E POSSIVEL,EM DESENVOLVIMENTO DE SOFTWARE?

HARRY.POTTER 01/12/2006 13:12:45
#187400
Tente usar a API MoveWindow:

Private Declare Function MoveWindow Lib "user32" Alias "MoveWindow" (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 Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName as String , ByVal lpWindowName as String) As Long

Private Sub Command1_Click()
dim pos_x as long 'posição X que a janela assumirá
dim pos_y as long 'posição Y que a janela assumirá
dim tam_width as long 'largura que a janela assumirá
dim tam_height as long 'altura que a janela assumirá

pos_x = 0
pos_y = 0

tam_width = 100
tam_height = 100

MoveWindow FindWindow(vbnullstring, "Nome da janela do aplicativo a ser diminuído"), pos_x, pos_Y, tam_width, tam_height, 1
End Sub
HARRY.POTTER 12/12/2006 03:42:29
#189442
Era isso? Não?
USUARIO.EXCLUIDOS 12/12/2006 09:46:55
#189460
Olha, eu não sei direito como fazer, mas acho que a inserção de objeto OLE ajudaria em algum sentido.
CARINHENA 12/12/2006 12:29:09
#189498
Eu acho que a opção que ele quer é o mesmo do Windows Vista.
No windows vista, quando algum arquivo é aberto, ao passar ao mouse por cima dele na barra de tarefas minimizado aparece uma imagem em tempo real só que reduzida ha um tamanho "x".

Impossivel não é.. mas.. vai ralar muito pra deixar com aquele padrão...
USUARIO.EXCLUIDOS 12/12/2006 12:43:21
#189501
Pelo que entendi é exatamente o que o HARRY postou mesmo...flw
Página 2 de 2 [15 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar