دستوری که با آن بتوان عملی را که انجام شده undo کرد بگویید؟

[Alis_a]

اگر میشه دستوری که با آن بتوان عملی را که انجام شده undo کرد بگویید؟ :evil:

[Ali-Bahal]

undo کار میکنه هههههههه

[tomcat]

دوست عزیز شما باید خودتون حالتی اجیاد کنی که بتونی Undo کنه من که دستوری بلد نیستم . شما باید کد یبنویسی که اطلاعات مورد نظر را مثلاً تا 5 عمل آخری در جایی ذخیره کنه مثل فایلی نمیدونم رجیستری یا هرجایی دیگه که میتونی . این چیزی که به ذهن من میرسه . شاید راه بهتری باشه من بلد نباشم . در ضمن اگه بتوی پشته پیدا سازی کنی که دیگه کارت حله از پشته استفاده می کنی . یعنی بهترین روش هم استفاده از پشته است .

[Bedahe]

Ctrl +z اما دستور ! ! نمی دونم !
:biggrin:

[black_storm]

اقا روشهای زیادی داره
مثلا با sendkeys
یا
دستورات API
...

[Ali-Bahal]

ههههههه آره کنترل و زد


تو هم کد بنویس

[Blue Rose]

سلام
اگه واسه يه اديتور ميخواي من اينو دارم اگه واسه چيز ديگه (مثلا Paint) يا چيز ديگه ميخواي متاسفم

Module Code

Declare Function SendMessageBynum& Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
ByVal lparam As Long)
Public Const EM_UNDO = &HC7&
------------------------------------
Form Code
Private Sub TextUndo(T As TextBox)
SendMessageBynum T.hwnd, EM_UNDO, 0, 0
End Sub

Private Sub Command1_Click()
'replace the "Text1" below with the name of the Text Box you want to
'apply the Undo on it.
Call TextUndo(Text1)
End Sub

[black_storm]

اقا من سورس paint را دارم اما بعلت اینکه زیاده نمی تونم بنویسم
- امکان پیوست هم ندارم
- اما اینا بگم امکان کار کردن با لایه ها داخلش فراهم شده - یعنی کپی و پیست جواب میده - %100 با کنکاش می شه به undo هم رسید ---

[tomcat]

شما میتونید از فضای مجانی که در اینترنت هست استفاده کنی فایلهاتون آپلود کنی .