+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : نقل عناصر listbox الى textbox بـــكوما مفصولة (/showthread.php?tid=21489)
الصفحات:
1
2
نقل عناصر listbox الى textbox بـــكوما مفصولة - srca100050 - 25-08-17
السلام عليكم
لدي ليست بوكس بها ارقام جوالات اود نقلها للتكست بوكس مفصولة بــ (,)
مثال
ليست بوكس
054565656
065265656
065546546
066456546
تنقل الى التكست بوكس
066456546,054565656,065265656,065546546
مع العلم اني استخدم الفجول بيسك 2008
RE: نقل عناصر listbox الى textbox بـــكوما مفصولة - حريف برمجة - 25-08-17
(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)RE: نقل عناصر listbox الى textbox بـــكوما مفصولة - srca100050 - 25-08-17
(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
على عدد الارقام
RE: نقل عناصر listbox الى textbox بـــكوما مفصولة - حريف برمجة - 25-08-17
ارفع مثالك لنعدله لك .
RE: نقل عناصر listbox الى textbox بـــكوما مفصولة - srca100050 - 26-08-17
(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 ClassRE: نقل عناصر listbox الى textbox بـــكوما مفصولة - سعود الشامان - 26-08-17
وعليكم السلام ورحمة الله
مداخله بسيطه
ليش ما تستدعي البيانات في الداتا جريد وعند اختيار الصف يتم وضع الرقم في تيكست بوكس1
ثم تضع زر بجانب التيكست بوكس1 وتسميه ( اختيار) عند الضغط على الزر يتم نقل الرقم من تيكست بوكس 1 إلى تيكست بوكس 2
جالس اعمل ع مشروع نفسك مشروعك لكن قاعدة البيانات اكسس 2007
المشروع بالمرفقات يمكن يفيدك بشي
ملاحظة : ضفت عليه الإرسال بالبريد الإلكتروني والمشروع قيد العمل
RE: نقل عناصر listbox الى textbox بـــكوما مفصولة - حريف برمجة - 26-08-17
صاحب السؤال والله اعلم يحتاج ارقام الجوالات في تكست بوكس مفصولة بكوما ليرسل لهم رسائل على الجوالات .
RE: نقل عناصر listbox الى textbox بـــكوما مفصولة - سعود الشامان - 26-08-17
(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
RE: نقل عناصر listbox الى textbox بـــكوما مفصولة - srca100050 - 26-08-17
(26-08-17, 02:09 PM)حريف برمجة كتب : صاحب السؤال والله اعلم يحتاج ارقام الجوالات في تكست بوكس مفصولة بكوما ليرسل لهم رسائل على الجوالات .
صحيح اخي الكريم
هل توجد طريقة اقدر اجلب الارقام من الداته بيس و وضعها في string مفصولة بكوما من دون التعامل مع تكست بوكس
او طرق اخرى
مع الشكر الجزيل
RE: نقل عناصر listbox الى textbox بـــكوما مفصولة - سعود الشامان - 26-08-17
وحصلت شركة ثالثه اسمها ملاذ
http://sms.malath.net.sa/Articles.aspx?data=jmZjVJzsBOo_3d
وهذا مشروعهم
http://sms.malath.net.sa/apis/SMS_VB.NET.rar