Как в программе управлять размерами символов

@me007 · Регистрация: 23.10.2012

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

Можно ли в программе ВБ управлять размерами символов[/COLOR](текста) как в ворде(после запуска программы)? Чтобы этот столбик находился примерно где моя мышка. При этом текст находится и на Label и Text. спасибо заранее

@Pro_grammer · 03.01.2013, 21:13

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

Чтобы этот столбик находился примерно где моя мышка.

Ну это надо самому писать. А стандартное окно выбора шрифта, цвета и размера - используем тот же самый CommonDialog, всё равно он уже на форме у тебя для принтера.
Шрифты для Text1:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub Command2_Click()
On Error GoTo Cansel
CommonDialog1.CancelError = True
'Установим флаги экранного шрифта, дополнительных параметров форматирования
' и включим ограничение размера шрифтов
CommonDialog1.Flags = cdlCFScreenFonts Or cdlCFEffects Or cdlCFLimitSize
'установим вывод шрифтов размером от 10 до 16
CommonDialog1.Min = 10
CommonDialog1.Max = 16
'открываем окно
CommonDialog1.ShowFont
'передаем свойства окна свойствам Text1
Text1.Font.Name = CommonDialog1.FontName
Text1.Font.Size = CommonDialog1.FontSize
Text1.Font.Bold = CommonDialog1.FontBold
Text1.Font.Italic = CommonDialog1.FontItalic
Text1.Font.Strikethrough = CommonDialog1.FontStrikethru
Text1.Font.Underline = CommonDialog1.FontUnderline
Text1.ForeColor = CommonDialog1.Color
Exit Sub
Cansel:
If Err.Number = cdlCancel Then
Exit Sub
Else
MsgBox Err.Description
End If
End Sub

@me007 · 03.01.2013, 21:22 **[ТС]**

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

А стандартное окно выбора шрифта, цвета и размера - используем тот же самый CommonDialog

а как для выбора шрифта, цвета и размера использовать CommonDialog?

Добавлено через 1 минуту
Ладно понял, ступил

а как допустим label менять

Добавлено через 1 минуту
И очень желательно чтобы было как на 1ой картинке, такое никак??

@Pro_grammer · 03.01.2013, 21:44

Visual Basic
1
2
label = CommonDialog1.FontName
label = CommonDialog1.FontSize

Добавлено через 4 минуты
Как на картинке нет ни чего сложного. Два Combo, в один запиши все размеры, в другой все названия шрифтов. После выбора присваивай из Combo, то что выбрано
Text1.Font.Name = Combo1.Text

@me007 · 03.01.2013, 21:45 **[ТС]**

Pro_grammer, а как в ворде нельзя, да?

@Catstail · 03.01.2013, 21:50

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

Чтобы этот столбик находился примерно где моя мышка. При этом текст находится и на Label и Text. спасибо заранее

- слушай, ты в школе сочинения (изложения) писал (пишешь)? Какой столбик? Где находится твоя мышка?

Добавлено через 1 минуту
А... Ты "столбиком" называешь комбо-бокс. Можно, конечно. Сейчас покажу, как.

@Catstail · 03.01.2013, 22:06

Вот проект:

@me007 · 03.01.2013, 22:08 **[ТС]**

Спасибо большое!!

@Catstail · 03.01.2013, 22:08

а вот картинка:

@me007 · 03.01.2013, 22:08 **[ТС]**

Очень помогла!

@Catstail · 03.01.2013, 22:12

Только имей в виду, что некоторые шрифты не способны отображаться всеми размерами

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@me007 0 / 0 / 1 Регистрация: 23.10.2012 Сообщений: 135

	Как в программе управлять размерами символов 03.01.2013, 21:03. Показов 870. Ответов 10 Метки нет (Все метки) Можно ли в программе ВБ управлять размерами символов[/COLOR](текста) как в ворде(после запуска программы)? Чтобы этот столбик находился примерно где моя мышка. При этом текст находится и на Label и Text. спасибо заранее Миниатюры 0

@me007 0 / 0 / 1 Регистрация: 23.10.2012 Сообщений: 135
	03.01.2013, 21:45 [ТС]
	Pro_grammer, а как в ворде нельзя, да? 0

@me007 0 / 0 / 1 Регистрация: 23.10.2012 Сообщений: 135
	03.01.2013, 22:08 [ТС]
	Спасибо большое!! 0

@Catstail Супер-модератор 38195 / 21128 / 4309 Регистрация: 12.02.2012 Сообщений: 34,734 Записей в блоге: 14
	03.01.2013, 22:08
	а вот картинка: Миниатюры 0

@me007 0 / 0 / 1 Регистрация: 23.10.2012 Сообщений: 135
	03.01.2013, 22:08 [ТС]
	Очень помогла! 0

@Catstail Супер-модератор 38195 / 21128 / 4309 Регистрация: 12.02.2012 Сообщений: 34,734 Записей в блоге: 14
	03.01.2013, 22:12
	Только имей в виду, что некоторые шрифты не способны отображаться всеми размерами 1