Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #57 da revista programar. Faz já o download aqui!

Tyagus

[VB6]Criar texto 3D

Mensagens Recomendadas

Tyagus    0
Tyagus

Este prog cria texto 3D


' Nota: A picture box tem de ter AutoRedraw = true
' Objectos: Picture Box = FX
'           Text Box = txtMessage

Dim intCount As Integer

Private Sub Form_Activate()
txtMessage.SetFocus
End Sub

Private Sub txtMessage_Change()
' Limpar a picture box
FX.Cls

For intCount = 1 To 250
    ' A cor do texto vai ficando Amarelo
    FX.ForeColor = RGB(intCount + 1, intCount + 1, 0)
    FX.CurrentX = intCount
    ' Mover para posicionar o texto para que uma pequena parte
    ' do topo e da esquerda do texto posicionada antes
    ' seja mostrada
    FX.CurrentY = intCount
    ' Imprime o texto
    FX.Print txtMessage.Text
Next intCount
End Sub

Aí está, fácil e eficiente.  :P

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade