Позиция курсора

[Swarog]

Люди, я чей-то не догоняю...
Как сделать так, чтобы при нажатии enter'а в текстбоксе сначала добавлялось определенное слово (напр. <br> ), а потом курсор переводился на новую строку. И вообще, как задать (и узнать) положение курсора в тексте (именно мигающей палочки, а не выделения или чего еще)?
А то какая-то чушь получается...

ЗЫ. Кстати! Как узнать номер строки, где находится курсор?
Ух, не люблю я эти тексты...

[ehyloz]

vbCrLf = vbNewLine = asc(13) & asc(10) = символ новой строки
выберай

text1.text = text1.text & "<br>" & vbcrlf

[Swarog]

А еще chr(13)+chr(10).
Так и делал.
Получается, что <br>'ы накапливаются в конце последней строчки;
пустые строки добавляются почему-то в начале. А курсор остается на месте, хотя текст съезжает вниз.
Еще раз сейчас попробую...

[ehyloz]

ой . извеняюсь , перепутал.

а чтобы текстбокс опускался нужно :

Код: Выделить всё

Private Sub Text1_Change()
  Text1.SelLength = Len(Text1.Text)
End Sub

[_NeoN_]

Код: Выделить всё

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim start As Long
If KeyAscii = 13 Then
   KeyAscii = 0
   start = Text1.selstart
   Text1.Text = Text1.Text & "<br>" & vbCrLf
   Text1.selstart = start + 6 '6=len "<br>"+chr(13)+chr(10)
End If
End Sub


вот так...
тока мне непонятно почему же всем так хочется сделать HTML редактор... неужеле еще не все поняли что лучше Bred'a(ну или на худой конец простой notepad, хотя это почти одно и тоже только что бред удобнее ) никаких HTML редакторов нету

[_NeoN_]

ой блин не подумал о том что если где-нить посредине текста тыркнуть enter то <br> добавиться в конец, ща напишу нормально=)

[_NeoN_]

Код: Выделить всё

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim start As Long
Dim t1 As String, t2 As String
If KeyAscii = 13 Then
   KeyAscii = 0
   t1 = Left$(Text1.Text, Text1.selstart)
   t2 = Mid$(Text1.Text, Text1.selstart + 1)
   Text1.Text = t1 & "<br>" & vbCrLf & t2
   Text1.selstart = Len(t1) + 6 'len("<br>" & chr(13) & chr(10))=6
End If
t1=""
t1=""
End Sub


вот, после первого теста багов не обнаружено=) о всех багах сообщать на neon@lvs.ru =)

PS хы мне вторую здездочку на форуме дали=)

[ehyloz]

PS хы мне вторую здездочку на форуме дали=)

не в звёздочках счастье и не в их количестве ...

[Swarog]

>>почему же всем так хочется сделать HTML редактор...
Во-первых, это не хтмл редактор;
во-вторых, мне казалось, что всем прежде всего хочется сделать подобие MSPaint.

А код работает, спасибо (правда, пять минут помучился, прежде чем вспомнил про multiline).

ЗЫ. А насчет звездлочек - вспомните товарища Брежнева. У него их он скока было - и что? Все равно умер.