Hi put a button and a richtextbox on a form and copy paste this code, you
can ofcourse modify it to work with a timer:
Private Sub Button1_Click_1 (ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles _ Button1.Click
fader()
End Sub
Private Sub fader()
Dim myPoint As Point
Dim mySize As Size
myPoint = RichTextBox1.Lo cation
mySize = RichTextBox1.Si ze
For i As Integer = 0 To 10
myPoint.Y -= 5
myPoint.X -= 5
mySize.Width += 10
mySize.Height += 10
RichTextBox1.Lo cation = myPoint
RichTextBox1.Si ze = mySize
RichTextBox1.Re fresh()
System.Threadin g.Thread.Curren tThread.Sleep(1 00)
Next
End Sub
hth Greetz Peter
--
Programming today is a race between software engineers striving to build
bigger and better idiot-proof programs, and the Universe trying to produce
bigger and better idiots. So far, the Universe is winning.
<ma*****@yahoo. com> schreef in bericht
news:11******** *************@f 14g2000cwb.goog legroups.com...
Hi all.
I have some forms that use the opacity property to fade in/out. I'd
like to do the same kind of thing with a richtextbox on one of my
forms. Doesn't look like opacity is exposed on the rtb control, so I
was wondering if anyone had done this before.
I'm looking for the effect of fading in at a specific point in the form
(when a timer ticks actually). I also don't mind some effect like the
size of the control starting smaller and eventually getting to the
original size, but I haven't been able to get that to work properly.
I'd really like a true fade in if possible.
Any ideas !
Many TIA,
Mark