Rich text box & scroll bar
You could tell your users to read the license agreement and click on the
last line to when finished. Your last line could read something like:
"I have read the above license"
(keep it short). You can check if the user has clicked on this line using
something like this in the Click event:
Dim LastLine As String
LastLine = "I have read the above license"
With RichTextBox1
If .SelStart >= Len(.Text) - Len(LastLine) Then
' Highlight The Line To Give Feedback To The User
.SelStart = Len(.Text) - Len(LastLine)
.SelLength = Len(LastLine)
' Enable The "Accept" Button
CommandButton1.Enabled = True
End If
End With
Rick
Quote:
> I'm creating a simple control with a rich text box that is filled with a
> license agreement. There are 2 buttons, one for accepting the agreement
and
> one for not accepting. I don't want to enable the 'accept' button until
the
> user has scrolled to the bottom of the rich text box. Is there any easy
way
> to check this? I added a vertical scroll bar on the rich text box, but
> there doesn't seem to be any events for the scroll bar itself.
> Any help is greatly appreciated, even if it is just pointing me in the
right
> direction.
> Thanks in advance!
> Dave Snyder
