اگر میشه دستوری که با آن بتوان عملی را که انجام شده undo کرد بگویید؟![]()
اگر میشه دستوری که با آن بتوان عملی را که انجام شده undo کرد بگویید؟![]()
undo کار میکنه هههههههه
دوست عزیز شما باید خودتون حالتی اجیاد کنی که بتونی Undo کنه من که دستوری بلد نیستم . شما باید کد یبنویسی که اطلاعات مورد نظر را مثلاً تا 5 عمل آخری در جایی ذخیره کنه مثل فایلی نمیدونم رجیستری یا هرجایی دیگه که میتونی . این چیزی که به ذهن من میرسه . شاید راه بهتری باشه من بلد نباشم . در ضمن اگه بتوی پشته پیدا سازی کنی که دیگه کارت حله از پشته استفاده می کنی . یعنی بهترین روش هم استفاده از پشته است .
اقا روشهای زیادی داره
مثلا با sendkeys
یا
دستورات API
...
ههههههه آره کنترل و زد
تو هم کد بنویس
سلام
اگه واسه يه اديتور ميخواي من اينو دارم اگه واسه چيز ديگه (مثلا 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
اقا من سورس paint را دارم اما بعلت اینکه زیاده نمی تونم بنویسم
- امکان پیوست هم ندارم
- اما اینا بگم امکان کار کردن با لایه ها داخلش فراهم شده - یعنی کپی و پیست جواب میده - %100 با کنکاش می شه به undo هم رسید ---
شما میتونید از فضای مجانی که در اینترنت هست استفاده کنی فایلهاتون آپلود کنی .
هم اکنون 1 کاربر در حال مشاهده این تاپیک میباشد. (0 کاربر عضو شده و 1 مهمان)