Whenever I minimize my richtextbox and a change occurs while it is minimized (such as an rtbAdd), all the text is pushed up for some reason when I restore the window.
rtbChat.Find rtbChat.Text, 0, Len(rtbChat.Text)
Put that in your form resize sub.
I had not realized there was a Find function for the rtb, but after experimenting with the code you gave me and some other ideas of my own, the richtextbox still pushes all the text beyond the visible area when I restore...
I suppose this just a small problem, and in some cases a good feature.
Did you place the code at the end of your resize code?
Quote from: Lobo.iD on February 07, 2004, 10:55 PM
Did you place the code at the end of your resize code?
Yes I did, right above the End Sub
hmm, wierd sorry my code didn't help, it's what I always used. Good luck on finding a solution.
Did you have the same problem?
Show some code.
No I don't have the same problem. Do what grok said show us some code, we will be able to better aid your problem.
'Vertical
rtbChat.Height = 0.63 * Me.ScaleHeight
'Horizontal
rtbChat.Width = Me.ScaleWidth - 2955
This is the form resize for my rtb...
the .63 is the scale relative to the actual form (.63 : 1)
Oh boy! Two whole lines. Someone with ESP will have to help you.
At the end of your function.
Put something like
rtb.SetStart = Len(rtb.Text)
That should help =|
Public Sub rtbAdd(ParamArray Elements() As Variant)
rtbTimeStamp "[" & Format(Time, "hh:mm:ss") & "] ", vbWhite
Dim i As Integer
For i = LBound(Elements) To UBound(Elements) Step 2
With rtbChat
.SelStart = Len(.text)
.SelLength = 0
.SelColor = Elements(i + 1)
.SelText = Elements(i)
.SelStart = Len(.text)
End With
Next i
End Sub
Public Sub rtbTimeStamp(ByVal txtOne As String, ByVal clrOne As Long)
With rtbChat
.SelStart = Len(.text)
.SelLength = 0
.SelColor = clrOne
.SelText = txtOne
End With
End Sub
My rtbAdd function...
The rtbAdd code should not result in the problem your haveing, post your resize code, also set a breakpoint on the code I gave you to put in, see if it is ever executed.
The resize code I posted earlier is the only code I have for my rtb right now...
rtbChat.Height = 0.63 * Me.ScaleHeight
When I disable this, the rtb works normally as it should, perhaps you can't use this kind of syntax for setting height...Its unfortunate, I thought I had found an easier way to deal with resizing controls through the use of ratios
I don't know if this will help any but...
Const Padding As Integer = 15 * 15
rtbChat.Height = Me.ScaleHeight - Padding
It's subtracting 15 pixels(I Believe).
Hope that helps.
Actually I solved my problem by Exiting Sub whenever it was a minimize, perhaps the window became so small on a minimize that the text was being shifted to the top...
Glad you got it figured out. Sorry if I was not much of help.