+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] استفسار :- بخصوص textbox (/showthread.php?tid=26195)
الصفحات:
1
2
استفسار :- بخصوص textbox - dubai.eig - 21-08-18
السلام عليكم ورحمة الله
كل عام والجميع بالف خير
حصلت الطريقه وتم الحل والحمدالله بارك الله فيكم وشكرا
يرجى حذف الموضوع وشكرا
RE: استفسار :- بخصوص textbox - elgokr - 22-08-18
وعليكم السلام ورحمة الله وبركاته
عيد سعيد عليك اخى dubai.eig
وعلى الجميع يارب ان شاء الله
يبدو من موضوعك قبل اتمام التعديل بانك حللت المشكلة
انك عملت كما يقال الصعب واتيت على ابسط شئ ووثفت عندها
لديك الكود البسيط المطلوب استخدامه حتى تعم الفائدة على الجميع
اولاً عن طريق استخدام بهذا الشكلكود :
TextBox1.Text = TextBox1.Text.Replace(Space(1), ",")وايضاً يمكنك استخدامه بهذا الشكل
كود :
TextBox1.Text = TextBox1.Text.Replace(" ", ",")فكيلاهما واحد
تحياتى لك
وتمنياتى لك التوفيق
RE: استفسار :- بخصوص textbox - عابر سبيل 2 - 22-08-18
(21-08-18, 11:09 PM)dubai.eig كتب : السلام عليكم ورحمة الله
كل عام والجميع بالف خير
حصلت الطريقه وتم الحل والحمدالله بارك الله فيكم وشكرا
يرجى حذف الموضوع وشكرا
ياليت لو تركت سؤالك وارفقت بعده الحل
ليستفيد منه الآخرون
RE: استفسار :- بخصوص textbox - elgokr - 22-08-18
(22-08-18, 01:00 PM)عابر سبيل 2 كتب :ياليت لو تركت سؤالك وارفقت بعده الحلليستفيد منه الآخرون
اتفق معاك تماماً اخى عابر سبيل2
تحياتى لك
وتمنياتى لك التوفيق
RE: استفسار :- بخصوص textbox - essawq - 22-08-18
السلام عليكم ورحمة الله وبركاتة
كل عام وانتم بخير
راينا الاجابة ولم نرى السؤال؟
ممكن السؤال لكي تعم الفائدة على الجميع حتى وان كان بسيط
تحياتي لكم
RE: استفسار :- بخصوص textbox - dubai.eig - 23-08-18
(22-08-18, 07:20 AM)elgokr كتب :وعليكم السلام ورحمة الله وبركاته
عيد سعيد عليك اخى dubai.eigوعلى الجميع يارب ان شاء الله
يبدو من موضوعك قبل اتمام التعديل بانك حللت المشكلةانك عملت كما يقال الصعب واتيت على ابسط شئ ووثفت عندها
لديك الكود البسيط المطلوب استخدامه حتى تعم الفائدة على الجميعاولاً عن طريق استخدام بهذا الشكل
كود :
TextBox1.Text = TextBox1.Text.Replace(Space(1), ",")
وايضاً يمكنك استخدامه بهذا الشكل
كود :
TextBox1.Text = TextBox1.Text.Replace(" ", ",")
فكيلاهما واحدتحياتى لكوتمنياتى لك التوفيق
اهلا بك استاذي الكريم
صحيح بعد كتابة الموضوع قمت بالبحث وحصلت الطريقه
وهيه اني عندي ارقام عباره عن 30 رقم تقريبا
FE FE E0 94 25 00 00 00 20 14 00 FD
اريد اخذ منهم فقط
8 ارقام وهم
14 20 00 00
ومن بعد ما اخذ الارقام محتاج ارتبهم ليصبحون كذا
14200000
والحل كان
كود :
retString = txtReceived.Text.Substring(18, 11)
Dim s00 As String = retString
Dim left, right, mid, mid2, mid3 As String
right = s00.Substring(s00.Length - 2, 2)
mid2 = s00.Substring(6, 2)
mid = s00.Substring(3, 1)
mid3 = s00.Substring(4, 1)
left = s00.Substring(0, 3)
SetText2(right & "," & mid2 & mid & "," & mid3 & left)في البداية اخذة 11 رقم من بعد 18 رقم
FE FE E0 94 25 00 00 00 20 14 00 FD
14 20 00 00
كود :
retString = txtReceived.Text.Substring(18, 11)ومن ثم قمت بتوزيعهم حسب المطلوب
كود :
Dim s00 As String = retString
Dim left, right, mid, mid2, mid3 As String
right = s00.Substring(s00.Length - 2, 2)
mid2 = s00.Substring(6, 2)
mid = s00.Substring(3, 1)
mid3 = s00.Substring(4, 1)
left = s00.Substring(0, 3)
SetText2(right & "," & mid2 & mid & "," & mid3 & left)ليصبحون في الاخير
14200000
بس واجهتني مشكله في العرض
[attachment=19233]
في NumericUpDown1
اريد العرض يكون كذا
[attachment=19234]
اقصد الفواصل
21,200,000
الكود كذا
كود :
SetText2(right & "," & mid2 & mid & "," & mid3 & left)الفواصل موجوده بس في العرض ما تطلع
حاولت بس موب راضيه تطلع الفواصل
واشكرك على مرورك الكريم
(22-08-18, 01:00 PM)عابر سبيل 2 كتب :(21-08-18, 11:09 PM)dubai.eig كتب : السلام عليكم ورحمة الله
كل عام والجميع بالف خير
حصلت الطريقه وتم الحل والحمدالله بارك الله فيكم وشكرا
يرجى حذف الموضوع وشكرا
ياليت لو تركت سؤالك وارفقت بعده الحلليستفيد منه الآخرون
تم واعتذر من الجميع
(22-08-18, 11:23 PM)essawq كتب :السلام عليكم ورحمة الله وبركاتةكل عام وانتم بخيرراينا الاجابة ولم نرى السؤال؟ممكن السؤال لكي تعم الفائدة على الجميع حتى وان كان بسيطتحياتي لكم
تم استاذي الفاضل
RE: استفسار :- بخصوص textbox - elgokr - 23-08-18
فقط لحل هذه المشكلة
حول اداء NumericUpDown الى TextBox
ثم اجعل القيمة التى تم جلبها مسبقان للارقام مثلاًPHP كود :
TextBox1.text = "11 222 243 00"
ثم استخدم الكود الموجود بردى السابق
اسفل قيمة المثال الموضح بالرد
تحياتى لك
وتمنياتى لك التوفيق
RE: استفسار :- بخصوص textbox - dubai.eig - 26-08-18
السلام عليكم
ما حبيت اكتب موضوع جديد لان الاستفسار له علاقه بنفس السؤال هنا
وهو
كيف اضيف رقم في بداية اي ارقام
مثلا textbox في سبع ارقام
9999999
اريد اضيف رقم صفر في بداية الارقام
09999999
كود :
If box.Text.Length = "7" Then
but 0 in Starts With
end ifوشكرا
RE: استفسار :- بخصوص textbox - ابراهيم ايبو - 26-08-18
السلام عليكم اخي الكريم هذا مثال لما ترغب في اضافة الصفر على يسار الرقم وعدد هانات الاصفار حدده انت وفق عدد الخانات وزد عليه حسب ماترغب
RE: استفسار :- بخصوص textbox - elgokr - 26-08-18
وعليكم السلام ورحمة الله وبركاته
مرحباً بك اخى dubai.eig
بخصوص طلبك اليك الطريقة بابسط من ما يكون
اذا كانت الاقام متغيرة اذا كان تتزايد عن العدد او التناقص
وكل ما تحتاجه هو اضافة فقط 0 قبل الرقم فكل ما عليك تطبيق مثل هذا المثال
كود :
Dim ii As Integer = 65489
MsgBox("0" & ii)ولاحظ هنا استخدام & وليس + ويفضل ان تجعل الصفر داخل "" ليتم اعتباره نصي
طيب انت مثلاً بتعمل قيمة مثل مثلاً رقم تليفون
والعدد الاقصي له هو 10 ارقام او 11 مثلاً
فطبيعة الحال عند ادخال الرقم يتم حذفه تلقائي لان الصفر على الشمال لا قيمة له
لكن تريد عند عرضه يظهر 0 فى بداية الرقم فكل ما عليك تطبيق مثل التالى
كود :
Dim ii As Integer = 65489
MsgBox(ii.ToString("0000000"))ضع عدد الاصفار للعدد المطلوب الارقام عرضها
اتمنى ان تكون الصورة وضحت لك كاملاً وان الشرح بسيط
تحياتى لك
وتمنياتى لك التوفيق