مواد مورد نياز :command ,textbox و 5 تا Label
اينم كدها اگه مشكلي بود حتما بيان كنيد
Dim anystring, mystr
Private Sub Command1_Click()
anystring = Text1.Text
Label1 = Left(anystring, 1)
Label3 = Right(anystring, 1)
Label2 = Mid(anystring, 2, 1)
Label4 = Mid(anystring, 3, 1)
Label5 = Mid(anystring, 4, 1)
End Sub
(سطر اول رو تو جنرال وارد كنيد)
نظرات شما عزیزان:
.: Weblog Themes By Pichak :.