سوال در مورد Text ( خیلی ( زیاد ) فوری! )

[moh3en_f1]

سلام دوستان من یه برنامه میخوام بنویسم که اسامی رو تو لیست 1 وارد کنم و ادد کنم بعدش اگه تو تکست 2 حرف اول اسمی رو نوشتم هر چی اسم هست ادد شه تو لیست 2
هیچی رو نزنم فقط تایپ کردم
بعدش اگه 2 حرف نوشتم هر چی که اولشون این دو حرف هستن اضافه بشن
خیلی فکر کردم به نتیجه ای نرسیدم کمکم کنید

خودم یه چیزهای نوشتم امیدوارم دوستان بتونن کمک کنن خیلی فوری لازم دارم ممنونم :عصبانی++: عکسم براتون ضمیمه کردم



Private Sub Command1_Click()
List1.AddItem Text1.Text
Text1.Text = ""
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
List1.AddItem "behzad"
List1.AddItem "ali"
List1.AddItem "ahmad"
List1.AddItem "alireza"
List1.AddItem "arezo"
End Sub
Private Sub Text2_Change()
List2.Clear
A = List1.ListCount
For i = 0 To A
If Asc(Text1.Text) = Asc(List1.List(i)) Then
List2.AddItem List1.List(i)
Else

End If
Next i
End Sub

[aryasoft2872]

اینو نوشتم:

[M.T.P]

اینم اصلاح شده کد خودت




Private Sub Command1_Click()
List1.AddItem Text1.Text
Text1.Text = ""
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
List1.AddItem "behzad"
List1.AddItem "ali"
List1.AddItem "ahmad"
List1.AddItem "alireza"
List1.AddItem "arezo"
End Sub
Private Sub Text2_Change()
Dim A As Long
Dim B As Long
Dim C As String
Dim D As String
List2.Clear
A = List1.ListCount
B = Len(Text2.Text)
If B = 0 Then
List2.Clear
Exit Sub
End If
For i = 0 To A
C = Left(List1.List(i), B)
D = Left(Text2.Text, B)
If C = D Then
List2.AddItem List1.List(i)
End If
Next i
End Sub