扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
作者:佚名 来源:梦蝶网 2007年10月14日
关键字: Visual Basic undo功能
Option Explicit Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Const EM_CANUNDO = &HC6 Private Const EM_UNDO = &HC7 Private Sub Command1_Click() Dim i As Integer i = SendMessage(Text1.hwnd, EM_UNDO, 0, 0) End Sub Private Sub Command2_Click() End End Sub |
如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。