Exemplo de código usado para definir o formato de um formulário.

Copie o código abaixo para um formulário qualquer e  no evento Form_Load chame um dos procedimentos que altera o formato da janela. Neste exemplo, coloquei dois procedimento diferentes: FormularioComFormatoDeElipse FormularioComFormatoDeTexto Sintaxe: FormularioComFormatoDeElipse Nome do Formulario FormularioComFormatoDeTexto Nome do Formulario, Texto, [Tamanho da Fonte], [Nome da Fonte] '==== Código ==== Private Type RECT       Left As Long       Top As Long       Right As Long       Bottom As Long End Type   Private Declare Function PathToRegion Lib "gdi32" (ByVal hDC As Long) As Long Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long Private Declare Function BeginPath Lib "gdi32" (ByVal hDC As Long) As Long Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hDC As Long, ByVal x As Long, ByVal Y As Long, ByVal lpString As String, ByVal nCount As Long) As Long Private Declare Function EndPath Lib "gdi32" (ByVal hDC As Long) As Long Private Declare Function GetRgnBox Lib "gdi32" (ByVal hRgn As Long, lpRect As RECT) As Long Private Declare Function CreateRectRgnIndirect Lib "gdi32" (lpRect As RECT) As Long Private Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long Private Const RGN_AND = 1 Private Function GetTextRgn(Frm As Form, PALAVRA$) As Long     Dim hRgn1 As Long, hRgn2 As Long     Dim rct As RECT     BeginPath Frm.hDC     TextOut Frm.hDC, 10, 10, PALAVRA$, Len(PALAVRA$)          EndPath Frm.hDC          hRgn1 = PathToRegion(Frm.hDC)          GetRgnBox hRgn1, rct          hRgn2 = CreateRectRgnIndirect(rct)          CombineRgn hRgn2, hRgn2, hRgn1, RGN_AND          DeleteObject hRgn1          GetTextRgn = hRgn2 End Function Sub FormularioComFormatoDeTexto(Frm As Form, Texto As String, Optional TamanhoDaFonte As Single = 80, Optional NomeDaFonte As String = "Arial")          Dim hRgn As Long     Frm.Font.Name = NomeDaFonte     Frm.Font.Size = TamanhoDaFonte     hRgn = GetTextRgn(Frm, Texto)     SetWindowRgn Frm.hWnd, hRgn, 1 End Sub Sub FormularioComFormatoDeElipse(Frm As Form)          Dim hr&, dl&, x%     Dim usew&, useh&     usew& = Frm.Width / Screen.TwipsPerPixelX     useh& = Frm.Height / Screen.TwipsPerPixelY     x = 0     hr& = CreateEllipticRgn(10, 10, usew& - 20, useh& - 20)     dl& = SetWindowRgn(Frm.hWnd, hr, True) End Sub

Quebra-Linha

Colaborador..: Wilerson Pinheiro Camargos
Categoria(s).: Visual Basic; Programação;
Versão.......: 1.0
Data.........: 25/09/2002 13:14:22
Visualizado..: 5746 vezes
Fonte........: Wilerson