Undo error - well it's not working!

[aikidokid]

I have the following code,but when the user clicks on the undo menu item - nothing happens.

Is there anything obvious I should or shouldn't be doing?

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 WM_USER = &H400
Private Const EM_UNDO = &HC7
 
Private Sub mnuUndo_Click()
UndoTextBox rtb1
End Sub
 
Private Sub UndoTextBox(Txtbx As RichTextBox)
    Dim X As Long
    
    X = SendMessage(Txtbx.hwnd, EM_UNDO, 0, 0)
End Sub

I am fairly new to API's so is this correct?

[brucevde]

Your code is correct and works for me.

Do you set any properties of the RTB control? I never changed anything.

It may depend on which OS, RTB version etc...

[aikidokid]

Do you set any properties of the RTB control?

None that I can see, it's used in it's default setting.

It may depend on which OS, RTB version etc...

Win XPPro
RTB Version - MS Rich Textbox Control 6.0 (sp1)
RICHTX32.OCX

[MartinLiss]

Originally posted by aikidokid
None that I can see, it's used in it's default setting.



Win XPPro
RTB Version - MS Rich Textbox Control 6.0 (sp1)
RICHTX32.OCX

I use the same OS and control that you do and it doesn't work for me either. I've tried previously without success to implement the undo and it hasn't worked. Neither have supposedly working projects that I've downloaded from the web. I don't know what version of the ocx Bruce uses but I suspect it stopped working with the switch to VB6.

[aikidokid]

Thanks Martin,

Have you found any workaround for this?

How do yoiu impliment the undo function in your apps then?

[MartinLiss]

I haven't and since it was just an experiment I haven't actually implemented undo in any app. I think however that psc has some examples using an array that lets you implement undo functionality.

[aikidokid]

OK thanks. I will take a look over there.

[brucevde]

I don't know what version of the ocx Bruce uses

XP Pro
Visual Studio 6
RTB Version - MS Rich Textbox Control 6.0 (sp4)
Richtx32.ocx - ver 6.088.4

I also have Visual Studio 2003 installed.

[MartinLiss]

Would you mind attaching that ocx?

[aikidokid]

This is the version I have installed: 6.1.97.82