سلام
کدی رو میخوام که به هر حرف که مینویسیم یک عدد بصورت توالی بدهد
مثلاً
تکست1
برنامه نویسی
تکست2
1 2 3 4 5 6 7 8 9 10 11
ب ر ن ا م ه ن و ی س ی
سلام
کدی رو میخوام که به هر حرف که مینویسیم یک عدد بصورت توالی بدهد
مثلاً
تکست1
برنامه نویسی
تکست2
1 2 3 4 5 6 7 8 9 10 11
ب ر ن ا م ه ن و ی س ی
میشه واضح تر توضیح بدی؟
سلام
تابع زیر را بررسی کنید:
Function GetTextNums(sText$) As String
Dim i
For i = 1 To Len(sText$)
GetTextNums = i & " " & GetTextNums
Next
End Function
برای مثال:
Private Sub Command1_Click()
MsgBox GetTextNums(Text1.Text)
End Sub
موفق باشید
.: مداحی دلنشین شهیدی که در زادروز ولادتش پرکشید [ تصاویر... ]
.: مداحی دلنشین شهید غلامعلی رجبی [ تصاویر... ]
.: لطفا سوالاتی که قابل طرح در انجمن هستند را در خصوصی ارسال نفرمائید.