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

Автоматическое изменение размеров ListBox

20.05.2014, 01:15. Просмотров 717. Ответов 3
Метки нет (Все метки)

На форме есть ListBox1 он имеет определённые размеры(по умолчанию) как сделать чтобы при запуске формы ListBox1 автоматически менял свои размеры(увеличивался)?
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.05.2014, 01:15
Ответы с готовыми решениями:

Изменение размеров Image
Как можно изменить размеры Image ? Подскажите, пожалуйста

Плавное изменение размеров компонента
Здравствуйте. Написал функцию по изменению размера контролла, в теории должна...

Запретить пользователю изменение размеров UserControl
Всем здравствуйте. Пользователь помещает мой UserControl на форму. В...

Согласованное изменение размеров элементов и формы
Можно ли сделать так, что бы при изменении размера формы, изменялись и размеры...

Изменение размеров формы без бордюров. Исправить код
Хочу сделать изменение размеров формы при FormBorderStyle = None, однако...

3
Nord790
Строитель
671 / 408 / 134
Регистрация: 01.04.2014
Сообщений: 429
20.05.2014, 04:59 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

vb.net
1
2
3
4
5
6
7
8
9
10
    Public Sub SetListBoxAutoSize(listBox As ListBox)
        If listBox.Items.Count = 0 Then Exit Sub
        Dim itemBigWidth As String = String.Empty
        Dim EndWidth As Integer = -1
        For Each item As String In listBox.Items
            If item.Length > EndWidth Then itemBigWidth = item : EndWidth = item.Length
        Next
        Dim TSize As Size = TextRenderer.MeasureText(itemBigWidth, listBox.Font)
        listBox.Size = New Size(TSize.Width + 4, TSize.Height * (listBox.Items.Count + 1))
    End Sub
1
MACHOMAN
51 / 27 / 4
Регистрация: 15.01.2014
Сообщений: 347
20.05.2014, 07:20  [ТС] 3
Поместил на форму но нечего не происходит(
0
Nord790
Строитель
671 / 408 / 134
Регистрация: 01.04.2014
Сообщений: 429
20.05.2014, 09:04 4
не забывай ещё и вызвать функцию SetListBoxAutoSize(ListBox1)

vb.net
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Class Form1
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        SetListBoxAutoSize(ListBox1)
    End Sub
 
    Public Sub SetListBoxAutoSize(listBox As ListBox)
        If listBox.Items.Count = 0 Then Exit Sub
        Dim itemBigWidth As String = String.Empty
        Dim EndWidth As Integer = -1
        For Each item As String In listBox.Items
            If item.Length > EndWidth Then itemBigWidth = item : EndWidth = item.Length
        Next
        Dim TSize As Size = TextRenderer.MeasureText(itemBigWidth, listBox.Font)
        listBox.Size = New Size(TSize.Width + 4, TSize.Height * (listBox.Items.Count + 1))
    End Sub
End Class
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.05.2014, 09:04

Изменение размеров столбцов DataGridView относительно длины значений
Есть Датагрид,какое присвоить ей свойство чтобы размеры таблицы автоматически...

Автоматическое изменение имени массива
Приветствую! Имеется следующий цикл: For i = 0 To N Dim array(3) As...

Изменение размеров компонента мишью в RunTime
собственно требуется работа с панелью в режиме RunTime, чтобы при клике на ней...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru