التراجع عن الكتابة في text

الأخ الكريم سعد/ مشكو على مشاركاتك القيمة، و تعقيب بسيط أخى لتعظيم الفائدة من هذه الأكواد هى تحديدها ككود و ستجد هذا متاح من خلال شريط أدوات الرد السريع مثلاً على شكل رمز "#" و يكون الشكل كالتالى لوضوح الكود.

و مشكور ثانية

Option Explicit



Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" _

(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long



Const EM_CANUNDO = &HC6

Const EM_UNDO = &HC7



Private Sub Command1_Click()



'Call undo on the textbox...

Call SendMessage(Text1.hWnd, EM_UNDO, 0&, ByVal 0&)



End Sub



Private Sub Form_Load()

CheckUndoState

End Sub



Private Sub Text1_Change()

CheckUndoState

End Sub



Private Sub CheckUndoState()



Dim ll_CanUndo As Boolean



'Find out if the textbox can be undone...

ll_CanUndo = SendMessage(Text1.hWnd, EM_CANUNDO, 0&, ByVal 0&)

Command1.Enabled = ll_CanUndo



End Sub

شكرا أخي العزيز roka على هذا الرد .