Parsi Coders

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

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

ابتدا یک 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

سوالی نیست؟

Thewolf