Pessoal, eu preciso fazer uma tela de contrato de uso de sistema igual aquelas que aparecem quando vamos instalar um software. O cara lê tudo, e mesmo não lendo, só quando ele chegar na última linha o botão de ACEITO fica habilitado. Procurei mas não achei nenhum modelo para isto. Eu preciso dela no programa, não na instalação dele. Pois o usuário vai dizer se aceita usar, não instalar, já que a instalação é feita pelos técnicos. Alguém me ajuda ?

Colega eis minha colaboração.

 

primeiro coloque em um form um Picturebox, e dentro deste um RichtextBox, mas preste bem atenção coloque o RichTextBox dentro do Picture.

 

depois acrescente também um VScrollBar e CommandButton

 

agora mude a seguintes propriedades dos objetos

 

 

name="avançar"

Enable=true

 

 

Name=Rtb

Apparence=0-rtfFlex

 

 

Nome=BarraVertical

 

 

-----------------------------------

 

bom feito as alterações, cole este código

 

 

Private Sub Form_Load()
With BarraVertical
.Min = 0
.LargeChange = 600
.SmallChange = 1200
.Value = .Min
End With
Rtb.Top = 0
Rtb.Left = 0
Rtb.Height = 15000 ' aqui você determina a altura do richtextbox
Rtb.Width = Picture1.Width
End Sub
 
Private Sub Form_Resize()
If WindowState = vbMinimized Then Exit Sub
On Local Error Resume Next
With BarraVertical
.Move Picture1.ScaleWidth, 750, 240, Picture1.ScaleHeight
.Max = (Rtb.Height - Picture1.ScaleHeight)
End With
Err.Clear
End Sub

 

e pronto quando a barra de rolagem vertical chegar ao fim, o botão avançar é ativado.

 

o melhor deste código é que você pode colocar o seu contrato em um arquivo texto e depois carregar no RichTextBox, pela propriedade filename.

 

veja se ajuda

Olá Treze,

 

Fiz tudo exatamente como você postou acima, mas na hora de executar o VscrollBar some da tela. O que pode estar errado ?

 

Uma dúvidas:

Desculpe não sei onde estava minha cabeça mas é isso mesmo.

 

O CommandButton é enable = False

O RichTextBox é Apparence =  0 - rtfFlat

 

agora o VscroolBar você não coloca dentro do pictureBox deixe ele dentro do form fora do PictureBox

 

 

Perfeito !!!!!!!

Obrigado Treze