امیدوارم همنطوری عالی پیش برید... البته یه توصیه دارم اونم اینه که کد ها رو توی تگ CODE بگذارید:اینطوری
خسته نباشید
(توی ادیتور پیشرفته هست)کد:اینطوری
Dim str As String
Dim strtemp1 As String, strtemp2 As String, strtemp3 As String
Dim i As Integer, j As Integer, k As Integer, sign As Integer, lenght As Integer
Private Sub Form_Load()
str = "Sinbad 68"
strtemp1 = ""
strtemp2 = ""
strtemp3 = ""
i = 1
j = 1
k = 1
lenght = 20
sign = 1
End Sub
Private Sub Timer1_Timer()
strtemp1 = strtemp1 & Mid(str, i, 1)
LBLstr1.Caption = strtemp1
i = i + 1
If i = Len(str) + 1 Then
i = 1
strtemp1 = ""
End If
End Sub
Private Sub Timer2_Timer()
strtemp2 = Left(str, j)
LBLstr2.Caption = strtemp2
j = j + sign
If j = Len(str) + 1 Then
sign = -1
j = j - 1
Timer2.Interval = 50
ElseIf j = 0 Then
sign = 1
j = j + 1
Timer2.Interval = 200
End If
End Sub
Private Sub Timer3_Timer()
strtemp3 = ""
For z = 1 To lenght
strtemp3 = strtemp3 & Mid(str, (k + z) Mod Len(str) + 1, 1)
Next z
LBLstr3.Caption = strtemp3
k = k + 1
If k = Len(str) + 1 Then k = 1
End Subوالا من وقت ندارم دیگه وگرنه خوشحالم میشدم
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
PopupMenu mnucolour
End If
End Sub
Private Sub mnublack_Click()
frmpop.BackColor = vbBlack
End Sub
Private Sub mnublue_Click()
frmpop.BackColor = vbBlue
End Sub
Private Sub mnugreen_Click()
frmpop.BackColor = vbGreen
End Sub
Private Sub mnured_Click()
frmpop.BackColor = vbRed
End Sub
Private Sub mnuwhite_Click()
frmpop.BackColor = vbWhite
End Sub
Private Sub mnuyellow_Click()
frmpop.BackColor = vbYellow
End SubPrivate Sub chkBold_Click ()
IF chkBold.Value = VBchecked then
Text1.FontBold = True
Else
Text1.FontBold = False
End IF
End Sub
Private Sub chkItalic_Click ()
If chkItalic.Value = VBchecked Then
Text1.FontItalic = True
Else
Text1.FontItalic = False
End IF
End Sub