VB6 + WINDOWS 10 ? BACKCOLOR TITLE BAR FORM

RICARDOWEB084 12/03/2024 10:36:40
#503193
Obrigado EPISCOPAL e JOSE

Já baixei os arquivos, vou testar , comento aqui depois.
EPISCOPAL 12/03/2024 20:54:42
#503197
Lembrando que o arquivo skin que te passei pode ser editado ....
RICARDOWEB084 10/04/2024 13:08:01
#503254
Mantive os meus forms mesmo, deu certo. O sistema ficou bem mais elegante.
Encerrarei este tópico em breve, agradeço a todos!
FUTURA 11/04/2024 12:09:46
#503256

Citação:

Mantive os meus forms mesmo, deu certo. O sistema ficou bem mais elegante.Encerrarei este tópico em breve, agradeço a todos!



E qual solução vc adotou ?
EPISCOPAL 13/04/2024 13:01:19
#503258

Citação:

E qual solução vc adotou ?



Boa pergunta ...
RICARDOWEB084 16/04/2024 21:55:03
#503266
Montei a barra de título com labels e buttons.
Copio esse código em todos os forms

Private Sub cmdClose_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
   On Error Resume Next
      mSYS_HandMouse
   End Sub
   
   Private Sub cmdClose_Click()
   On Error Resume Next
      Unload Me
   End Sub
      
   Private Sub cmdMin_Click()
   On Error Resume Next
      Me.WindowState = 1
   End Sub
   
   Private Sub cmdMin_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
   On Error Resume Next
      mSYS_HandMouse
   End Sub

   Private Sub lblMove_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
   On Error Resume Next
      mSYS_LoadXYMouseDown Button, x, Y
   End Sub
   
   Private Sub lblMove_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
   On Error Resume Next
      mSYS_LoadXYMouseMove Button, Me, x, Y
   End Sub


E as rotinas em um módulo.

Aí usei o BorderStyle = 0 em cada form, o que me impossibilitou de usar o menupopup
Contornei este problema jogando todos os menus popups em um form que fica invisível, e os demais forms o chamam.
EPISCOPAL 18/04/2024 10:19:37
#503269
Ricardo, existe uma tecnica que pode colocar sub barra de titulo sobre a area não cliente, como se fosse uma barra de titulo normal .... depois retorno aqui e mostro como se faz ... ok?
RICARDOWEB084 18/04/2024 13:09:44
#503271

Citação:

Ricardo, existe uma tecnica que pode colocar sub barra de titulo sobre a area não cliente, como se fosse uma barra de titulo normal .... depois retorno aqui e mostro como se faz ... ok?


Não sei se entendi, mas mostra este recurso sim
EPISCOPAL 13/05/2024 16:07:12
#503327
Eu uso a api setparent para colocar certos objetos na barra de titulos de formularios, porem não funciona com formulario sem bordas ..... vai ter que ser outro codigo .... vou tentar fazer ...
Página 3 de 3 [29 registro(s)]
Faça seu login para responder
Voltar