پک کردن حرف از آخر اسم در لیست

[xrezax]

سلام به دوستان گلم :قلب:
یه لیست اسم دارم به این شکل
reza
mohammad
alireza
.
.
. الا آخر
می خوام وقتی روی کامند کلیک کنم برنامه خود به خود یه حرف از آخرش پاک کنه تا برسه به یه دونه حرف.
یعنی خروجی این شکلی بشه توی لیست بعدی
reza
rez
re
r
mohammad
mohamma
mohamm
moham
moha
moh
mo
m
alireza
alirez
alire
alir
ali
al
a
.
.
. الا آخر
ممنون میشم با سورس برام توضیح بدین.

[M.T.P]

دوتا لیست بزارید با یک Command


Option Explicit

Private Sub Command1_Click()
Dim IntC As Integer
Dim IntX As Integer
Dim StrText As String

For IntC = 0 To List1.ListCount
StrText = List1.List(IntC)
List2.AddItem StrText
For IntX = 1 To Len(StrText) - 1
List2.AddItem Mid(StrText, 1, Len(StrText) - IntX)
Next IntX
Next IntC
End Sub

Private Sub Form_Load()
With List1
.AddItem "Saeed"
.AddItem "Reza"
.AddItem "Akbar"
End With
End Sub

[quiet_programmer]

با سلام.

For i = 0 To Me.List1.ListCount - 1
For j = 1 To Len(Me.List1.List(i)) - 1
Me.List2.AddItem (Mid(Me.List1.List(i), 1, Len(Me.List1.List(i)) - j))
Next
Next

[haniyehghassami]

سلام
ببخشید البته من تازه واردم اما این چه زبانی؟


با سلام.

For i = 0 To Me.List1.ListCount - 1
For j = 1 To Len(Me.List1.List(i)) - 1
Me.List2.AddItem (Mid(Me.List1.List(i), 1, Len(Me.List1.List(i)) - j))
Next
Next

[quiet_programmer]

ببخشید البته من تازه واردم اما این چه زبانی؟

:متفکر:

منم دقیقا نمیدونم!! ولی میگن که وبی 6ه. درسته؟