+- 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سوالی نیست؟