View Full Version : تفکیک حروف در TextBox
alipoor2009
پنج شنبه 23 خرداد 1392, 14:14 عصر
دوستان عزیز من یه Textbox دارم با قابلیت Multiline و می خواهم تعدادی شماره تلفن وارد کنم -حالا چطوری می شه شماره ها رو یکی یکی تو لیست باکس ریخت ؟
m.4.r.m
پنج شنبه 23 خرداد 1392, 14:43 عصر
Private Sub Command1_Click()
On Error Resume Next
Dim St() As String
St() = Split(Text1.Text, vbCrLf)
For i = 0 To UBound(St)
List1.AddItem St(i)
Next
End Sub
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.