Про элементы формы и про шрифт

@winuser74 · Регистрация: 29.05.2021

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

1. Посоветуйте плиз progressbar'ы с возможностью настройки цвета индикатора. А лучше какую-нибудь библиотеку, где есть из
чего выбрать, если таковая существует. Я нашел один, но он похоже работает только на форме 2.0, а мне бы желательно для первой.

2. Примерно тот же вопрос на счет statusbar'ов. Нужно, чтобы можно было самому задавать его длину, цвет фона и текста. Я нашел один, но там как-то странно, сделать белый фон можно только картинкой, а текст тогда не виден - в общем то ли я что-то делаю не так, либо контролы дерьмо? Кому пришла эта замечательная идея сделать фон темным??? (реально странные люди делали VB) Посоветуйте что-нибудь нормальное, если есть.

3. Я заметил, что моя форма хорошо выглядит в разрешении 1024х768 (делал на XP), но становится мелкой и главное сильно портится шрифт в более высоком разрешении, по-моему особенно на широкоформатных мониках. Вероятно, я не единственный из новичков, кто сталкивался с подобным, поэтому вопрос - как исправить эту ситуацию? Шрифт был выбран по-умолчанию Sans Serif, то ли на Windows 7 он немного не такой как на XP, то ли еще что.. Может быть надо вообще скачать какой-нибудь шрифт и как-то сам файл шрифта добавлять в проект, чтобы форма загружала его, а не виндовый при загрузке?

Добавлено через 51 минуту
У меня сначала стояло Twip, а сейчас User. Может надо было делать в Pixel - может от этого как-то зависеть как смотрится форма в разных разрешениях? Дело еще может быть в том, что она у меня с фиксированным размером, не масштабируемая.. это может влиять? Но в основном претензия к шрифту - не знаю как выразиться - он лишается плавности, больше квадрируется что ли в больших разрешениях, становится совсем не сглаженным, если широкоформатный монитор. Как-то так - не знаю как еще описать проблему.

@Pro_grammer · 03.06.2021, 18:47

Можно попробовать включить поддержку DPI для систем, которые новее WinXP.
Это делается в манифесте. Пример применения

@winuser74 · 04.06.2021, 01:33 **[ТС]**

Прошу прощения, если я правильно понял там можно задать конкретный размер в пикселях, к которому форма как бы привязывается?
Что значит: "unless this program is marked DPI-aware."? С этим нужно что-то делать или от меня тут ничего не зависит?

От шрифта не может зависеть? В смысле не стоит искать пути как подсовывать файл шрифта форме по время ее загрузки?
Впрочем, я даже не в курсе, это вообще возможно?

@Pro_grammer · 04.06.2021, 06:30

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

От шрифта не может зависеть?

Может. Если в системе нет нужного, она подставит свой.

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

как подсовывать файл шрифта форме по время ее загрузки?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long
Private Declare Function RemoveFontResource Lib "gdi32" Alias "RemoveFontResourceA" (ByVal lpFileName As String) As Long
Dim AppPath As String
Private Sub Form_Load()
     AppPath = App.Path
    If Right$(AppPath, 1) <> "\" Then AppPath = AppPath + "\"
    'Добавляем шрифт из папки с программой в систему
    AddFontResource AppPath + "comic1.ttf"
    'Проверяем работу шрифта
    Me.AutoRedraw = True
    Me.FontName = "Comic Sans MS"
    Me.Print "New font 1234567"
End Sub
Private Sub Form_Unload(Cancel As Integer)
    'После работы удаляем шрифт из системы
    RemoveFontResource AppPath + "comic1.ttf"
End Sub

@winuser74 · 04.06.2021, 16:54 **[ТС]**

Очень круто! Спасибо!!! Я пока еще DPI этот не проверил, пока не могу сказать что получилось в плане смотрибельности, другим был занят. Но как попробую отпишусь.

@Rh2Dark · 05.06.2021, 13:00

2. Насчет статусбаров, обычно от них многого не требуется - вывести текст, метки или иконку мелкую, всё это реализовано в стандартном Statusbar и работает без нареканий. Но если делается нестандартная форма со своим скином, то статусбар и свой сэмулировать можно, например оперируя лейблами, натянутыми на пикчербокс - здесь можно менять цвета фона и текста, да и иконку расположить если надо. А если взять на вооружение всякие рамки и градиентные заливки из библиотеки GDI вообще красоту навести можно. Насчет последнего - могу поделиться примерами как рамки и заливки рисовать

@winuser74 · 07.06.2021, 19:29 **[ТС]**

Как раз со стандартными статусбарами и проблема. Если форма первая, то статсубар - это либо дебильное маленькое окошко слева либо на всю форму внизу. Установить размер, который нужен невозможно. Если форма 2.0, то тоже шняга еще та.
Можно сделать нужный размер, но нельзя установить цвет фона, например просто белый. Пробовал подставить через картинку фон поменять - тогда текст не рисует. В общем полный бред.

На счет заливок я не совсем понял оно это или не оно. Я просто хотел статусбар своего размера с белым фоном и цветом текста, который я сам выберу.

@Rh2Dark · 08.06.2021, 18:12

Размер статусбара устанавливается автоматом по размеру формы, по мне так это как раз удобно - не надо оперировать координатами при изменении размеров формы. Не представляю, если честно, зачем нужен статусбар шириной в половину формы, но вам виднее, надо значит и надо, но придется делать самому.

Про залиивку - см. картинку, я там оформил панельки с градиентной заливкой, шоб красивше было. Можно и статусбар такой сделать.

@winuser74 · 09.06.2021, 01:02 **[ТС]**

Прикольный скрин. Меня вот больше заинтересовало как вы сделали, что у вас внизу записи черные, а одна красная?
Это richtextbox был или что? В обычном текстбоксе такое вроде не сделать в VB..

@Rh2Dark · 10.06.2021, 17:49

Это стандартный Listview вида Report, цвет текста в нем меняется элементарно: Listview.Listitems(1).Forecolor = vbRed, это для итема, а для сабитемов: Listview.Listitems(1).ListSubitems(1).Fo recolor = vbRed. А вот цвет фона берется из системы.

@winuser74 · 12.06.2021, 01:05 **[ТС]**

Нашел. Это в MSCOMCTL.OCX. Жаль, что я не могу использовать его вместо TextBox.

Новые блоги и статьи Все статьи Все блоги /
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .	Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .

@winuser74 0 / 0 / 0 Регистрация: 29.05.2021 Сообщений: 28

	Про элементы формы и про шрифт 03.06.2021, 17:23. Показов 1863. Ответов 10 Метки vb 6.0 (Все метки) 1. Посоветуйте плиз progressbar'ы с возможностью настройки цвета индикатора. А лучше какую-нибудь библиотеку, где есть из чего выбрать, если таковая существует. Я нашел один, но он похоже работает только на форме 2.0, а мне бы желательно для первой. 2. Примерно тот же вопрос на счет statusbar'ов. Нужно, чтобы можно было самому задавать его длину, цвет фона и текста. Я нашел один, но там как-то странно, сделать белый фон можно только картинкой, а текст тогда не виден - в общем то ли я что-то делаю не так, либо контролы дерьмо? Кому пришла эта замечательная идея сделать фон темным??? (реально странные люди делали VB) Посоветуйте что-нибудь нормальное, если есть. 3. Я заметил, что моя форма хорошо выглядит в разрешении 1024х768 (делал на XP), но становится мелкой и главное сильно портится шрифт в более высоком разрешении, по-моему особенно на широкоформатных мониках. Вероятно, я не единственный из новичков, кто сталкивался с подобным, поэтому вопрос - как исправить эту ситуацию? Шрифт был выбран по-умолчанию Sans Serif, то ли на Windows 7 он немного не такой как на XP, то ли еще что.. Может быть надо вообще скачать какой-нибудь шрифт и как-то сам файл шрифта добавлять в проект, чтобы форма загружала его, а не виндовый при загрузке? Добавлено через 51 минуту У меня сначала стояло Twip, а сейчас User. Может надо было делать в Pixel - может от этого как-то зависеть как смотрится форма в разных разрешениях? Дело еще может быть в том, что она у меня с фиксированным размером, не масштабируемая.. это может влиять? Но в основном претензия к шрифту - не знаю как выразиться - он лишается плавности, больше квадрируется что ли в больших разрешениях, становится совсем не сглаженным, если широкоформатный монитор. Как-то так - не знаю как еще описать проблему. 0

@winuser74 0 / 0 / 0 Регистрация: 29.05.2021 Сообщений: 28
	04.06.2021, 01:33 [ТС]
	Прошу прощения, если я правильно понял там можно задать конкретный размер в пикселях, к которому форма как бы привязывается? Что значит: "unless this program is marked DPI-aware."? С этим нужно что-то делать или от меня тут ничего не зависит? От шрифта не может зависеть? В смысле не стоит искать пути как подсовывать файл шрифта форме по время ее загрузки? Впрочем, я даже не в курсе, это вообще возможно? 0

@winuser74 0 / 0 / 0 Регистрация: 29.05.2021 Сообщений: 28
	04.06.2021, 16:54 [ТС]
	Очень круто! Спасибо!!! Я пока еще DPI этот не проверил, пока не могу сказать что получилось в плане смотрибельности, другим был занят. Но как попробую отпишусь. 0

@Rh2Dark 32 / 32 / 0 Регистрация: 05.11.2020 Сообщений: 102
	05.06.2021, 13:00
	2. Насчет статусбаров, обычно от них многого не требуется - вывести текст, метки или иконку мелкую, всё это реализовано в стандартном Statusbar и работает без нареканий. Но если делается нестандартная форма со своим скином, то статусбар и свой сэмулировать можно, например оперируя лейблами, натянутыми на пикчербокс - здесь можно менять цвета фона и текста, да и иконку расположить если надо. А если взять на вооружение всякие рамки и градиентные заливки из библиотеки GDI вообще красоту навести можно. Насчет последнего - могу поделиться примерами как рамки и заливки рисовать 0

@winuser74 0 / 0 / 0 Регистрация: 29.05.2021 Сообщений: 28
	07.06.2021, 19:29 [ТС]
	Как раз со стандартными статусбарами и проблема. Если форма первая, то статсубар - это либо дебильное маленькое окошко слева либо на всю форму внизу. Установить размер, который нужен невозможно. Если форма 2.0, то тоже шняга еще та. Можно сделать нужный размер, но нельзя установить цвет фона, например просто белый. Пробовал подставить через картинку фон поменять - тогда текст не рисует. В общем полный бред. На счет заливок я не совсем понял оно это или не оно. Я просто хотел статусбар своего размера с белым фоном и цветом текста, который я сам выберу. 0

@Rh2Dark 32 / 32 / 0 Регистрация: 05.11.2020 Сообщений: 102
	08.06.2021, 18:12
	Размер статусбара устанавливается автоматом по размеру формы, по мне так это как раз удобно - не надо оперировать координатами при изменении размеров формы. Не представляю, если честно, зачем нужен статусбар шириной в половину формы, но вам виднее, надо значит и надо, но придется делать самому. Про залиивку - см. картинку, я там оформил панельки с градиентной заливкой, шоб красивше было. Можно и статусбар такой сделать. 0

@winuser74 0 / 0 / 0 Регистрация: 29.05.2021 Сообщений: 28
	09.06.2021, 01:02 [ТС]
	Прикольный скрин. Меня вот больше заинтересовало как вы сделали, что у вас внизу записи черные, а одна красная? Это richtextbox был или что? В обычном текстбоксе такое вроде не сделать в VB.. 0

@Rh2Dark 32 / 32 / 0 Регистрация: 05.11.2020 Сообщений: 102
	10.06.2021, 17:49
	Это стандартный Listview вида Report, цвет текста в нем меняется элементарно: Listview.Listitems(1).Forecolor = vbRed, это для итема, а для сабитемов: Listview.Listitems(1).ListSubitems(1).Fo recolor = vbRed. А вот цвет фона берется из системы. 1

@winuser74 0 / 0 / 0 Регистрация: 29.05.2021 Сообщений: 28
	12.06.2021, 01:05 [ТС]
	Нашел. Это в MSCOMCTL.OCX. Жаль, что я не могу использовать его вместо TextBox. 0