المشاركات : 56
المواضيع 29
الإنتساب : Nov 2018
السمعة :
0
الشكر: 34
تم شكره 28 مرات في 17 مشاركات
السلام عليكم
عندي استفسار يا اصدقاء
عندي textbox فيه مجموعة حروف و ارقام
اريد حذف الرقم او الحرف 5 الي هو 8
و شكرا لكم
المشاركات : 101
المواضيع 0
الإنتساب : Nov 2019
السمعة :
20
الشكر: 217
تم شكره 274 مرات في 87 مشاركات
وعليكم السلام
اذا كنت تريد حفظ الموقع الخامس بغض النظر عن المحتوى الي بيه استخدم الكود ادناه
PHP كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim str As String = TextBox1.Text Dim str2 = "" For i = 1 To Len(str) If i <> 5 Then str2 &= Mid(str, i, 1) End If Next TextBox1.Text = str2 End Sub
ومن خلال تغير الرقم في الكوندشن رح يحذف موقع الرقم الي تحدده
المشاركات : 664
المواضيع 32
الإنتساب : Oct 2013
السمعة :
81
الشكر: 776
تم شكره 992 مرات في 298 مشاركات
الحرف الخامس بالتكست يعني الرابع بالكود لان الاول هوا الصفر
كود :
TextBox1.Text = TextBox1.Text.Remove(4, 1)
4 هوا موقع الحرف : و ال 1 هو عدد الحروف المراد حذفها
كود الاخ علي بنيان جدآ رائع عاشت ايدك اخي
المشاركات : 56
المواضيع 29
الإنتساب : Nov 2018
السمعة :
0
الشكر: 34
تم شكره 28 مرات في 17 مشاركات
(04-12-19, 06:15 AM)علي بنيان كتب : وعليكم السلام
اذا كنت تريد حفظ الموقع الخامس بغض النظر عن المحتوى الي بيه استخدم الكود ادناه
PHP كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim str As String = TextBox1.Text Dim str2 = "" For i = 1 To Len(str) If i <> 5 Then str2 &= Mid(str, i, 1) End If Next TextBox1.Text = str2 End Sub
ومن خلال تغير الرقم في الكوندشن رح يحذف موقع الرقم الي تحدده
(04-12-19, 11:16 AM)3booody كتب : الحرف الخامس بالتكست يعني الرابع بالكود لان الاول هوا الصفر
كود :
TextBox1.Text = TextBox1.Text.Remove(4, 1)
4 هوا موقع الحرف : و ال 1 هو عدد الحروف المراد حذفها
كود الاخ علي بنيان جدآ رائع عاشت ايدك اخي
اشكركم كثيرا اخوتي الكرام ربي يجعلها في ميزان حسناتكم
ممكن سؤال اخر
لو عندي 2 textbox فيهم حروف و ارقام
فقط حرف واحد مختلف عن الاثنين
كيف احذفه
المشاركات : 664
المواضيع 32
الإنتساب : Oct 2013
السمعة :
81
الشكر: 776
تم شكره 992 مرات في 298 مشاركات
تحتاج تقارن حرف حرف
كود :
On Error Resume Next
For i As Integer = 0 To TextBox1.Text.Length - 1
If TextBox1.Text.Chars(i) <> TextBox2.Text.Chars(i) Then
TextBox1.Text = TextBox1.Text.Remove(i, 1)
TextBox2.Text = TextBox2.Text.Remove(i, 1)
End If
Next
المشاركات : 101
المواضيع 0
الإنتساب : Nov 2019
السمعة :
20
الشكر: 217
تم شكره 274 مرات في 87 مشاركات
(04-12-19, 11:16 AM)3booody كتب : الحرف الخامس بالتكست يعني الرابع بالكود لان الاول هوا الصفر
كود :
TextBox1.Text = TextBox1.Text.Remove(4, 1)
4 هوا موقع الحرف : و ال 1 هو عدد الحروف المراد حذفها
كود الاخ علي بنيان جدآ رائع عاشت ايدك اخي
عاشت ايدك اخي على هذه الطريقة المختصرة , حقيقة ما كنت اعرفها
المشاركات : 664
المواضيع 32
الإنتساب : Oct 2013
السمعة :
81
الشكر: 776
تم شكره 992 مرات في 298 مشاركات
(04-12-19, 09:56 PM)علي بنيان كتب : عاشت ايدك اخي على هذه الطريقة المختصرة , حقيقة ما كنت اعرفها
ربي يسلمك اخي الغالي وان شاء الله دائمآ نرى ابداعك بمساعدة الاخرين
|