Длина строки в твипах.

[Yurich]

Есть-ли возможность определять длину (в твипах) произвольной строки, хранящейся в переменной, при известных размерах шрифта. Это надо для последующего форматирования текста в процессе печати.

[tyomitch]

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

Debug.Print Printer.TextWidth ("Строка")

[Yurich]

Спасибо, Тёмыч! Буду пробовать.

[Yurich]

Существует-ли стандартная ф-я, чтобы засветить/погасить мигающий курсор на форме или пикчебоксе?

[Amed]

Мигающий курсор на форме или пикчербоксе?

[Yurich]

Токмо не нать переспрашивать. Я достаточно чётко спросил!

[Amed]

Да я не понимаю просто... Курсор или каретку? Если каретку, то как она может мигать в пикчербоксе или на форме? Если курсор, то тем более...

[Yurich]

Да я не понимаю просто... Курсор или каретку? Если каретку, то как она может мигать в пикчербоксе или на форме? Если курсор, то тем более...

То, что мигает в моем понимании всегда было и будет курсором, а что двигается синхронно с мышью - маузепоинтер!

[Amed]

В моём понимании, кстати, тоже. Я просто уточнял. А как запихнуть курсор в пикчербокс? CreateCaret? Не прокатило...

[d3drm]

когда пикчер в октиве отлавливаем клавиши. вносим это все в строку и выводим на это самый пикчур. тока прикол в том, чтобы через таймер отлавливать всю эту мешанину и через некоторое время прибавлять и удалять знак "|"... я так в консоли делал....

[Amed]

Да ведь смысл в том, чтобы найти функцию для делания всего этого автоматом

Существует-ли стандартная ф-я, чтобы засветить/погасить мигающий курсор на форме или пикчебоксе?

[Yurich]

Я этот самый курсор просто прорисовываю через Line, но это муторно - вычислить знакоместо, определить длину, конфигурацию, нарисовать, потом погасить, разрешить/запретить и т.д.

[Amed]

Совет: ждём до утра, когда придут зубры... tyomitch, GSerg, alibek и др... Я лично думаю, что низзя CreateCaret в пикчере...

[GSerg]

Все люди как люди, а я даже кофе утром толком попить не могу, сразу на форум

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

Option Explicit

Private Declare Function CreateCaret Lib "user32.dll" (ByVal hwnd As Long, ByVal hBitmap As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Private Declare Function DestroyCaret Lib "user32.dll" () As Long
Private Declare Function HideCaret Lib "user32.dll" (ByVal hwnd As Long) As Long
Private Declare Function SetCaretPos Lib "user32.dll" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Function ShowCaret Lib "user32.dll" (ByVal hwnd As Long) As Long

Private Sub Form_Load()
  Picture1.ScaleMode = vbPixels
End Sub

Private Sub Form_Unload(Cancel As Integer)
  DestroyCaret
End Sub

Private Sub Picture1_GotFocus()
  CreateCaret Picture1.hwnd, 0, 2, 20
  SetCaretPos 20, 20
  ShowCaret Picture1.hwnd
End Sub

Private Sub Picture1_LostFocus()
  DestroyCaret
End Sub

[Amed]

Ы-ы... А почему у меня ничего не получилось? =))

Ага... Я писал

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

CreateCaret Picture1.hwnd, Picture1.Picture, 2, 20

почему-то... И ничего не работало

Стыдно, да, стыдно...

[Yurich]

Все люди как люди, а я даже кофе утром толком попить не могу, сразу на форум

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

Option Explicit

Private Declare Function CreateCaret Lib "user32.dll" (ByVal hwnd As Long, ByVal hBitmap As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Private Declare Function DestroyCaret Lib "user32.dll" () As Long
Private Declare Function HideCaret Lib "user32.dll" (ByVal hwnd As Long) As Long
Private Declare Function SetCaretPos Lib "user32.dll" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Function ShowCaret Lib "user32.dll" (ByVal hwnd As Long) As Long

Private Sub Form_Load()
  Picture1.ScaleMode = vbPixels
End Sub

Private Sub Form_Unload(Cancel As Integer)
  DestroyCaret
End Sub

Private Sub Picture1_GotFocus()
  CreateCaret Picture1.hwnd, 0, 2, 20
  SetCaretPos 20, 20
  ShowCaret Picture1.hwnd
End Sub

Private Sub Picture1_LostFocus()
  DestroyCaret
End Sub

Замечена интересная особенность. На форме кроме пикчебокса расположил текстбокс. При клике на текстбокс мышью фокус им не улавливается. Причина в наличии строк

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

Private Sub Picture1_LostFocus()
DestroyCaret
End Sub Private Sub Picture1_LostFocus()

Т.к. вызов ф-ии происходит уже после потери фокуса, то DestroyCaret работает неправильно и отключает курсор в текстбоксе. Интересно, что в параметрах DestroyCaret почему-то нет HWnd.

И еще

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

Private Declare Function CreateCaret Lib "user32.dll" (ByVal hwnd As Long, ByVal hBitmap As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long

Я так понял, что hBitmap определяет маску (вид) курсора.
У меня не получается её задействовать.

[Yurich]

Я так понял, что hBitmap определяет маску (вид) курсора.
У меня не получается её задействовать.

Уп..п-с: Каpта бит, котоpая опpеделяет вставку; если 0, то вставка является чеpной; если 1, то вставка является сеpой.