المشاركات : 353
المواضيع 48
الإنتساب : Oct 2012
السمعة :
18
الشكر: 897
تم شكره 309 مرات في 142 مشاركات
السلام عليكم
عندي رقم مكون من 5 خانات مثال 12345
أريد ان يتم تحويل الارقام كل منها على تكست بوكس منفصل
المثال في المرفقات وشكرا للجميع
اللهم ارحم من أسس هذا المنتدى (اباليث) و أجعل كل علم نافع تعلمناه في هذا المنتدى أجر له و صدقة تنفعه في قبره
المشاركات : 360
المواضيع 41
الإنتساب : Nov 2019
السمعة :
89
الشكر: 801
تم شكره 736 مرات في 325 مشاركات
تفضل
PHP كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click T5.Text = TextBox1.Text.Substring(0, 1) T4.Text = TextBox1.Text.Substring(1, 1) T3.Text = TextBox1.Text.Substring(2, 1) T2.Text = TextBox1.Text.Substring(3, 1) T1.Text = TextBox1.Text.Substring(4, 1) End Sub
المشاركات : 353
المواضيع 48
الإنتساب : Oct 2012
السمعة :
18
الشكر: 897
تم شكره 309 مرات في 142 مشاركات
الف شكر لكم جميعاً
جزاكم الله خير
اللهم ارحم من أسس هذا المنتدى (اباليث) و أجعل كل علم نافع تعلمناه في هذا المنتدى أجر له و صدقة تنفعه في قبره
المشاركات : 353
المواضيع 48
الإنتساب : Oct 2012
السمعة :
18
الشكر: 897
تم شكره 309 مرات في 142 مشاركات
(13-11-23, 02:14 PM)asmarsou كتب : تفضل
PHP كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click T5.Text = TextBox1.Text.Substring(0, 1) T4.Text = TextBox1.Text.Substring(1, 1) T3.Text = TextBox1.Text.Substring(2, 1) T2.Text = TextBox1.Text.Substring(3, 1) T1.Text = TextBox1.Text.Substring(4, 1) End Sub
طلب أخر
اذا كان التكست بوكس يحتوي على أسم ، كيف اقسمه على عدد 5 تكست بوكس
نفس السابق و لكن بالنص ، جربت الكود للنص و لم يفلح
اللهم ارحم من أسس هذا المنتدى (اباليث) و أجعل كل علم نافع تعلمناه في هذا المنتدى أجر له و صدقة تنفعه في قبره
المشاركات : 1,055
المواضيع 15
الإنتساب : May 2016
السمعة :
260
الشكر: 690
تم شكره 1938 مرات في 1004 مشاركات
(14-11-23, 01:22 AM)أبووسم كتب : طلب أخر
اذا كان التكست بوكس يحتوي على أسم ، كيف اقسمه على عدد 5 تكست بوكس
نفس السابق و لكن بالنص ، جربت الكود للنص و لم يفلح
نفس الكود السابق بيمشي مع النصوص ومع الارقام.
وكذلك الكود التالي :
كود :
TextBox2.Text = TextBox1.Text(0)
TextBox3.Text = TextBox1.Text(1)
TextBox4.Text = TextBox1.Text(2)
TextBox5.Text = TextBox1.Text(3)
TextBox6.Text = TextBox1.Text(4)
وكذلك الكود التالي :
كود :
TextBox2.Text = Mid(TextBox1.Text, 1, 1)
TextBox3.Text = Mid(TextBox1.Text, 2, 1)
TextBox4.Text = Mid(TextBox1.Text, 3, 1)
TextBox5.Text = Mid(TextBox1.Text, 4, 1)
TextBox6.Text = Mid(TextBox1.Text, 5, 1)
قال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».
المشاركات : 353
المواضيع 48
الإنتساب : Oct 2012
السمعة :
18
الشكر: 897
تم شكره 309 مرات في 142 مشاركات
(14-11-23, 03:16 AM)Taha Okla كتب : (14-11-23, 01:22 AM)أبووسم كتب : طلب أخر
اذا كان التكست بوكس يحتوي على أسم ، كيف اقسمه على عدد 5 تكست بوكس
نفس السابق و لكن بالنص ، جربت الكود للنص و لم يفلح
نفس الكود السابق بيمشي مع النصوص ومع الارقام.
وكذلك الكود التالي :
كود :
TextBox2.Text = TextBox1.Text(0)
TextBox3.Text = TextBox1.Text(1)
TextBox4.Text = TextBox1.Text(2)
TextBox5.Text = TextBox1.Text(3)
TextBox6.Text = TextBox1.Text(4)
وكذلك الكود التالي :
كود :
TextBox2.Text = Mid(TextBox1.Text, 1, 1)
TextBox3.Text = Mid(TextBox1.Text, 2, 1)
TextBox4.Text = Mid(TextBox1.Text, 3, 1)
TextBox5.Text = Mid(TextBox1.Text, 4, 1)
TextBox6.Text = Mid(TextBox1.Text, 5, 1)
اشكرك على الرد
للأسف الكود يقسم كل حرف لوحده و المطلوب ينقل الأسم كامل
المطلوب إذا كان الاسم( محمد بن أحمد سليمان )
يتم تقسيم كل أسم لوحده مثل محمد / أحمد / سليمان
اللهم ارحم من أسس هذا المنتدى (اباليث) و أجعل كل علم نافع تعلمناه في هذا المنتدى أجر له و صدقة تنفعه في قبره
المشاركات : 476
المواضيع 2
الإنتساب : Sep 2013
السمعة :
19
الشكر: 95
تم شكره 501 مرات في 215 مشاركات
PHP كود :
Dim inputString As String = TextBox1.Text Dim words() As String = inputString.Split(" "c)
For Each word As String In words MsgBox(word) Next
المشاركات : 353
المواضيع 48
الإنتساب : Oct 2012
السمعة :
18
الشكر: 897
تم شكره 309 مرات في 142 مشاركات
(14-11-23, 01:54 PM)تركي الحلواني كتب : PHP كود :
Dim inputString As String = TextBox1.Text Dim words() As String = inputString.Split(" "c)
For Each word As String In words MsgBox(word) Next
الكود ناقص لم يعمل معي
اللهم ارحم من أسس هذا المنتدى (اباليث) و أجعل كل علم نافع تعلمناه في هذا المنتدى أجر له و صدقة تنفعه في قبره
المشاركات : 476
المواضيع 2
الإنتساب : Sep 2013
السمعة :
19
الشكر: 95
تم شكره 501 مرات في 215 مشاركات
(14-11-23, 07:06 PM)أبووسم كتب : (14-11-23, 01:54 PM)تركي الحلواني كتب : PHP كود :
Dim inputString As String = TextBox1.Text Dim words() As String = inputString.Split(" "c)
For Each word As String In words MsgBox(word) Next
الكود ناقص لم يعمل معي
قمت بإعطائك الفكرة كي تقوم بتطبيقها على مشروعك لو كان من 5 نصوص او اكثر او اقل
المشاركات : 353
المواضيع 48
الإنتساب : Oct 2012
السمعة :
18
الشكر: 897
تم شكره 309 مرات في 142 مشاركات
(14-11-23, 03:16 AM)Taha Okla كتب : (14-11-23, 01:22 AM)أبووسم كتب : طلب أخر
اذا كان التكست بوكس يحتوي على أسم ، كيف اقسمه على عدد 5 تكست بوكس
نفس السابق و لكن بالنص ، جربت الكود للنص و لم يفلح
نفس الكود السابق بيمشي مع النصوص ومع الارقام.
وكذلك الكود التالي :
كود :
TextBox2.Text = TextBox1.Text(0)
TextBox3.Text = TextBox1.Text(1)
TextBox4.Text = TextBox1.Text(2)
TextBox5.Text = TextBox1.Text(3)
TextBox6.Text = TextBox1.Text(4)
وكذلك الكود التالي :
كود :
TextBox2.Text = Mid(TextBox1.Text, 1, 1)
TextBox3.Text = Mid(TextBox1.Text, 2, 1)
TextBox4.Text = Mid(TextBox1.Text, 3, 1)
TextBox5.Text = Mid(TextBox1.Text, 4, 1)
TextBox6.Text = Mid(TextBox1.Text, 5, 1)
الكود يمشي مع عدد الحروف فقط قام بتقسم كلمة محمود إلى ( م ح م و د)
أريد تقسم الأسم كامل لوحدة مثل ( محمود أحمد يوسف ) كل أسم في تكست لوحده
اللهم ارحم من أسس هذا المنتدى (اباليث) و أجعل كل علم نافع تعلمناه في هذا المنتدى أجر له و صدقة تنفعه في قبره
|