PEGAR LINHA ESPECIFICA NO RICHTEXTBOX
Pessoal preciso pegar uma linha de um RichTextBox,
Tipo msgbox linha 345 do RichTextBox
como faço isso?
Obrigado!
Tipo msgbox linha 345 do RichTextBox
como faço isso?
Obrigado!
no listbox e assim:
msgbox listbox.list(numero sa linha)
como e no RichTextBox?
msgbox listbox.list(numero sa linha)
como e no RichTextBox?
Private Sub Command3_Click()
MsgBox PegaLinha(CInt(Text4.Text), RichTextBox1.Text)
End Sub
Function PegaLinha(Linha As Integer, Campo As Variant) As String
Dim Mtz As Variant
Mtz = Split(Campo, vbCrLf)
If Linha > UBound(Mtz) Then
PegaLinha = [Ô][Ô]
End If
PegaLinha = Mtz(Linha)
End Function
Creditos: Bruno Abud
MsgBox PegaLinha(CInt(Text4.Text), RichTextBox1.Text)
End Sub
Function PegaLinha(Linha As Integer, Campo As Variant) As String
Dim Mtz As Variant
Mtz = Split(Campo, vbCrLf)
If Linha > UBound(Mtz) Then
PegaLinha = [Ô][Ô]
End If
PegaLinha = Mtz(Linha)
End Function
Creditos: Bruno Abud
Tópico encerrado , respostas não são mais permitidas