• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Tyagus

[VB6]Criar texto 3D

6 mensagens neste tópico

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

0

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