+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : حدف حرف من التكست (/showthread.php?tid=20290)
حدف حرف من التكست - المتألق9 - 08-05-17
السلام عليكم
ممكن طريقة حدف اخر حرف في التكست كلما نضغط على بوتنبوتن مثلا يوجد في التكست كلمة فيجوال فعند الضغطة الاولى سيحدف حرف اللام وفي الضغطة الثانية سيحدف الالف وهكدا
RE: حدف حرف من التكست - silverlight - 08-05-17
يمكن استخدام Trim.End
RE: حدف حرف من التكست - أسامة السالمي - 08-05-17
جرب هذا الكود :
PHP كود :
If TextBox1.Text <> "" Then
TextBox1.Text = TextBox1.Text.Substring(0, TextBox1.Text.Length - 1)
End If
RE: حدف حرف من التكست - silverlight - 08-05-17
PHP كود :
While TextBox1.Text.Length > 0
TextBox1.Text = TextBox1.Text.Substring(0, TextBox1.Text.Length - 1)
End While
RE: حدف حرف من التكست - أسامة السالمي - 08-05-17
(08-05-17, 05:00 AM)silverlight كتب :PHP كود :
While TextBox1.Text.Length > 0
TextBox1.Text = TextBox1.Text.Substring(0, TextBox1.Text.Length - 1)
End While
الكود يحذف كل ما في الـ(TextBox)
RE: حدف حرف من التكست - silverlight - 08-05-17
أنت أدق يا أسامة ... أنا اللي كنت نايم و ما لاحظت ان الكود غير كامل
PHP كود :
Dim source As String = Me.TextBox1.Text
If Not String.IsNullOrEmpty(source) Then
Dim chrs As Char() = source.ToCharArray()
Dim lastChar As Char = chrs(source.Length - 1)
While source.Length > 0 AndAlso source(source.Length - 1) = lastChar
source = source.Substring(0, source.Length - 1)
End While
Me.TextBox1.Text = source
End If
PHP كود :
Dim s As String = Me.TextBox1.Text
If Not String.IsNullOrEmpty(s) Then
Dim chrs As Char() = s.ToCharArray()
Dim last As Char = chrs(s.Length - 1)
Me.TextBox1.Text = Me.TextBox1.Text.TrimEnd(last)
End If
RE: حدف حرف من التكست - المتألق9 - 13-05-17
مشكورين وبارك الله فيكم
RE: حدف حرف من التكست - حريف برمجة - 13-05-17
(08-05-17, 03:13 AM)المتألق9 كتب : السلام عليكم
ممكن طريقة حدف اخر حرف في التكست كلما نضغط على بوتنبوتن مثلا يوجد في التكست كلمة فيجوال فعند الضغطة الاولى سيحدف حرف اللام وفي الضغطة الثانية سيحدف الالف وهكدا
وعليكم السلام
ممكن بسطر واحد :
كود :
If TextBox1.Text = "" Then Exit Sub
TextBox1.Text = Mid(TextBox1.Text, 1, TextBox1.TextLength - 1)