Нижние и верхние индексы в VB

12.09.2011, 09:02. **Показов** 9384. **Ответов** 24

Студворк — интернет-сервис помощи студентам

Друзья напишите код для нижных и верхних индексов в VB. Например я хочу написать код воду (H2O) как написть 2 в ниже?

@gitarillo · 12.09.2011, 09:14

jahongir-tj, у стандартных контролов это своийтсво никак не задать без извращений.
Может стоит поюзать RichTextBox.

12.09.2011, 10:26

В label-e или в textbox-e невозможно писать нижниые или верхные индекси что лы?

@gitarillo · 12.09.2011, 10:31

Сообщение от jahongir-tj

В label-e или в textbox-e невозможно писать нижниые или верхные индекси что лы?

Максимум что можно, это цвет, стиль, размер. Для всего остального наверно RTB

@PB · 12.09.2011, 10:57

Сообщение от gitarillo

у стандартных контролов это своийтсво никак не задать без извращений

Сделал без извращений.

@Pro_grammer · 12.09.2011, 11:24

Сообщение от PB

Сделал без извращений.

Картинку любой покажет, покажите код на VB.

SoftIce · 12.09.2011, 11:39

Если код никто проверять не будет, то и сделайте картинку в исполняемом файле. А в коде то зачем?

Добавлено через 6 минут
Это нужно для пользователя. А ему все равно.
Лишь наглядно было. Label-Image-Label.

Добавлено через 1 минуту
Это нужно для пользователя. А ему все равно.
Лишь бы наглядно было. Label-Image-Label.

@gitarillo · 12.09.2011, 11:39

Сообщение от PB

Сделал без извращений.

Не по теме:

Это я и имел ввиду

@PB · 12.09.2011, 11:45

Сообщение от Pro_grammer

Картинку любой покажет, покажите код на VB.

Знаете что такое юникод? Если нет, то учим мат. часть. http://ru.wikipedia.org/wiki/Юникод
И таблица символов винды в помощь.
Код не на VB, но смысл понятен.

PureBasic
1
2
3
4
5
6
OpenWindow(1,200,250,200,50,"",#PB_Window_MinimizeGadget)
TextGadget(2,70,10,180,30,"H"+Chr($B2)+"O")
SetGadgetFont(2,LoadFont(0,"Tahoma", 20))
Repeat
 Event=WaitWindowEvent()
Until Event=#PB_Event_CloseWindow

@gitarillo · 12.09.2011, 11:49

PB, Это случайно не PureBasic?

@PB · 12.09.2011, 11:50

Сообщение от gitarillo

Это случайно не PureBasic?

Да он, но какая разница, юникод можно и в VB юзать.
Это мало зависит от языка программирования.

@Pro_grammer · 12.09.2011, 12:56

Сообщение от PB

Код не на VB, но смысл понятен.

Опять флуд не по теме. У вас какая то патология лезть в чужие темы со своим PureBasic.
Если вы вообще ни чего не знаете о VB, то зачем сюда лезть? Как вас модераторы терпят?
Про юникод, в VB, кто не знает:
Переменные String есть UTF-16 строки. Но вывести стандартными средствами можно только символы, попадающие в ansi.
Отображать юникод VB не может (без дополнительных ухищрений, извращений - называйте как угодно).

Какие можно применить извращения?
Выберите Компоненты из Проект меню и проверка Microsoft Forms 2.0 Библиотеки объектов.
После его подключения на форму лабелы и текстбоксы выбираются из Этого набора!
И уже они могут отображать юникод:

Visual Basic
1
2
3
Private Sub Command1_Click()
Label2.Caption = "H" & ChrW(178) & "O"
End Sub

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

@PB · 12.09.2011, 12:57

Не по теме:

Сообщение от Pro_grammer

У вас какая то патология лезть в чужие темы со своим PureBasic.

Во первых, он не мой.
А во вторых, я вообще не собирался выкладывать код, а выложил его по вашей же просьбе.
В начале темы написали что контролы не поддерживают вывод маленьких цифр, я всего лишь опроверг это.

Сообщение от Pro_grammer

Про юникод, в VB, кто не знает

Скажете что в VB нельзя создать контрол, типа "Static" с помощью функции CreateWindowW()?
Текст можно вывести на контрол строкой

Code
1
SendMessageW(Handle, WM_SETTEXT, 0, Text)

Сообщение от Pro_grammer

Переменные String есть UTF-16 строки.

Ну вот и замечательно.
Получаем указатель на строку и передаем его функции SendMessageW().

Сообщение от Pro_grammer

Отображать юникод VB не может

А ему и не надо этого делать.
Этим занимаются контролы винды.

@Pro_grammer · 12.09.2011, 13:08

Сообщение от PB

А во вторых, я вообще не собирался выкладывать код, а выложил его по вашей же просьбе.

Я просил конкретно на VB!!!

Сообщение от PB

Скажете что в VB нельзя создать контрол, типа "Static" с помощью функции CreateWindowW()?

Наивно полагаете, что люди, программирующие на VB горят желанием лезть в дебри API? Мы не за это любим это ЯП. Но и таким я оставил лазейку, назвав это дополнительными ухищрениями.

Сообщение от PB

А ему и не надо этого делать.
Этим занимаются контролы винды.

Еще раз повторю - не лезьте туда, где вы ни чего не понимаете! Контролы VB <> контролам винды. Например класс ThunderTextBox - это текстовое окно.

@gitarillo · 12.09.2011, 13:38

Не по теме:

Вы замечатьно тут спорите. Но давайте не будем засорять тему.

PB, Вы могли бы не тратить время и силы на споры кто лучший прогер в мире, а лучше подсказать автору реализацию на API с использованием VB. Полезно будет в дальнейшем.
ЗЫ: Все когда-то начинали.

@Pro_grammer · 12.09.2011, 15:45

Сообщение от gitarillo

лучше подсказать автору реализацию на API с использованием VB

А смысл? Идея с юникодом изначально неверная. Если надо частный случай Н2О, то я уже показал, как это делается правильно на VB6. А если общий случай, то согласитесь, что надпись "H в степени 2 О" Это не одно и тоже что "H два О".
А попробуйте написать в юникоде к примеру C2H5OH.

@Ципихович Эндрю · 12.09.2011, 21:05

страсти поутихли, с водой всё понятно, а остались нижние индексы, подскажите как пишутся, спасибо

Добавлено через 17 минут
нет, что с водой не лады, в ВБА проверял, всё ОК, а в ВБ6-
строка "H" & ChrW(178) & "O" отображается как Н?О
???

@Pro_grammer · 12.09.2011, 21:40

Сообщение от Ципихович Эндрю

а в ВБ6-
строка "H" & ChrW(178) & "O" отображается как Н?О

Точно подключил комплект Microsoft Forms 2.0 и из него использовал контролы?

Сообщение от Ципихович Эндрю

остались нижние индексы

Нижние индексы : Так пойдет?

@Ципихович Эндрю · 12.09.2011, 21:53

да, пойдёт

Сообщение от Pro_grammer

Точно подключил комплект Microsoft Forms 2.0 и из него использовал контролы?

сейчас проверю

Добавлено через 5 минут
Меню Проект Компоненты Microsoft Forms 2.0 Выбрал, Галочку поставил, Применить, а далее как узнать, что я из Формс 2.0 беру??

Добавлено через 3 минуты
вообще не понял, раньше не зачачал, но у меня сейчас там 2 лебла в ЭУ 1 -нормальный, второй на форму кидаешь он даже не отображается как Label, просто пустое место

@Pro_grammer · 12.09.2011, 21:58

Сообщение от Ципихович Эндрю

Применить, а далее как узнать, что я из Формс 2.0 беру

У тебя должен появиться второй комплект контролов. Вот их и надо использовать для работы с юникодом.

Новые блоги и статьи Все статьи Все блоги /
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .

jahongir-tj

	Нижние и верхние индексы в VB 12.09.2011, 09:02. Показов 9384. Ответов 24 Метки нет (Все метки) Друзья напишите код для нижных и верхних индексов в VB. Например я хочу написать код воду (H2O) как написть 2 в ниже?

@gitarillo 755 / 554 / 48 Регистрация: 17.06.2010 Сообщений: 1,041 Записей в блоге: 1
	12.09.2011, 09:14
	jahongir-tj, у стандартных контролов это своийтсво никак не задать без извращений. Может стоит поюзать RichTextBox. 1

jahongir-tj
	12.09.2011, 10:26
	В label-e или в textbox-e невозможно писать нижниые или верхные индекси что лы?

SoftIce es geht mir gut 11274 / 4760 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	12.09.2011, 11:39
	Если код никто проверять не будет, то и сделайте картинку в исполняемом файле. А в коде то зачем? Добавлено через 6 минут Это нужно для пользователя. А ему все равно. Лишь наглядно было. Label-Image-Label. Добавлено через 1 минуту Это нужно для пользователя. А ему все равно. Лишь бы наглядно было. Label-Image-Label. 0

@gitarillo 755 / 554 / 48 Регистрация: 17.06.2010 Сообщений: 1,041 Записей в блоге: 1
	12.09.2011, 11:49
	PB, Это случайно не PureBasic? 0

@gitarillo 755 / 554 / 48 Регистрация: 17.06.2010 Сообщений: 1,041 Записей в блоге: 1
	12.09.2011, 13:38
	Не по теме: Вы замечатьно тут спорите. Но давайте не будем засорять тему. PB, Вы могли бы не тратить время и силы на споры кто лучший прогер в мире, а лучше подсказать автору реализацию на API с использованием VB. Полезно будет в дальнейшем. ЗЫ: Все когда-то начинали. 1

@Ципихович Эндрю 1705 / 574 / 74 Регистрация: 10.04.2009 Сообщений: 9,283
	12.09.2011, 21:05
	страсти поутихли, с водой всё понятно, а остались нижние индексы, подскажите как пишутся, спасибо Добавлено через 17 минут нет, что с водой не лады, в ВБА проверял, всё ОК, а в ВБ6- строка "H" & ChrW(178) & "O" отображается как Н?О ??? 0