FORM - VBWEB


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: FORM

MAX
não registrado

Postada em 26/05/2004 18:13 hs

Alguém sabe como resolver este pequeno problema, que que a tela de splash do meu sistema ficasse na forma que eu desejace.

Eu já ouvi dizer que tem uma rotina no site que faz isso com um PICTURE, mas esta rotina eu não consegui fazer funcionar. Será que alguém tem um projeto que possa me mandas via e-mail: obrigado.

FatBoy

LONDRINA
PR - BRASIL

Postada em 27/05/2004 10:28 hs

Option Explicit
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 Sub Form_Load()
Eliptico Me
End Sub
Sub Eliptico(Objeto)
Dim RGN As Long
RGN = CreateEllipticRgn(0, 0, Objeto.Width / Screen.TwipsPerPixelX, Objeto.Height / Screen.TwipsPerPixelY)
SetWindowRgn Objeto.hwnd, RGN, True
End Sub

Este codigo deixa o form oval não sei se entendi bem , mas espero que ajude

MAX
não registrado

Postada em 27/05/2004 13:22 hs

FatBoy

Este código é muito interessante mas eu queria mesmo é o seguinte.

O Form ficar na forma da minha logomarca que esta dentro de um PictureBox

seguindo seus contornos.

Acho que agora eu expliquei direito né. rs..

valeu pela atenção.

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR