[Resolvido]Nova Interface estilo web

Peço licença ao administrador para fazer apenas uma demonstração do que o access é capaz, aqui apresento um novo protótipo de tela com interfaces estilo web.

Muito bom. Parabéns

Bom dia !

Show de bola !!!

Podes dar mais detalhes dessa nova interface?

Dicas de como foi feita a criação etc, em que se baseou, etc

Obrigado.

Olá Thiago.

Nada demais, apenas trabalhei algumas cores no form, em relação aos campos do registro, é um gif de bordas redondas.

Agora em relação ao form com bordas redondas, utilizei esse código


Em um modulo:

Option Compare Database
Option Explicit
Private Declare Function CreateRoundRectRgn Lib "gdi32" ( _
ByVal nLeftRect As Long, _
ByVal nTopRect As Long, _
ByVal nRightRect As Long, _
ByVal nBottomRect As Long, _
ByVal nWidthEllipse As Long, _
ByVal nHeightEllipse As Long) As Long

Private Declare Function SetWindowRgn Lib "user32" ( _
ByVal hWnd As Long, _
ByVal hRgn As Long, _
ByVal bRedraw As Boolean) As Long


Public Function UISetRoundRect( _
ByVal uiForm As Form, _
ByVal CornersInPixels As Byte, _
Optional ByVal TopCornersOnly As Boolean = True) As Boolean

Dim intRight As Integer
Dim intHeight As Integer
Dim hRgn As Long

With uiForm
'// convert form's measurements from twips to pixels
intRight = PixelsPerTwipsX(.WindowWidth)
intHeight = PixelsPerTwipsY(.WindowHeight)
'// process ui style based on selection
If TopCornersOnly Then
intHeight = intHeight + CornersInPixels
Else
intHeight = intHeight + 1
End If
'// create new region
hRgn = CreateRoundRectRgn(0, 0, intRight, intHeight, CornersInPixels, CornersInPixels)
'// apply new region
SetWindowRgn .hWnd, hRgn, True
End With

End Function



Então no form ao abrir coloque

Call UISetRoundRect(Me, 32, False)



Você trabalho a borda conforme desejar


Duvidas a disposição



accessleansystems.blogspot.com

Boa tarde !

Criativo.

Uma dúvida: você deixou os formulários com caixa de diálogo ? Pop up ?

Excelente exemplo.

Sim

Pelo que vi na última imagem, você alterou os ícones dos botões padrões de fechar ? e o ícone do canto esquerdo superior também ?

Sim, é tudo icones png

Bom dia

Tentei usar o módulo das bordas redondas mas deu erro na linha abaixo.

intRight = PixelsPerTwipsX(.WindowWidth)

Uso o Office 2013, 32 bits

Obrigado

O sistema não fica pesado com as imagens incorporadas? Tem como compartilhar uma parte (mesmo que seja com um ou dois formulários) para verificarmos?

Boa tarde.

Não tem nada de pesado, como eu disse, são apenas formas de trabalhar a cor dos form, apenas isso.


Substitui o branco por um cinza, mas é uma tela de protótipo, ainda estou avaliando a performance, mas até o momento dentro do esperado e igual as outras telas


Veja essas, e a mesma coisa, so que com cor diferente

Ok, JOSEMORAES, obrigado por esclarecer. Deixo aqui meus parabéns.

Bela apresentação..... Parabéns.....