JOSEMORAES 15/7/2019, 11:43
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