Parsi Coders
نوشته کلمه به کلمه از چپ به راست - نسخه قابل چاپ

+- 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)
+---- موضوع: نوشته کلمه به کلمه از چپ به راست (/showthread.php?tid=2490)

نوشته کلمه به کلمه از چپ به راست - Thewolf - 06-23-2012

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

با کد زیر یک نوشته کلمه به کلمه از چپ به راست نوشته می شود.

ابتدا یک Timer و یک Label ایجاد کنید.

سپس کد های زیر را در قسمت General فرم وارد کنید.

کد:
Option Explicit


'TheWolf
'Www.Parsicoders.com
Dim Txt As String

Private Sub Form_Load()
Txt = "TheWolf, Www.Parsicoders.Com, Example, VB 6"
Timer1.Interval = 1
With Label1
.Left = 120
.Top = 120
.Font.Size = 10
.Width = 5535
.Height = 1695
.Font.Name = "Tahoma"
.ForeColor = vbGreen
.BackColor = vbBlack
End With
With Me
.Width = 5895
.Height = 2475
.BackColor = vbBlack
End With
End Sub

Private Sub Timer1_Timer()
Static num, num1 As Integer
Dim lin, Text As String
num = num + 1
num1 = num1 + 1
If num1 = 20 Then
lin = "_"
num1 = 0
ElseIf num = 10 Then
lin = ""
End If
Text = Left(Txt, num)
Label1 = Text & lin
End Sub

سوالی نیست؟