PDA

View Full Version : کد خواندن تمام ایتم های داخل لیست باکس



ir-security
جمعه 23 مهر 1395, 14:08 عصر
سلام یه برنامه ساختم که نیازه تمام ایتم های لیست باکس خوانده بشه و به ایتم ها پیغامی ارسال بشه ولی نمیدونم کدش چیه برای انجام این کار

مثلا توی لیست باکس چندتا شماره تلفن داریم و منم یه کد ارسال پیامک دارم وقتی باتن Start رو میزنم اون کد پیامک حاویه (سلام ممنون از ثبت نام شما) میخوام به تمام شماره های داخل لیست باکس ارسال بشه ممنون میشم اگه کمکم کنید

ir-security
شنبه 24 مهر 1395, 18:55 عصر
کسی بلد نیست؟

hamidrezax1
یک شنبه 25 مهر 1395, 19:36 عصر
دوست عزیز یه حلقه درست کن و یک شرط درش قرار بده
For i =0 to listbixelrocount -1
Textbox.text=listbox.items.i.tostring
Next
حالا خواستی این وسط شرط قرار بده

gilsoft
یک شنبه 25 مهر 1395, 21:41 عصر
سلام یه برنامه ساختم که نیازه تمام ایتم های لیست باکس خوانده بشه و به ایتم ها پیغامی ارسال بشه ولی نمیدونم کدش چیه برای انجام این کار

مثلا توی لیست باکس چندتا شماره تلفن داریم و منم یه کد ارسال پیامک دارم وقتی باتن Start رو میزنم اون کد پیامک حاویه (سلام ممنون از ثبت نام شما) میخوام به تمام شماره های داخل لیست باکس ارسال بشه ممنون میشم اگه کمکم کنید

سلام دوست عزیز

باید از نمونه کد زیر ایده بگیری:
Private Sub btnStart_Click(sender As System.Object, e As System.EventArgs) Handles btnStart.Click
Dim msg As String = "سلام ممنون از ثبت نام شما"
Dim Tel As String = String.Empty
For i As Integer = 0 To ListBox1.Items.Count - 1
Tel = ListBox1.Items(i).ToString
Console.WriteLine("{0} {1}", Tel, msg)
Next
End Sub

موفق باشید .....