Как вывести в TextBox-е стрелки

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
giaber
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 108
Зарегистрирован: 14.01.2009 (Ср) 13:51

Как вывести в TextBox-е стрелки

Сообщение giaber » 09.06.2017 (Пт) 9:03

В Текстбоксах выводятся данные о расстоянии курсора до верха, низа, правой и левой сторон PictureBox-a в таком виде: T: 123, B: 123, L: 123, R: 123. Хочется чтоб вместо букв"T", "B", "L", "R" выводились соответствующие стрелочки вверх, вниз и тд. Как можно вывести эти символы? В таблице ASCII Codes я не нашёл таких стрелок
Спасибо!

pronto
Постоялец
Постоялец
 
Сообщения: 597
Зарегистрирован: 04.12.2005 (Вс) 6:20
Откуда: Владивосток

Re: Как вывести в TextBox-е стрелки

Сообщение pronto » 09.06.2017 (Пт) 9:29

Поверх TextBox'a наложить картинку со стрелочкой. В тексте добавить нужное кол-во пробелов, так чтобы картинка ничего не загораживала. Другой вариант — отрисовать картинку и текст на PictureBox. Или использовать шрифт Symbol, только есть проблема с отображением стрелки вниз :( У шрифта Syastro нет такой проблемы :)
Код: Выделить всё
i — стрелка вправо
j — стрелка вверх
k — стрелка влево
l — стрелка вниз
O, sancta simplicitas!

bon818
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 267
Зарегистрирован: 29.08.2009 (Сб) 4:49
Откуда: Ташкент

Re: Как вывести в TextBox-е стрелки

Сообщение bon818 » 09.06.2017 (Пт) 11:00

Можно использовать специфичный шрифт, положить его в ресурсы, регистрировать и использовать.

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Re: Как вывести в TextBox-е стрелки

Сообщение alibek » 09.06.2017 (Пт) 11:30

U+2190, U+2191, U+2192, U+2193.
Lasciate ogni speranza, voi ch'entrate.

giaber
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 108
Зарегистрирован: 14.01.2009 (Ср) 13:51

Re: Как вывести в TextBox-е стрелки

Сообщение giaber » 09.06.2017 (Пт) 12:52

pronto: “Поверх TextBox'a наложить картинку со стрелочкой”

С этого я и начал, но это в MouseMove происходит, там двигается PictureBox в 1 пиксел толщиной и на весь экран длиной, и 6 штук инфо-лейблов – замедляется очень

(bon818 + pronto) - спасибо обоим, шрифт Syastro кладём в ресурсы – это вариант!

Alibek: “U+2190, U+2191, U+2192, U+2193”

У меня простая конструкция : lblInfoMouseY = "Y: " & Y, какой синтаксис должен быть? Я впервые с таким сталкиваюсь

ЗЫ
И ещё вопрос не по теме: я очень, конечно, «дремучий» человек, извиняюсь, но есть ли способ получать уведомления о пришедшем в теме ответе, может прога какая, или аддон. Или только вариант – получать уведомления на почту и при установленном почтовом клиенте типа “Bat” соответственно, видеть что пришло письмо с уведомлением об ответе на форуме?

UPD
Попробовал шрифт Syastro - к сожалению, при 8 пунктах выглядит ужасно. Поищу другие, идея неплоха. Но вот что в голову пришло - а если взять нравящийся мне шрифт и вставить туда при помощи Font Creator или подобной проги нужные мне стрелки?

Впрочем, если Alibek ответит, то этого всего не надо будет, наверное

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Re: Как вывести в TextBox-е стрелки

Сообщение alibek » 09.06.2017 (Пт) 14:24

ChrW(&h2190&)
Lasciate ogni speranza, voi ch'entrate.

giaber
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 108
Зарегистрирован: 14.01.2009 (Ср) 13:51

Re: Как вывести в TextBox-е стрелки

Сообщение giaber » 09.06.2017 (Пт) 16:37

Спасибо большое всем! Пробую все варианты, чтоб определить что мне больше подходит.

pronto
Постоялец
Постоялец
 
Сообщения: 597
Зарегистрирован: 04.12.2005 (Вс) 6:20
Откуда: Владивосток

Re: Как вывести в TextBox-е стрелки

Сообщение pronto » 09.06.2017 (Пт) 16:42

Есть ещё вариант :)
Код: Выделить всё
' .ScaleMode = 3 - Pixel
Picture2.FontName = "Wingdings 3"
Picture2.FontSize = 16
Picture2.Print "Ы";
Picture2.FontName = "Consolas"
Picture2.FontSize = 12
Picture2.CurrentY = Picture2.CurrentY + 3
Picture2.Print "123 ";

Picture2.FontName = "Wingdings 3"
Picture2.FontSize = 16
Picture2.Print "Ь";
Picture2.FontName = "Consolas"
Picture2.FontSize = 12
Picture2.Print "456"
O, sancta simplicitas!

giaber
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 108
Зарегистрирован: 14.01.2009 (Ср) 13:51

Re: Как вывести в TextBox-е стрелки

Сообщение giaber » 09.06.2017 (Пт) 19:51

Спасибо, pronto ! Попробую и этот вариант. В итоге для меня всё определяется скоростью - сперва по пикчербоксу двигался лейбл в виде линии и всё было ок, но пришлось заменить лейбл на пикчербокс и это замедлило - пикчербокс в процессе драгинга по экрану как бы раздваивается, "утолщается" в 2 раза, то есть как бы одновременно виден пикбокс и на предыдущем месте и на новом, при остановке движения опять ессно нормально толщина в 1 пикс, так что стараюсь выбрать самый быстрый вариант чтоб не усугублять проблему. Кстати, лейбл заменить пришлось по странной (для меня) причине - когда курсор попадает на нарисованную линию, мне надо изменить цвет этой линии, типа выделение, по некоторым причинам (не из-за ламерности, нет, что вы! :)) отказался от Xor-перерисовывания линии и заменил появляющимся под курсором лейблом. Но при движении курсора вдоль лейбла (ширина-1 пикс) инфо-лейблы отстают от курсора, потом догоняют, потом опять отстают. А когда заменил лейбл на пикбокс - всё нормально. Мне непонятно, почему так.

bon818
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 267
Зарегистрирован: 29.08.2009 (Сб) 4:49
Откуда: Ташкент

Re: Как вывести в TextBox-е стрелки

Сообщение bon818 » 09.06.2017 (Пт) 23:27

giaber писал(а):Но вот что в голову пришло - а если взять нравящийся мне шрифт и вставить туда при помощи Font Creator или подобной проги нужные мне стрелки?

http://www.google.com/search?q=vb6+AddFontMemResourceEx

giaber
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 108
Зарегистрирован: 14.01.2009 (Ср) 13:51

Re: Как вывести в TextBox-е стрелки

Сообщение giaber » 10.06.2017 (Сб) 9:00

Спасибо, bon818 ! Очень интересно!


Вернуться в Visual Basic 1–6

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

Сейчас этот форум просматривают: SemrushBot и гости: 42

    TopList  
cron