[srca100050]

السلام عليكم
لدي ليست بوكس بها ارقام جوالات اود نقلها للتكست بوكس مفصولة بــ (,)

مثال
ليست بوكس
054565656
065265656
065546546
066456546

تنقل الى التكست بوكس
066456546,054565656,065265656,065546546

مع العلم اني استخدم الفجول بيسك 2008

[حريف برمجة]

(25-08-17, 10:00 AM)srca100050 كتب : السلام عليكم
لدي ليست بوكس بها ارقام جوالات اود نقلها للتكست بوكس مفصولة بــ (,)

مثال
ليست بوكس
054565656
065265656
065546546
066456546

تنقل الى التكست بوكس
066456546,054565656,065265656,065546546

مع العلم اني استخدم الفجول بيسك 2008

وعليكم السلام ،،

كود :

Dim mobilenum As String = ""
       For Each item In ListBox1.Items
           mobilenum += item.ToString & ","
       Next
       TextBox1.Text = Mid(mobilenum, 1, mobilenum.Length - 1)

[srca100050]

(25-08-17, 10:57 AM)حريف برمجة كتب :

(25-08-17, 10:00 AM)srca100050 كتب : السلام عليكم
لدي ليست بوكس بها ارقام جوالات اود نقلها للتكست بوكس مفصولة بــ (,)

مثال
ليست بوكس
054565656
065265656
065546546
066456546

تنقل الى التكست بوكس
066456546,054565656,065265656,065546546

مع العلم اني استخدم الفجول بيسك 2008

وعليكم السلام ،،

كود :

Dim mobilenum As String = ""
       For Each item In ListBox1.Items
           mobilenum += item.ToString & ","
       Next
       TextBox1.Text = Mid(mobilenum, 1, mobilenum.Length - 1)

اشكرك اخي الكريم على سرعة الرد

تم تجربة الكود ويعمل سليم  ولكن في برنامجي لاعرف لماذا لم يعمل يظهر في التكست بوكس
System.Data.DataRowView,System.Data.DataRowView,System.Data.DataRowView,System.Data.DataRowView,System.Data.DataRowView,System.Data.DataRowView,System.Data.DataRowView,System.Data.DataRowView,System.Data.DataRowView,System.Data.DataRowView

على عدد الارقام

[حريف برمجة]

ارفع مثالك لنعدله لك .

[srca100050]

(25-08-17, 12:11 PM)حريف برمجة كتب : ارفع مثالك لنعدله لك .

السلام عليكم

المشلكة عندي في حال استدعاء الارقام من الدته بيس وعرضها في listbox ثم تحويلها الى textbox
يتم عرض الارقام في listbox ولاكن عند نقلها الى textbox مع الفاصلة لايعمل مرفق الكود كامل

كود :

Imports System.Data.SqlClient

Public Class TEST_SMS

   Public Sub lod_ContactsSMS()
       Dim data_SMS As New DataSet
       Dim sql_SMS As String
       Try
           data_SMS.Clear()
           sql_SMS = "SELECT [id],[name],[phone],[teamG],[city],[nots],[EditName] From [ContactsSMS]"



           Dim DataAdapter As New SqlDataAdapter(sql_SMS, Conn)


           'DataAdapter.SelectCommand.Parameters.AddWithValue("@teamG", Trim(fusername))


           If Conn.State = ConnectionState.Open Then Conn.Close()
           Conn.Open()
           DataAdapter.Fill(data_SMS, "ContactsSMS")
           Conn.Close()

           'ListBox1.DataSource = data_SMS : ListBox1.DisplayMember = ("ContactsSMS.name")
           ListBox1.DataSource = data_SMS : ListBox1.DisplayMember = ("ContactsSMS.phone")


           'TextBox1.DataBindings.Clear()
           
           'ListBox1.SelectedIndex = ListBox1.FindStringExact(Edit_add_Personnel_data_Employee_Nam)
         
           '///
           'Dim mobilenum As String = ""
           'For Each item In ListBox2.Items
           '    mobilenum += item.ToString & ","
           'Next
           'TextBox1.Text = Mid(mobilenum, 1, mobilenum.Length - 1)
           '///

       Catch ex As Exception
           erro.TextBox1.Text = ex.Message
           erro.ShowDialog()
           If Conn.State = ConnectionState.Open Then Conn.Close()
       End Try
   End Sub 'تحميل الارقام

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       lod_ContactsSMS()
   End Sub
   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
       'Dim mobilenum As String = ""
       'For Each item In ListBox1.Items
       '    mobilenum += item.ToString & ","
       'Next
       'TextBox1.Text = Mid(mobilenum, 1, mobilenum.Length - 1)

   End Sub
End Class

[سعود الشامان]

وعليكم السلام ورحمة الله

مداخله بسيطه

ليش ما تستدعي البيانات في الداتا جريد وعند اختيار الصف يتم وضع الرقم في تيكست بوكس1
ثم تضع زر بجانب التيكست بوكس1 وتسميه ( اختيار) عند الضغط على الزر يتم نقل الرقم من تيكست بوكس 1 إلى تيكست بوكس 2

جالس اعمل ع مشروع نفسك مشروعك لكن قاعدة البيانات اكسس 2007

المشروع بالمرفقات يمكن يفيدك بشي


ملاحظة : ضفت عليه الإرسال بالبريد الإلكتروني والمشروع قيد العمل

[حريف برمجة]

صاحب السؤال والله اعلم يحتاج ارقام الجوالات في تكست بوكس مفصولة بكوما ليرسل لهم رسائل على الجوالات .

[سعود الشامان]

(26-08-17, 02:09 PM)حريف برمجة كتب : صاحب السؤال والله اعلم يحتاج ارقام الجوالات في تكست بوكس مفصولة بكوما ليرسل لهم رسائل على الجوالات .

كما أعتقد وعلى حد علمي هنالك شركتين لديهم مشروع مفتوح وتستطيع الإشتراك معهم


أستخدمت مشروع شركة  http://www.mobily.ws

تم طرح مواضيع من قبل بهذا الموضوع

http://vb4arb.com/vb/showthread.php?tid=15796

وأيضاً

http://vb4arb.com/vb/showthread.php?tid=6366

[srca100050]

(26-08-17, 02:09 PM)حريف برمجة كتب : صاحب السؤال والله اعلم يحتاج ارقام الجوالات في تكست بوكس مفصولة بكوما ليرسل لهم رسائل على الجوالات .

صحيح اخي الكريم 
هل توجد طريقة اقدر اجلب الارقام من الداته بيس و وضعها في string مفصولة بكوما من دون التعامل مع تكست بوكس 
او طرق اخرى

مع الشكر الجزيل

[سعود الشامان]

وحصلت شركة ثالثه اسمها ملاذ

http://sms.malath.net.sa/Articles.aspx?d...VJzsBOo_3d

وهذا مشروعهم

http://sms.malath.net.sa/apis/SMS_VB.NET.rar