网上可以做什么生意:让您的文字框有 Undo / Redo 的功能

129、让您的文字框有 Undo / Redo 的功能
很多软件都有提供 Undo / Redo 的功能，Microsoft 的产品都可以提供多次 Undo 反悔，功能更强大！
在 VB 的程序中，我们也可以提供这样的功能！不过只能 Undo / Redo 一次
‘在声明区中加入以下声明：
‘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

photoshop如何让文字有燃烧的效果？ 怎样可以让word 文档里的文字有底色？ 桌面图标上的文字上面有底色,我怎么让文字下面是透明的? 怎样才能让输入的文字变成闪动文字?有谁知道,教一下我啊!~ 有底纹的文字 打印出来会让文字不清晰吗 怎么让曾在“文字框”输过的文字记忆显示 求救!scandisk如何undo? undo文件夹之谜 如何让自己的IP显示文字 怎么样让文字一个一个的蹦出来 有什么办法让扫描的文字变成word文档的格式? 有没有软件可以让扫描仪扫出的文字图像直接变成文本的？ 注册表项ADClean Undo是什么? 怎么才能让沿弧形路径运动的文字也有透视效果啊?我现在做的文字只能沿路 这个代码的结果是弹出一个框,怎么让他输出文字?HTML语言.谢谢解答. 这个代码的结果是弹出一个框,怎么让他输出文字? 如果想制止让输入框记录所输入过的文字，应该怎么设置internet 用会声会影9如何让文字变得有阴影? 懂photoshop的来.在photoshop里面有让文字跟着路径走那种功能吗？是怎么弄的 让文字不断循环 让文字飞起来 有谁知道提交了网址,能让他自动读取该网站的<title>文字? 我用的是金立N6手机，有没有什么软件可以让文字文档在手机上面阅读？ 在平面设计中，文字排列有什么特定的要求么？ 怎么样会比较好看呢？ 让它们“形散神不散“？？？”