Lock the Rich Text Box Control

[DarkX_Greece]

If you use RichTextBox1.Locked = True property the RichTextBox is not totally Locked.

For example i locked the richtextbox with an image inside and i still resized the image and delete it but i couldn't type anything! Is there any way to lock Rich Text Box control in all properties?
(Text, Images etc)

[timeshifter]

I'm not in VB right now, so my info is probably faulty, but have you tried the "Enabled" property?

[DarkX_Greece]

Enable = False property does not allow user to click on Rich Text Box and i don't want something like this! But thanks for help!


If you find something else then please send it!

[manavo11]

Might not be the best but when you are done with all the adding data, have the exact same text/images in another RTB and in the change event of the main RTB you show, set the data to the data of the hidden RTB... Of course, it's not the best solution and it could have flickering...

[DarkX_Greece]

I wouldn't be a good idea because it would be too slow!

Any other ideas?

[manavo11]

How would LockWindowUpdate work? I don't have VB now to try it...

[DarkX_Greece]

I don't have idead for what are you talking about! I don't know this!

[manavo11]

Declare Function LockWindowUpdate Lib "user32" Alias "LockWindowUpdate" (ByVal hwndLock As Long) As Long

Pass the RTB's hwnd...

[Pc_Madness]

I had a similar problem for a chat program that I was making, and the only solution was to enable = false it.

[DarkX_Greece]

Manavo11, and how to unlock it then?

[aafuss]

Originally posted by manavo11

Declare Function LockWindowUpdate Lib "user32" Alias "LockWindowUpdate" (ByVal hwndLock As Long) As Long

Pass the RTB's hwnd...

Very simple and easy to use code.

[manavo11]

Originally posted by DarkX_Greece
Manavo11, and how to unlock it then?

LockWindowUpdate 0&

[DarkX_Greece]

Thanks Manavo11! ( I am not good on API coding)
I like most the math coding!

[manavo11]

No problem So it works?

[DarkX_Greece]

No!!!

I have a code:

LockWindowUpdate 0& 'This for unlocking the rtb
'There is some code here...for example....
RichTextBox.SelRtf = "\b Hello\b0"
LockWindowUpdate RichTextBox.hWnd 'This for locking the rtb



But there is nowhere Hello , that it should be in the RTB!

What is the wrong in the whole thing?
I can't make it work!

[Pc_Madness]

Fiddling with the RTF will only end in tears mate.

Might I suggest instead,

RTB1.Selstart = whatever
RtB1.sellength = len(ofword)
RTB1.SelBold = True

[chemicalNova]

You will probably need a DoEvents in there somewhere. As MartinLiss pointed out to me in another post, LockWindowUpdate will store everything that happens to the object, and once you pass 0& to LockWindowUpdate again (to 'unlock' it), all the changes that were stored will take place. Also, with LockWindowUpdate, it will automatically stop when you move the window (application window). You will need something like this:

You also may want to use UpdateWindow to unlock it, as LockWindowUpdate 0& doesn't seem to work everytime (for me anyway):

Declare Function UpdateWindow Lib "user32" (ByVal hwnd As Long) As Long

Phreak

[DarkX_Greece]

Use the UpdateWindow decalere function with LockWindowUpdate declare function! Can i lock a RichTextBox control through UpdateWindow? Or only to unlock it?