List box

[morika]

سلام

من یه لیست باکس دارم که تو آیتمهاش شماره تلفن نوشته شده:
مثلا: amir hoseyn: 09121239874
حالا می خوام وقتی روی این آیتم کلیک می کنم ازتمام کاراکترها صرف نظر کنه و فقط اعداد رو (شماره تلفن) توی یه تکس باکس بنویسه. چجوری میشه؟

ممنون

[.:KeihanCPU:.]

اگر فرمت همه ایتم ها به این صورت باشه یعنی یه نقطه بین اسم و شماره تلفن وجود داشته باشه پس میتونی با Split اونا رو از هم جدا کنی

Dim F() As String

Dim S As String

S = "amir hoseyn: 09121239874"

F = Split(S, ":")

TextBox1.Text = F(1)

[morika]

خب حالا چه جوری میشه تو یه کلید کدی نوشت که اگه هر آیتمی خالی بود (یعنی آیتم بود ولی خالی بود) رو حذف کنه؟

[fazelm]

خب حالا چه جوری میشه تو یه کلید کدی نوشت که اگه هر آیتمی خالی بود (یعنی آیتم بود ولی خالی بود) رو حذف کنه؟

یه حلقه for بذار به تعداد سطرها و چک کنه اگر مساوی "" بود سپس حذف کنه به این صورت :

dim i as VariantType
for i=0 to listbox1.items.count -1
listbox1.selectedindex = i
if listbox1.selecteditem = "" then
listbox1.items.removeat(listbox1.selectedindex)
end if
next

از نظر املایی خودت چک کن چون وی بی دمه دست نبود
اگه بیشتر توضیح خواستی بگو
موفق باشید