Freeze a richtextbox so the text doesnt appear, then unfreeze

[BorT]

Hey, what im basically trying to do is make it so that a certain interval it locks the richtextbox and doesnt display the text that has come through when it was locked and then unlock it, kinda like stealths Chat filters..When there enabled it doesnt display anything in the chat screen until you disable the chat filters..

[hismajesty]

Code Select Expand

RichText1.Enabled = False

[CrAz3D]

Don't add anything to the RTB if a public boolean = true?...
IE:

Code Select Expand

'This should be in a module
Public LockChat as boolean


Code Select Expand

'This should in you "AddChat" type function
If LockChat = True then Exit Sub


[BorT]

Thanks CrAz3D, thats what I was looking for.

[CrAz3D]

Straight up dawg

[Networks]

Shouldn't this  be in the visual basic forum?

[hismajesty]

Thanks CrAz3D, thats what I was looking for.

That's not what you asked for, well you did but not clearly.  

[Eli_1]

This whole time I thought he was asking for:

Code Select Expand


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

' Lock
LockWindowUpdate RichTextBox1.hWnd

' Unlock
LockWindowUpdate ByVal 0&


[FrOzeN]

Code Select Expand

in your AddChat function in the module just stick it in a If Then

eg..

Code Select Expand

Public Function AddChat(some stuff here etc..)
  If mnuLock.Checked = False Then

*add chat code*

  End If
End Function

that will make when the menu section "mnuLock" if its checked it will AddChat if its not it won't that enough help?

[Dyndrilliac]

That's exactly what Cr4z3d posted except he used a variable instead of a menu control...