USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Forms/MDI)

Título da Dica:  Criando um Form em forma de Triângulo
Postada em 14/8/2000 por Webmaster      Clique aqui para enviar email para o autor  webmaster@vbweb.com.br
'Coloque este código num Form:
Option Explicit
Private Type POINTAPI
  x As Long
  y As Long
End Type

Private Type tP
  P(1 To 3) As POINTAPI
End Type

Private Declare Function CreatePolygonRgn Lib _
        "gdi32" (lpPoint As POINTAPI, ByVal _
        nCount As Long, ByVal nPolyFillMode _
        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 Sub Form_Load()
  Dim z As tP
  Me.ScaleMode = vbPixels
  z.P(1).x = ((Me.ScaleHeight - Me.ScaleLeft) / _
             2) + 13
  z.P(1).y = 26
  z.P(2).x = 26
  z.P(2).y = Me.ScaleHeight - Me.ScaleLeft
  z.P(3).x = Me.ScaleHeight - Me.ScaleLeft
  z.P(3).y = Me.ScaleHeight - Me.ScaleLeft
  SetWindowRgn hWnd, CreatePolygonRgn(z.P(1), _
               3, 3), True
End Sub
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página