+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مكتبة اكواد VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=185)
+--- الموضوع : كود اضافة نص لنص وحذفه دون تاثر اي النصين (/showthread.php?tid=34677)
كود اضافة نص لنص وحذفه دون تاثر اي النصين - سعود - 09-05-20
PHP كود :
Public Class Form1
Dim enc As Boolean
Dim pos As Integer = 0
Private Sub btnInsertOrRemove_Click(sender As System.Object, e As System.EventArgs) Handles btnInsertOrRemove.Click
If pos = 0 Then
pos = (txtbody.Text.Trim.Length / 2)
End If
If enc = False Then
txtbody.Text = txtbody.Text.Insert(pos, txtinput.Text)
enc = True
ElseIf enc = True Then
txtbody.Text = txtbody.Text.Remove(pos, txtinput.Text.Length)
enc = False
End If
End Sub
End Class
احيانا يحصل الانسان على معلومات لكن لعدم حاجته لها في آنه يغفلها وحين يحتاج يتعب حتى يذكرها
كل عام و انتم بخير
اللهم ارفع البلاء والوباء والضراء