Конференция VBStreets

**Diman1982** » 08.09.2006 (Пт) 14:14

Привет. Потратил 3 часа 45 минут на поиск инфы, но так и не нашел. Помогите если кто знает. Как создать собственный контрол Textbox. Нарисовать прямоугольник не проблема, проблема вывести буквы в UserControl, если например на "форме" usercontrola нет ни одного элемента. А print он не поддерживает. Там еще коретку какю то надо создать. Как это сделать?

**alibek** » 08.09.2006 (Пт) 14:24

Diman1982 писал(а):А print он не поддерживает.

С чего такое мнение?
А курсор можно сделать самодельный, таймером.
Или системный, API CreateCaret и подобное.

**Хакер** » 08.09.2006 (Пт) 14:25

Зrint поддерживается. Такчто юзай принт.

Ну или если из-за личных данных неполучается его использовать - используй Label.

**lister** » 08.09.2006 (Пт) 14:40

Diman1982 писал(а):Как создать свой контрол Textboxnew?

А чем стандартный не нравится?

**Хакер** » 08.09.2006 (Пт) 17:37

Чёрт. Ну почему так? Почему всегда кто-нибудь меня опережает :twisted:

lister
Да... твой пост очень помог автору.

**lister** » 08.09.2006 (Пт) 19:22

Да, Хакер, я хочу узнать у автора, чем ему стандартный текстбокс не нравиться... Что в этом криминального? :twisted:

**Eduard** » 09.09.2006 (Сб) 1:38

а я вот не отказался бы оттабыть где-нить стандартный текстбокс, тока у него слехка отсутупы небольшие по краям! (пример, VB > Project > Project1 Properties..., заметите какие они там), как онаи делаються то!?

**tyomitch** » 09.09.2006 (Сб) 7:31

EM_SETMARGINS

**Diman1982** » 11.09.2006 (Пн) 12:30

Хакер писал(а):Зrint поддерживается. Такчто юзай принт.

Ну или если из-за личных данных неполучается его использовать - используй Label.

Понял, понят. Просто при инициализации контрола он выдавал ошибку, я подумал что принт не работает, а заработал, когда запустил форму. А не подскажите как высчитать длину текста в переменной TEXT, что бы поставить этот курсор, например в конец? Нашел тут в форуме кое что, Printer.Textwidth(Строка), но с добавлением букв в переменную, появляется погрешность и чем длинее текст в переменной, тем дальше появляется курсор от конца.

**Diman1982** » 11.09.2006 (Пн) 12:34

Может быть у системной каретки есть встроенная функция вычислении длины в переменной?

**Viper** » 11.09.2006 (Пн) 12:59

А причем тут Printer.TextWidth? Юзай UserControl.TextWidth

**Diman1982** » 11.09.2006 (Пн) 13:20

Гы... Точно! Тенкс. А как вычислить положение курсора для системной каретки?

**Viper** » 11.09.2006 (Пн) 13:26

Что есть в понятии автора "системная каретка"?

**Diman1982** » 11.09.2006 (Пн) 13:32

CreateCaret Lib "user32.dll"
SetCaretPos lib "user32.dll" (ByVal x as Long, ByVal y As Long) As Long
Последняя выставляет координаты где появиться мигающему курсору, но значения там 3=длине символа (л) например, а textWidth(строка) показывает 83

**Viper** » 11.09.2006 (Пн) 13:39

SetCaretPos и GetCaretPos выдают координаты в пикселях, а TextWidth в твипах. Либо преобразовывай, либо для контрола савь единицы измерения в пиксели

**Diman1982** » 11.09.2006 (Пн) 13:45

а чему равен 1 пиксель в твипах? Оппа, а что это за звезда у меня появилаь? и кто ее поставил?

**tyomitch** » 11.09.2006 (Пн) 13:49

см. Screen.TwipsPerPixelX и Screen.TwipsPerPixelY

**alibek** » 11.09.2006 (Пн) 13:55

Также смотреть UserControl.ScaleX/ScaleY.

**Конь** » 26.09.2006 (Вт) 16:44

lister
Человек хочет сделать свой контрол, как ты не понимаешь?

Конференция VBStreets

Как создать свой контрол Textboxnew?

Как создать свой контрол Textboxnew?

Re: Как создать свой контрол Textboxnew?

Re: Как создать свой контрол Textboxnew?

Кто сейчас на конференции