国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

129、讓您的文字框有 Undo / Redo 的功能
很多軟件都有提供 Undo / Redo 的功能，Microsoft 的產品都可以提供多次 Undo 反悔，功能更強大！
在 VB 的程序中，我們也可以提供這樣的功能！不過只能 Undo / Redo 一次
‘在聲明區(qū)中加入以下聲明：
‘32位元
‘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
‘Const EM_UNDO = &HC7
‘16位元
Private Declare Function SendMessage Lib "User" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Long
Const WM_USER = &H400
Const EM_UNDO = WM_USER + 23
‘在程序中使用的方式如下： ( Undo Text1 中的輸入 )
Private Sub Command1_Click()
Dim UndoResult As Long
UndoResult = SendMessage(Text1.hwnd, EM_UNDO, 0, 0)
‘傳回值 UndoResult = -1 表示 Undo 不成功
End Sub
‘使用以上的方法，第一次是 Undo ，第二次就等于是 Redo