본문 바로가기
PC&웹/정보&기술

(VB6) 폼에 3D 그라데이션 글자 출력하기

by Simulz 2012. 1. 12.
반응형


새 프로젝트에서

폼에 버튼을 만든다. 버튼을 더블클릭하여 코드 편집창을 띄운다.

아래 코드를 입력 후 실행하고 버튼을 누르면 된다.

Private Sub Command1_Click()
Dim i As Integer

For i = 1 To 255

    Form1.ScaleMode = 3

    Form1.Font.Name = "Times New Roman"

    Form1.Font.Size = 48

    Form1.CurrentX = i / 50

    Form1.CurrentY = i / 50

    Form1.ForeColor = RGB(i + 5, 0, 0)

    Form1.Print "한글"

Next
End Sub

반응형

태그

댓글0