Olá pessoal peguei este codigo em uma apostila, mas acho que poderia melhora-lo. Serve para que se posicione o cursor no numero de linha que foi digitado em uma caixa de texto. Assim como é feito no bloco de notas. Gostaria de uma orientação para poder melhorar este código. Obrigada....
If IsNumeric(txtIrPara.Text) Then
Dim linha As Integer, posicao As Integer, x As Integer
Pergunta
Guest - Patricia -
Olá pessoal peguei este codigo em uma apostila, mas acho que poderia melhora-lo. Serve para que se posicione o cursor no numero de linha que foi digitado em uma caixa de texto. Assim como é feito no bloco de notas. Gostaria de uma orientação para poder melhorar este código. Obrigada....
If IsNumeric(txtIrPara.Text) Then
Dim linha As Integer, posicao As Integer, x As Integer
linha = CInt(txtIrPara.Text)
posicao = 1
For x = 1 To linha 'nº da linha
posicao = InStr(posicao, frmDocumentos.txtCorpoDoTexto.Text, vbCrLf)
posicao = posicao + 1
Next x
Unload frmIrPara
frmDocumentos.txtCorpoDoTexto.SelStart = posicao - 1
frmDocumentos.txtCorpoDoTexto.SetFocus
Else
MsgBox "É necessário especificar um número!"
End If
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.