Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
2 / 2 / 1
Регистрация: 16.08.2011
Сообщений: 76
1

Определить входит ли текст в заданный размер

29.05.2012, 09:22. Показов 713. Ответов 1
Метки нет (Все метки)

У меня текст из текстового файла записывается в CheсkBox и Label, AutoSize - false, размер определенного размера и изменить нельзя. Но текст иногда не влезает в этот размер. Вопрос вот в чем: можно ли программно определить входит ли текст в это размер, иначе изменить шрифт?
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.05.2012, 09:22
Ответы с готовыми решениями:

Определить сколько различных символов входит в заданный текст
Вот собственно нужно определить сколько различных символов входит в заданный текст, содержащий не...

Определить, сколько различных символов входит в заданный текст
определить, сколько различных символов входит в заданный текст, содержащий не более 60 символов, и...

Определить сколько раз слово “did” входит в заданный текст
Помогите Сделать лаби, пожалуста, я не могу сделать их, так как времени мало, завтра должен...

Определить, сколько различных литер входит в заданный текст
Определить, сколько различных литер входит в заданный текст, содержащий не более 100 литер и...

1
1689 / 1178 / 226
Регистрация: 23.12.2010
Сообщений: 1,515
29.05.2012, 10:06 2
На форме кнопка (Button1) и надпись (Label1)
VB.NET
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
28
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim textincontrol As String = "пример очень длинного текста в элементе управления Label"
        Dim NewFont As Font = Me.redimfont(textincontrol, 0.1)
        Me.Label1.Font = NewFont
        Me.Label1.Text = textincontrol
        Me.Text = NewFont.Size ' показываем в заголовке окна размер шрифта
    End Sub
 
    ''' <summary>
    ''' Возвращает подобранный шрифт
    ''' </summary>
    ''' <param name="str">текст, который надо вместить</param>
    ''' <param name="delta">шаг изменения размера шрифта</param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Private Function redimfont(ByVal str As String, ByVal delta As Single) As Font
        Dim g As Graphics = Me.Label1.CreateGraphics
        Dim FS As Single = Me.Label1.Font.Size
        Dim FNT As Font
        FNT = Me.Label1.Font
        Do Until (g.MeasureString(str, FNT, Me.Label1.Width).Height < Me.Label1.Height)
            FS = FS - delta
            FNT = New Font(Me.Label1.Font.Name, FS, Me.Label1.Font.Style)
        Loop
        Return FNT
    End Function
End Class
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.05.2012, 10:06

Определить, сколько раз в заданный текст входит каждая из 3 введенных букв
Написать программу для оределения - сколько раз в заданный текст входит каждая из 3 введенных букв.

Не знаю, как правильно сделать. Определить, сколько различных литер входит в заданный текст
Определить, сколько различных литер входит в заданный текст, содержащий не более 100 литер и...

Определить сколько различных символов входит в заданный текст, содержащий не более 100 литер и оканчивающийся
Ребята, помогите! Срочно надо! Желательно без использования множеств. Мне эта тема туго дается.

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru