Parsi Coders
ساخت نوشته 3D در VB 6 - نسخه قابل چاپ

+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Visual Basic Programming (http://parsicoders.com/forumdisplay.php?fid=39)
+---- انجمن: Visual Basic 6 (http://parsicoders.com/forumdisplay.php?fid=44)
+---- موضوع: ساخت نوشته 3D در VB 6 (/showthread.php?tid=2481)



ساخت نوشته 3D در VB 6 - Thewolf - 06-20-2012

س !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!خسته نباشید !!!!!!!!!!!!!!!!

با کدهای زیر می توانید یک نوشته سه بعدی (3D) درست کنید.

یک PictureBox و یک TextBox درست کنید و کدهای زیر را در قسمت General وارد کنید.

کد:
Option Explicit

'By TheWolf
'Www.parsicoders.com
Private Sub Form_Load()
    With Picture1
    .BackColor = &H8000000D
    .AutoRedraw = True
    .Height = "1605"
    .Width = "7400"
    .FontSize = "48"
    End With
End Sub

Private Sub Text1_Change()
Dim intCount As Integer
Picture1.Cls
For intCount = 1 To 250
    Picture1.ForeColor = RGB(intCount + 1, intCount + 1, 0)
    Picture1.CurrentX = intCount
    Picture1.CurrentY = intCount
    Picture1.Print Text1.Text
Next intCount
End Sub

سوالی نیست؟