منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
طريقة عمل زر تراجع عن الامر undo - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : طريقة عمل زر تراجع عن الامر undo (/showthread.php?tid=28563)

طريقة عمل زر تراجع عن الامر undo - احمد خطاب - 11-02-19

السلام عليكم اصدقائى الاعزاء
ماهى اكواد وطريقة عمل زر تراجع عن الامر undo  وزر التنقل tab وزر تنفيذ الامر enter  فى فيجوال 2010
واشكركم

RE: طريقة عمل زر تراجع عن الامر undo - alnasser - 13-12-19

كود :
Public Class Form1
   Private urc As New UndoRedoClass(Of String)()
   Private NoAdd As Boolean = False

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Button_Undo.Enabled = False
       Button_Redo.Enabled = False
       urc.AddItem(RichTextBox1.Text)
   End Sub

   Private Sub Button_Undo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Undo.Click
       NoAdd = True
       urc.Undo()
       RichTextBox1.Text = urc.CurrentItem
       Button_Undo.Enabled = urc.CanUndo
       Button_Redo.Enabled = urc.CanRedo
       NoAdd = False
   End Sub

   Private Sub Button_Redo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Redo.Click
       NoAdd = True
       urc.Redo()
       RichTextBox1.Text = urc.CurrentItem
       Button_Undo.Enabled = urc.CanUndo
       Button_Redo.Enabled = urc.CanRedo
       NoAdd = False
   End Sub

   Private Sub RichTextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
       If Not NoAdd Then
           urc.AddItem(RichTextBox1.Text)
           Button_Undo.Enabled = urc.CanUndo
           Button_Redo.Enabled = urc.CanRedo
       End If
   End Sub
End Class