Количество символов

[yelis]

Подскажите, пожалуйста, как определить количество символов от начала строки до курсора, когда он стоит где-то внутри строки?
Спасибо.

[RXL]

yelis, где?

[Sla]

RXL, ну ты что? совсем нюх потерял? В RichTextBox

[yelis]

В RichTextBox или в TextBox

[RXL]

Sla, так надо все помнить? А если бы я не читал ту тему, то прошел бы мимо такого вопроса.

yelis, ссылку на MSDN я тебе давал - поройся там. Я не спец в VB.

[Finch]

А разве компонента RichTextBox об этом гордо молчит? Вроде как у нее есть свойства, которые говорят, на каком символе находится курсор. Читай мануал по компоненте.

[yelis]

Ребята!
Ваш форум практически единственный, где мне дали хоть какой-то ответ на этот вопрос.
По всем ссылкам, которые дал RXL я прошелся, но ничего нужного не нашел (правда нашел другое интересное, чего раньше не знал - за это большое спасибо RXL).
Finch! Вам тоже спасибо за ответ. Но если можно, то, пожалуйса, подскажите что-то конкретное, потому что я никаких свойств по моему вопросу не нашел.
Спасибо!

[Sla]

RXL, я же в шутку, тем более что я видел что ты и в той теме ответил.
Но yelis подумал, что мы в его теме и не стал сильно заморачиваться подробностями. Ведь на форумах живут только телепаты. Они (телепаты) правда тоже иногда спят, и подолгу.

[Sla]

yelis, расскажи какие методы есть у RichTextBox

[yelis]

У нас экзамен???:
Select(int, int)
SelPrint
GetValue(index) и др.
Вот, что я нашел:
У элемента RichTextBox существует метод GetLineFromChar, который Определяет строку, на которой находится курсор.
Непонятно только, почему разработчики не предусмотрели определение позиции курсора на строке.

Private Sub Command1_Click()
MsgBox RichTextBox1.GetLineFromChar(RichTextBox1.SelStart) + 1
End Sub

Неужели это действительно так?

[Sla]

судя по msdn не предусмотрели

зы.. да какой нафик экзамен, просто вопрос к тому чтоб точно узнать читал ли ты первоисточник

[Sla]

Код:

Private Sub Form_Load ()
   Text1.Text = "Two of the peak human experiences"
   Text1.Text = Text1.Text & " are good food and classical music."
End Sub
Private Sub Form_Click ()
   Dim Search, Where   ' Declare variables.
   ' Get search string from user.
   Search = InputBox("Enter text to be found:")
   Where = InStr(Text1.Text, Search)   ' Find string in text.
   If Where Then   ' If found,
      Text1.SetFocus
      Text1.SelStart = Where - 1   ' set selection start and
      Text1.SelLength = Len(Search)   ' set selection length.
   Else
      MsgBox "String not found."   ' Notify user.
   End If
End Sub

Попробуй раскрутить этот код

[yelis]

Спасибо! Попробую.